Ausnahme in TB_Exit einbauen
Das
in meiner UF habe ich ein Textbox1_Exit Code, da dieses Feld zuerst gefüllt werden muss. Der Cursor befindet sich immer zuerst in diesem Feld und bleibt da bis eine gültige Eingabe gemacht wurde:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'LfdNr
If Len(TextBox1) = 0 Or TextBox1 = 0 Then
MsgBox "Bitte die Nummer eingeben"
Cancel = True
Exit Sub
End If
' u.s.w
End Sub
.Jetzt möchte ich aber erreichen, dass bei einen Klick auf den Command_Button "Abbrechen" diese Prüfung ausgeschaltet wird, deswegen würde ich am Anfang der TextBox1_Exit Anweisung sinngemäß ein "If Abbrechen = True Then Unload me" setzen.
Zur Info, mein "Abbrechen" Code lautet ganz einfach:
Private Sub Abbrechen_click()
Unload Me
End Sub
Hat jemand eine Lösung für mich?
Gruß Holger