In einem Userform habe ich ein Textfeld, in dem ein Datum eingegeben werden soll.
Ich will nun prüfen, ob es ein korrektes Datum ist. Dafür nutze ich diesen Code:
If Not IsDate(Prüfzeitraumvon.Text) Then
MsgBox "Bitte gültiges Datum eingeben!"
With Prüfzeitraumvon
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
Wird der 30.02.2013 eingegeben, funktioniert es.
Gebe ich 08.28.2013 ein geht es nicht.
Ich vermute, dass hier der Monat mit dem Tag vertauscht wird.
Wie erreiche ich, dass der Tag immer vorne berücksichtigt wird?
Danke für eure Unterstützung.
Hartmut