Fehler abfangen, wenn keine Eingabe in Inputbox
Peter
Mit nachfolgendem Code wird ein Datum abgefragt. Wenn in der Inputbox nichts eigegeben wird, kommt Laufzeitfehler '13' "Typen unerträglich". Ich möchte jedoch, dass in diesem Fall nicht eine Fehlermeldung kommt, sondern eine Messagebox mit der Mitteilung: "Sie müssen ein Datum eingeben".
Mir ist nicht klar, wie ich den Code erweitern muss.
Danke für jede Hilfe.
Gruss, Peter
Sub Datum_ein
Dim Xdate as Date
If Range("zeDate") = "" or Range("zeDate") = 0 then
Xdate = Application.InputBox("Datum eingeben", "Datum", , , , , 1)
Else
Xdate = Application.InputBox("Datum eingeben", "Datum", Range("zeDate").Text, , , , 1)
Endif
'Wert updaten
If Xdate Range("zeDate") Then Range("zeDate") = Xdate
End Sub