Inputbox Makro läuft weiter
18.01.2014 21:07:35
Kerstin
ich habe ein kleines Problem. Wenn ich bei meinem Makro auf abbrechen klicke, läuft es trotzdem durch. Ich kapiers nicht, da mit StrPtr geprüft wird ob OK oder abbrechen geklickt wird.
Hat jemand einen Tipp?
Sub Checkliste()
Dim Datum As Variant
Do
Datum = Application.InputBox("Datum eingeben:", , "TT.MM.JJ")
If StrPtr(Datum) = 0 Then Exit Sub
If StrPtr(Datum) = 1 Or Datum = "" Then MsgBox "Datum fehlt!"
If Not IsDate(Datum) Then MsgBox "Das ist kein Datum!"
Loop Until IsDate(Datum)
ActiveSheet.Cells(1, 1) = CDate(Datum)
End Sub
Grüße Kerstin