Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

InputBox-Eingabe auf gültige Zahl prüfen

Gruppe

InputBox

Problem

Die Eingabe in eine InputBox soll auf eine gültige Zahl geprüft werden. Alternative: Verwendung einer Application.InputBox mit Typ-Festlegung.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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