Application.InputBox

Sub eintragen()
Dim zelle_1 As Range
Dim text1
Set zelle_1 = Application.InputBox( _
Prompt:="Markieren Sie eine Zelle:", Type:=8)

'Hier meine Frage:wenn ich den Abbruch-Button drücke, kommt folgende Fehlermeldung: Objekt erforderlich
'mit unterem Code habe ich versucht dies abzufangen, leider ohne Erfolg
'If zelle_1 = "Nothing" Then Exit Sub
'If zelle_1 = "" Then Exit Sub

zelle_1.Select
text1 = Application.InputBox( _
Prompt:="Texteingabe:", Type:=2)
If text1 = Falsch Then Exit Sub
ActiveCell = text1

End Sub

Kann mir jemand helfen.

Im voraus vielen Dank
g.heit