Überprüfung, ob Eingabe ein gültiges Datum ist
Krablix
ich möchte mittels VBA überprüfen, ob die Eingabe in einer Zelle ein gültiges Datum ist.
Beispiel:
In einer Zelle wird ein Datum in der Form TTMMJJ eingegeben (also ohne Punkt, Komma oder sonstwas) und mittels
ActiveCell.NumberFormat = "0#"".""?"".""""20""?"
in ein Datum mit der richtigen Schreibweise umgewandelt, also die Eingabe 250810 wird zu 25.08.2010. Das klappt soweit auch ganz gut.
Nun könnte es aber passieren, dass bei der Eingabe ein Fehler unterläuft, z.B. 321210 (32.12.2010) oder auch 290210 wird zu 29.02.2010 (der Februar hatte dieses Jahr nur 28 Tage).
Ich möchte nun diesem Code
Sub Datum_prüfen()
ActiveCell.NumberFormat = "0#"".""?"".""""20""?"
If IsDate(ActiveCell.Text) Then
Exit Sub
ElseIf (ActiveCell.Text) = "" Then
Exit Sub
Else
MsgBox ("Sie haben ein falsches Datum eingegeben!")
End If
End Sub
das Datum überprüfen und, wenn es sich nicht um ein gültiges Datum handelt (z.B. 32.12.2010), den User mittels Msg-Box darauf aufmerksam machen.
Allerdings klappt der Code nicht und ich weiß langsam nicht mehr, was ich noch machen soll/verändern muss, damit er läuft.
Um es noch einmal zu konkretisieren: Ich benötige einen Code, der die Zelleingaben nach deren Umformatierung in ein Datum überprüft und wenn es sich nicht um ein gültiges Datum handelt, dies mittels Msg-Box, mitteilt.
Sollte es auch andere Möglichkeiten geben, den User auf den Fehler aufmerksam zu machen, bitte sehr! Bin offen für alles :-)
Gruß
Krablix
Anzeige