Datumsprüfung in UF nicht immer korrekt
04.02.2014 14:48:19
Andi
habe eine Userform in der u.A. auch zwei Datumsangaben gemacht werden müssen (Start - Ende). Beide werden dann an die Tabelle übergeben und weiterverarbeitet.
Die beiden TextBoxen überprüfe ich mit folgendem Code, um sicherzustellen das:
1.) es sich hierbei auch um Datumsangaben handelt
2.) das zweite Datum größer ist, als das erste.
Problem:
Die Fehlerkennung greift oftmals ein, obwohl die Eingabe korrekt ist?!?!
Teilweise klemme ich dann in der Prüfung fest.
Hat jemand einen Tipp, warum diese Prüfung ggf. ohne Grund greift?
DANKE!
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox5.Text) Then
TextBox5.Text = Format(TextBox5.Text, "DD.MM.YYYY")
Else
TextBox5.Text = "Datum!"
Cancel = True
End If
End Sub
'Enddatum auch größer als Start
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox6.Text) And TextBox6.Text >= TextBox5.Text Then
TextBox6.Text = Format(TextBox6.Text, "DD.MM.YYYY")
Else
TextBox6.Text = "Datum!"
Cancel = True
End If
End Sub