Deine Variable ist vom Typ Date. Das bedeutet es wird bereits an der Stelle eine gültige Angabe erwartet; nur hast du die ja da noch nicht. ;)
Deshalb:
Dim vntDate As Variant
vntDate = InputBox("Datum eingeben", "Hinweis", "TT.MM.JJJJ")
If Not IsDate(vntDate) Then
Call MsgBox("Datum ungültig", vbOKCancel)
Exit Sub
Else
vntDate = CDate(vntDate) 'nun Variant/Date
End If
Grüße
|