Hi,
Single erwartet eine Zahl. Wenn man nichts oder Buchstaben eingibt, ist das keine Zahl und es wird ein Fehler erzeugt.
Dimensioniere als String oder Variant, dann sollte es klappen.
Dim vEingabe As Variant
vEingabe = InputBox("Bitte eine Zahl eingeben.")
Gruß KH
|