Hallo,

habe folgendes Makro geschrieben:

Sheets("Eingabe").Select
If Range("d2") = "" Then
MsgBox "Bitte geben Sie das Erfassungsdatum ein"
Range("D2").Select
Exit Sub
End If

Nun will ich auch noch prüfen, ob der eingegebene Wert tatsächlich ein Datum ist. Leider komm ich nicht drauf!

Danke für die Hilfe!

Martin