Datumprüfung - Unload Problem
28.10.2004 18:27:48
Guido
ich habe da ein kleines Problem.
Über den folgenden Code überprüfe ich das in einer Textbox eingegebenen Datum:
Private Sub Txt_Buch_Dat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With txt_Buch_Dat
If Not IsDate(.Text) Or _
InStr(.Text, ":") Or _
.TextLength <> 10 Then
MsgBox "Falsches Format. Bitte geben Sie das Datum im Format 01.01.2004 ein"
.SetFocus
.SelStart = 0
.SelLength = .TextLength
Cancel = True
End If
End With
End Sub
Funktioniert auch.
Wenn ich nun die Userform über eine Schaltfläche mit Unload Me beenden möchte ohne das ein Eintrag in der Textbox vorgenommen wurde, erinnert mich der Code, so wie er es soll, an die falsche ( eben keine) Eingabe.
Wie kann ich das umgehen?
Danke und Gruß Guido