Office: Inputbox: nur Zahlen und Kommazeichen erlauben

kryox · 17. April 2017

Hallo liebe Community,

mit folgendem Code rufe ich über einen Button und einer Inputbox nach Abfrage eines bestimmten Wertes einer Tabelle Daten von einer SQL-Datenbank ab.

Da ich nun gerne mehrere Werte abrufen möchte, müsste ich die Isnumeric Prüfung erweitern.

Es funktioniert beispielsweise 2 Werte abzurufen (z.b 1,2), da das ja als Zahl erkannt wird.
Bei 3 Werten wird meckert Excel natürlich da eine Zahl keine 2 Kommazeichen hat (z.b 1,2,3)

Gibt es eine Möglichkeit zu prüfen ob der in der Inputbox eingegebene Wert nur aus Zahlen und Kommazeichen besteht?

Vielen Dank schonmal für eure hilfe *Smilie

Code:

Sub SQL()
Dim wert As String
Anfang:
wert = InputBox("Werte?")
If wert = "" Then Exit Sub
If IsNumeric(wert) Then

Else
MsgBox "Es dürfen nur Zahlen eingegeben werden!", vbCritical, "Nur Zahlen eingeben!"
GoTo Anfang
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

grüße
kryox

:)

R J · 19. April 2017

Hi kyrox,

und Leerzeichen auch?

Code:

Sub SQL()
Dim wert As String, x%, ok As Boolean
Anfang:
wert = InputBox("Werte?", "Eingabe", "1 , 2, 3a")
If wert = "" Then Exit Sub

If IsNumeric(wert) Then

Else
For x = 1 To Len(wert)
Select Case Mid(wert, x, 1)
Case 0 To 9, ",", " ": ok = True
Case Else: ok = False: Exit For
End Select

Next x
If Not ok Then
MsgBox "Es dürfen nur Zahlen und Kommas eingegeben werden!", vbCritical, "Nur Zahlen eingeben!"
GoTo Anfang
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jonas0806 · 19. April 2017

Hallo,

hier noch eine Schleifenfreie Lösung
Code:

wert = InputBox("Werte?", "Eingabe", "1 , 2, 3a")
wertSubst = WorksheetFunction.Substitute(wert, ",", "")
If IsNumeric(wertSubst) Then
If (Len(wertSubst) = (Len(wert) - 1)) Or (Len(wertSubst) = Len(wert)) Then
'Alles OK
End If
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kryox · 19. April 2017

Funktioniert perfekt. Vielen Dank euch beiden *Smilie

Luschi · 19. April 2017

Hallo

mit der richtigen Funktionsauswahl von 'InputBox' übernimmt Excel die Kontrolle der Eingabewerte: Code:

Sub test1()
Dim wert As Double

wert = Application.InputBox("Zahlenwert eingeben:", , , , , , , 1)
Debug.Print wert
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Office: Inputbox: nur Zahlen und Kommazeichen erlauben

Inputbox: nur Zahlen und Kommazeichen erlauben

Inputbox: nur Zahlen und Kommazeichen erlauben

Inputbox: nur Zahlen und Kommazeichen erlauben

Inputbox: nur Zahlen und Kommazeichen erlauben - Similar Threads - Inputbox Zahlen Kommazeichen

Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

VBA Daten in Array durch inputbox befüllen lassen

Abbrechen Button bei Inputbox

VBA Makro abbrechen durch Inputbox

Datumssuche mit Inputbox

Array mit Range aus InputBox befüllen geht nicht

Summe aller Zahlen einer Inputbox