Bei falscher eingabe in TextBox bleiben?
22.03.2005 13:55:09
Conny
ich habe in einem UserForm eine Textbox (GP_Datum)
Hier soll ein Datum eingegeben werden können und überprüft werden ob es ein Sonntag ist, wenn ja, dann wird es in einem Tabellenblatt (Listen) eingefügt und die Liste neu sortiert. Bis hierhin geht auch alles.
Ist es nun aber kein Sonntag oder überhaupt kein Datum, soll eine Fehlermeldung kommen und der Cursor anschließend in der Textbox bleiben, dies tut er aber nicht, sondern er springt in die nächste Textbox im UserForm. Wie kann ich das verhindern?
Gruß Conny
Private Sub GP_Datum_AfterUpdate()
If Weekday(CDate(GP_Datum.Value), vbSunday) = 1 Then
Listen.Cells(GP_von.ListIndex + 39, 2) = CDate(GP_Datum.Value)
Sortiere_nach_Datum
Else
Beep
MsgBox "Das Datum muss ein Sonntag sein!"
GP_Datum.SetFocus
Exit Sub
End If
End Sub