Gruppe
Dialog
Problem
Die Eingabe in eine InputBox soll auf eine gültige Zahl geprüft werden. Alternative: Verwendung einer Application.InputBox mit Typ-Festlegung.
StandardModule: Modul1
Sub Berechnung()
Dim vWert As Variant
Do While vWert = "" Or Not IsNumeric(vWert)
vWert = InputBox("Wert:")
If IsNumeric(vWert) Then Exit Do
MsgBox "Einen Wert, zum Teufel!"
Loop
MsgBox "Danke!"
End Sub