Abbruchtaste bei Inputbox
19.12.2016 13:23:17
Lutz
ich habe ein Problem bei dem mir auch die Online-suche nicht weitergeholfen hat.
Ich frage in einem Programm eine Eingabe per Input-Box ab:
Sub FreierPreis()
Freipreis = CDbl(InputBox("Preis eingeben"))
Call suchpreis
End Sub
Sub suchpreis()
Dim bb
ActiveSheet.Unprotect
bb = [Eingabe!c50] - 1
Cells(bb, 16).Select
Selection = Freipreis
ActiveSheet.Protect
End Sub
Mein Hauptproblem ist die Abbruchtaste der Inputbox - wenn man auf die klickt kommt der Fehlercode: Laufzeitfehler 13 - Typen unverträglich.
Was muss ich tun damit bei Abbruch einfach ohne Eingabe abgebrochen wird?
Weiß jemand Rat?
Vielen Dank und viele Grüße Lutz