HERBERS Excel-Forum - die Beispiele

Thema: InputBox-Eingabe auf gültige Zahl prüfen

Home

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.

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und InputBox

Cursor Inputbox xlDialogInsertHyperlink.show
Wiederholung - Inputbox Inputbox erstellen
InputBox Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Frage zu InputBox Druckerdialog
Dateityp im "Speichern unter"-Dialog vorgeben Makro stoppen, wenn Excel-Dialog?
xlDialogOpen anpassen Alternative Eingaben über InputBox
Klick in definierten Rangebereich startet Dialog Bereich per INPUTBOX markieren und auswerten
InputBox Fehlermeldung bei Inputbox-Abbruch
Inputbox: Schließkreuz auswerten + Sub beenden xlDialogOpen bei Excel 2007 funzt nicht
FileDialog inkl. Anklicken von Desktop, Eigene D. SheetIndex aus Range- Inputbox auslesen
InputBox mit Gültigkeit Inputbox mit Paßwortfeld
InputBox - Eingabeformat abfangen Grösse Dialogfenster der InputBox
Inputbox f. Range läßt sich nicht abbrechen InputBox Eingabe Erweiterung
Dialogfeld unterdrücken Zelle über Inputbox füllen
Inputbox Abbrechen mit Exit Sub belegen Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr Dialog "Verknüpfung aktualisieren"
Negative Uhrzeit über Inputbox eingeben InputBox muss ausgefüllt werden
Inputboxabfrage für Dezimalstellen/ Abbrechen Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog
Filedialog PrintTitleRows flexibel über Inputbox
Inputbox: Zahlenprüfung/ Abbruch zulassen Herber/Beispiele/Dialoge/Checkbox/137601
Rows("6:6") über Inputbox Bilder bei Click im Dialogfeld
Suchdialog über VBA aufrufen mit Wert aus Combobox Dialog öffnen
Diagramm als Grafik mit Speicherdialog exportieren Dialogfenster zum kopieren