Textboxeingabe nur ganze zahlen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Textboxeingabe nur ganze zahlen von: Andreas
Geschrieben am: 16.02.2005 18:56:38

Hallo zusammen,

ich habe in einer UserForm eine Textbox, in der ich nur ganze Zahlen zulassen möchte.
Die Textbox´n sind auf maximale Stellen begrenzt.
Dies habe ich mit Maxlength in den Eigenschaften des VisualBasicEditor geregelt.
Gibt es da auch einen Code, oder ist das die beste Lösung.

Textbox1 4 Stellen zulassen (nur ganze Zahlen zulassen!)
Textbox2 3 Stellen zulassen (nur ganze Zahlen zulassen!)
Textbox3 2 Stellen zulassen (nur ganze Zahlen zulassen!)

Mein Code:

Private Sub TextBox1_Change()
Range("Daten!d116") = CInt(TextBoxBLOL)
End Sub


Jetzt zu meiner Frage:
Wenn ich auf entfernen gehe (also eine leere Textbox habe), bringt er mir eine Fehlermeldung.

Wie muß ich denn den Code verändern, damit ich nur ganze Zahlen zulassen kann und keine Kommas oder Buchstaben.

Danke im voraus.

Grüße

Andy
Bild


Betrifft: AW: Textboxeingabe nur ganze zahlen von: ransi
Geschrieben am: 16.02.2005 19:31:17

hallo andy

MaxLenght ist gut.

Wenn du die werte in den Boxen von Hand eingibst geht die beschränkung auf zahlen z.B.
so:

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) And Not TextBox1 = "" Then _
TextBox1 = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End Sub


ransi


Bild


Betrifft: AW: Textboxeingabe nur ganze zahlen von: simon
Geschrieben am: 16.02.2005 19:33:34

hallo andy,

probiers mal mit dem code, einfach in die eigenschaft keyPress einsetzten, es werden nur die zahlen von 0-9 zugelassen

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9]" = False Then KeyAscii = 0 
End Sub


gruß simon


Bild


Betrifft: AW: Textboxeingabe nur ganze zahlen von: Andreas
Geschrieben am: 16.02.2005 21:29:01

Danke

funktioniert gut...

Gruß Andy


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textboxeingabe nur ganze zahlen"