Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Textboxeingabe nur ganze zahlen
16.02.2005 18:56:38
Andreas
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxeingabe nur ganze zahlen
ransi
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
AW: Textboxeingabe nur ganze zahlen
16.02.2005 19:33:34
simon
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
Anzeige
AW: Textboxeingabe nur ganze zahlen
16.02.2005 21:29:01
Andreas
Danke
funktioniert gut...
Gruß Andy

64 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige