einfacher Errohandler - ich häng fest!
25.10.2016 16:34:34
Jens
ich sitz grad in der Patsche
Hab in der Userform eine Textbox und ein Label
1.) Wenn man vergisst was in die Textbox zu schreiben,
dann Fehlermeldung ausgeben!
>>> man wird also dezent genötigt die Textbox doch bitteschön zu betexten! 2.) Hat man die Textbox betextet, dann weiter mit dem Code ...
Mein Problem:
Es wird immer wieder die MsgBox angezeigt ...
Könnt ihr mir mal den Weg aus dem Irrgarten zeigen ;)
VG, Jens
Private Sub UserForm_Initialize()
CmdExit.Enabled = False
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
Label1 = TextBox1.Text ' schreibt den Text in das Kontrollfeld
End Sub
Private Sub Cmd1_Click() ' Cmd1 = Schaltfläche "Bestätigen"
On Error GoTo Errorhandler
TextBox1 = "" 'Wenn keine Eingabe erfolgt ist, dann weiter mit _
Errorhandler
Errorhandler:
MsgBox "Bitte Namen eingeben !"
TextBox1.SetFocus 'Curser wieder ins Textfeld setzten
Exit Sub 'verlassen des Errorhandlers
'======= ENDE ERROR HANDLER =========
' hier sollte es jetzt eigentlich mit dem Code weitergehen
Label1.BackColor = RGB(124, 185, 38) 'Das Label grün färben
CmdExit.Enabled = True 'Die Schaltfläche wird wieder aktiviert
End Sub
Hier noch die Beispielmappe:https://www.herber.de/bbs/user/109014.xlsm