Hallo zusammen,

folgendes Problem:
Über eine Inputbox soll der Benutzer einen Radius eingeben.
1. der Wert soll überprüft werden ob numerisch und größer null
des klappt mit unten angegebenen Quellcode auch prima (Variable ist als Variant deklariert).
2. Jetzt soll aber beim klicken von "Abbrechen" bei der InputBox die Sub beendet werden. So wie es jetzt ist gilt abbrechen als Fehleingabe und die MsgBox erscheint.
Ich hab schon mit "If vbCancel = 2 Then Exit Sub" ausprobiert aber egal wo ich des einfüge funktioniert es net so ganz, da dann die Sub auch bei Fehleingaben beendet wird.

----------------
Do
varRadius = InputBox("Bitte geben Sie den Zylinderradius in cm ein")
If (IsNumeric(varRadius) And varRadius > 0) Then Exit Do
MsgBox ("Bitte geben Sie einen positiven, numerischen Wert ein!")
Loop
----------------

Hat jemand ne Lösung?

MfG
Daniel