Hallo zusammen,
ich stehe ein wenig auf dem Schlauch und hoffe auf Eure Hilfe. In einer InputBox soll der User ein Datum eintragen. Sollte er sich mal vertippt haben und das System erkennt, dass es kein klassisches Datumsformat ist, soll eine Fehlermeldung kommen und das Makro beendet werden, damit die Datei keinen Schaden von sich trägt. Allerdings kommt logischerweise bei einer falschen Eingabe schon in Zeile 3 ein Laufzeitfehler.
[...]
Dim Dat as Date
Dat = InputBox("Datum eingeben", "Hinweis", "TT.MM.JJJJ")
If Not isDate (Dat) Then
MsgBox("Datum ungültig", vbOKCancel)
Exit sub
End if
[...]
Danke für Eure Hilfe!
|