Sub Euro()
Dim eingabe, ergebnis
start:
eingabe = InputBox("Bitte Betrag in DM eingeben!")
If eingabe = "" Then
MsgBox ("Sie müssen zuerst einen Betrag eingeben")
GoTo start
End If
If eingabe = 0 Then
MsgBox ("Sie müssen eine Zahl eingeben nicht 0!")
GoTo start
End If
so, nun macht er wenn man auf abbrechen klickt bei der inputbox das gleiche wie wenn man auf ok gedrückt hätte ohne vorherige eingabe, wie kann ich dies abfangen, also bei click auf abbrechen das makro beenden
Vielen dank für eure Hilfe.
Gruß _Markus
ergebnis = eingabe / 1.95583
MsgBox ("Betrag in Euro: " & ergebnis)
End Sub