SetFocus setzen
21.04.2009 22:04:13
Frank
Ich hoffe es sind noch ein paar Ex(cel)perten wach!
Folgenden Code habe ich:
Private Sub TextBox41_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox41.Text) Then
MsgBox "Bitte ein gültiges Datum eingeben, TT.MM.JJJJ"
TextBox41 = ""
End If
End Sub
Gebe ich ein korrektes Datum ein ist alles ok. Ist die Eingabe fehlerhaft, kommt die Meldung per MsgBox und nach Klick auf ok wird die TextBox geleert, aber der Focus begibt sich in die nächste Textbox. was muss ich tun, dass der Focus wieder in die Ursprungs-TextBox zurückkehrt?
Ich hoffe mein Problem wurde verstanden und es kann mir jemand weiterhelfen!!!
Danke und herzlichst Frank H.
Anzeige