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"