Datumseingabe im Textffeld userform
04.01.2004 04:56:41
Jonathan
ich habe folgenden Code aus einer arbeitsmappe ein bißchen verändert
Private Sub Antrag_Change()
Dim Txt
Txt = Antrag.Text
If Txt = "" Then Exit Sub
If IsNumeric(Txt) = False Then GoTo ErrorHandler
If Len(Txt) = 8 Then
Txt = DateSerial(Right(Txt, 2), Mid(Txt, 3, 2), Left(Txt, 2))
If Not IsDate(Txt) Then
GoTo ErrorHandler
Else
Antrag.Text = Txt
MsgBox "Datum: " & Txt
Exit Sub
End If
End If
Exit Sub
ErrorHandler:
Beep
MsgBox "falsche Eingabe (s. Hinweise zur Eingabe)!", vbCritical
Antrag.Text = ""
End Sub
nun ist folgendes Problem:
weird das datum anders eingegeben - z.b. mit punkten zwischendrin (01.01.2004) - dann öffnet sich der debugger. Wie kann ich hier einbinden, dass immer die msg box geöffnet wird, wenn das datum nicht im vorgegebenen format eingegeben wird?
MfG