SetFocus funktioniert nicht
15.09.2005 10:44:42
otto
ich brauche Hilfe.
Ich verwende folgenden Code, um eine Meldung bei vergessener Eingabe anzuzeigen.
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then
MsgBox "Bitte Datum eingeben !", 0, "unvollständige Eingabe"
TextBox2.SetFocus
GoTo Ende
End If
Cells(az, 2).Value = CDate(TextBox2.Value)
Ende:
End Sub
Funktioniert soweit, außer dass der Focus anschließend nicht auf TextBox2 steht, sondern auf der nächsten Textbox der Aktivierungsreihenfolge, warum ?
Gruß otto
Anzeige