ich habe heute eine Inputbox in eines meiner Makros gebaut. Ein Beispiel mit Errorhandler, welches die Eingabe einer Zahl erzwingt, fand ich hier im Forum:
Sub InputBoxA()
Dim lValue As Long
On Error GoTo ERRORHANDLER
lValue = InputBox("Bitte eine Ganzzahl eingeben:")
If lValue = False Then Exit Sub
MsgBox lValue
Exit Sub
ERRORHANDLER:
MsgBox "Nur Zahlen erlaubt!"
Resume
End Sub
Das Problem ist, das auch bei Drücken des "Abbrechen" Buttons der Errorhandler anspringt. Ich bekomme es in meinen Versuchen hin, daß ich entweder prüfen kann, ob es eine Zahl ist - wenn nicht, neuer Versuch oder aber das das Abbrechen gut funktioniert. Wenn der User auf abbrechen clickt, soll die Inputbox verschwinden. Aber beides in Kombination bekomme ich nicht hin.
Ich bin nun schon ein bißchen verwirrt, was Inputbox und application.inputbox so alles bewirken können und komme nicht weiter...
Wie schaffe ich die Kombination: Zahl größer 0 erzwingen, den Anwender aber auch rauslassen, wenn er Abbrechen klickt?
Vielen Dank für Eure Mühe.
Grüße, Andreas