Visual Basic: Eingabefeld= nur Zahlen kein Text

[rados]

Hallo zusammen

Ich brauche Eure Hilfe.

Ich möchte in einen Eingabefeld nur Zahlen eingeben lassen
es dürfen keine Buchstaben eingegeben werden da sonst eine Msgbox erscheinen soll die besagt "Bitte nur Zahlen eingeben"
Wie soll ich es programmieren?

Vielen Dank
Rados

 

[MarkusRd]

AW: Visual Basic: Eingabefeld= nur Zahlen kein Text

Hi,

hier mal ein kleiner Denkanstoß:

Sub zahlen()
Zahl = InputBox("Bitte eine Zahl eingeben")
If IsNumeric(Zahl) = False Then
MsgBox "Bitte eine Zahl eingeben"
End If
End Sub

Wenn dir das noch nicht weiterhelfen sollte, google mal nach IsNumeric, da solltest du fündig werden.

Gruß Markus

 

[0-Bock-Techniker]

AW: Visual Basic: Eingabefeld= nur Zahlen kein Text

Guten Morgen!


Unser Moderator hat mal wieder (fast) recht... ;)

...nur von einer InputBox war leider nie die Rede...


Ich würde in dem KeyUp-Ereignis der TextBox eine Abfrage auf
- IsNumeric
- Return
- Tab
- Backspace
- ...(Alle erlaubten Tasten)

machen und der Berta ... ... äh... "Else" ;) die Ausgabe der MsgBox als Aufgabe machen...


bzw. alternativ alle Buchstaben über einen KeySend{BackSpace} einfach killen...


Grüße an die Füße, 8)
Christian

 

[rados]

AW: Visual Basic: Eingabefeld= nur Zahlen kein Text

Hallo

Danke für die Antworten, aber da blicke ich nicht ganz durch.
Bin nicht so vertraut in VB.

Ich versuche es anders,

Ich habe ein Textfeld indem nur Zahlen kein Text und keine 0 eingegeben werden dürfen.
Wenn ich dann c.button (Berechnen, soll dann ein Volumen berechnet werden) betätige soll eine Msgbox erscheinen mit der Fehlermeldung.

Ich habe die Aufgabe bis jetzt so gelöst, aber mit dem Text habe ich Probleme.

t1 ist meine Textbox
b4 ist der c.button (Berechnen)
l10 ist das Bezeichnungsfeld

Private Sub b4_Click()
If l10 = "Kugel" Then
If t1 = Empty Then m1 = MsgBox("Geben Sie bitte den Durchmesser ein", vbCritical, "Fehler"): t1 = Empty: t1.SetFocus: GoTo ende:
If t1 = 0 Then m2 = MsgBox("Bitte keine 0 Werte eingeben", vbCritical, "Fehler"): t1 = Empty: t1.SetFocus: GoTo ende:
End If
ende:
End Sub

Gruß
Rado

 

[MarkusRd]

AW: Visual Basic: Eingabefeld= nur Zahlen kein Text

Unser Moderator hat mal wieder (fast) recht... ;)

...nur von einer InputBox war leider nie die Rede...

War ja auch eindeutig als Denkanstoß beschrieben ;)

 

[0-Bock-Techniker]

AW: Visual Basic: Eingabefeld= nur Zahlen kein Text

Hi!

If t1 = Empty Then m1 = MsgBox("Geben Sie bitte den Durchmesser ein", vbCritical, "Fehler"): t1 = Empty: t1.SetFocus: GoTo ende:
If t1 = 0 Then m2 = MsgBox("Bitte keine 0 Werte eingeben", vbCritical, "Fehler"): t1 = Empty: t1.SetFocus: GoTo ende:

Füge zu den Abfragen einfach noch eine Abfrage auf eine Zahl durch, z.B. so:
If IsNumeric(t1.text) = False then MsgBox + Setze Fokus + GoTo ende

Noch ein Tipp:
Benutze nicht die Standardeigenschaften von VB sondern schreibe immer die Gewünschte Eigenschaft aus; Übersichtlicher und Verständlicher...
Beispiel: anstatt If t1 = -> If t1.text =


Grüße an die Füße, 8)
Christian

 

[rados]

AW: Visual Basic: Eingabefeld= nur Zahlen kein Text

Danke Christian !!!
es funkt

Gruß
Rado

 

[0-Bock-Techniker]

AW: Visual Basic: Eingabefeld= nur Zahlen kein Text

Hi!


Super! Dann weiterhin noch viel Erfolg!!!

Grüße, Christian