Abbrechen via InputBox
15.11.2017 15:19:53
Max
Es soll in eine InputBox Werte eingegeben werden und durch Abbrechen soll das komplette Makro, noch besser das Modul gestoppt werden.
Hier mein Code:
Sub Wert ()
Do While True
y = Val(InputBox(prompt:="Bitte geben Sie einen Wert ein", Title:="Eingabe"))
If StrPtr(y) = 0 Then Exit
If y = 0 Then
Exit Do
ElseIf y = 1 Then
Exit Do
ElseIf y = 2 Then
Exit Do
Else....
End If
Loop
End Sub
Sub -> Mit dieser Zeile sollte ich doch in der Lage sein durch anklicken auf Abbrechen, das _
Makro zu stoppen oder? Aber es wird einfach fortgesetzt. Das kann doch nicht so schwer sein...
LG, Max