Hi,
in die Inputbox soll vom Anwender eine Zahl >0 eingegeben werden (funktioniert auch^^).
Mein Problem: Wenn er jedoch ausversehen einen Text eingibt, soll die Inputbox ebenfalls neu starten.
Ich habe es mehrere Stunden probiert mit Variablendeklaration etc. und leider noch keine Lösung finden können... Bitte um Hilfe!
...
Dim varAnlagesumme As Variant
Do Until varAnlagesumme > 0
varAnlagesumme = InputBox("Anzulegender Betrag [€]: ", "Anlagesumme", "1000")
If varAnlagesumme = "" Then Exit Sub 'damit der Abbrechen-Button auch funktioniert
Loop
... |