Textbox-Eingabe für ganze Zahlen in Excel
Schritt-für-Schritt-Anleitung
Um in einer UserForm in Excel nur ganze Zahlen in einer TextBox zuzulassen, kannst du folgende Schritte befolgen:
-
Öffne den Visual Basic for Applications (VBA) Editor:
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
-
Füge eine UserForm hinzu:
- Klicke auf
Einfügen und wähle UserForm.
-
Füge TextBoxen hinzu:
- Ziehe die TextBoxen auf die UserForm und benenne sie entsprechend (z.B.
TextBox1, TextBox2, etc.).
-
Einstellungen für die TextBoxen:
- Stelle in den Eigenschaften der TextBoxen die
MaxLength auf die gewünschte Anzahl an Stellen ein (z.B. 4 für TextBox1).
-
Code zum Zulassen nur ganzer Zahlen:
- Füge den folgenden Code in das Codefenster der UserForm ein:
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) And Not TextBox1 = "" Then
TextBox1 = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub
Dieser Code stellt sicher, dass nur ganze Zahlen eingegeben werden können.
-
Erstelle einen KeyPress-Event:
- Um sicherzustellen, dass nur die Ziffern 0-9 eingegeben werden, füge den folgenden Code für das
KeyPress-Ereignis hinzu:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9]" = False Then KeyAscii = 0
End Sub
Häufige Fehler und Lösungen
Alternative Methoden
Falls du Excel nur positive Werte zulassen möchtest, kannst du den Code entsprechend anpassen:
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Or Val(TextBox1) < 0 Then
TextBox1 = ""
End If
End Sub
Dies stellt sicher, dass nur positive ganze Zahlen akzeptiert werden.
Praktische Beispiele
- Beispiel 1: Eingabe von 4-stelligen ganzen Zahlen
- Beispiel 2: Eingabe von 3-stelligen ganzen Zahlen
- Beispiel 3: Eingabe von 2-stelligen positiven Werten
Diese Beispiele kannst du leicht umsetzen, indem du die Anzahl der Stellen in der MaxLength-Eigenschaft der jeweiligen TextBox anpasst.
Tipps für Profis
- Verwende
InputMask: Überlege, eine Eingabemaske zu verwenden, um das Format der Eingabe zu steuern.
- Regelmäßige Überprüfung: Stelle sicher, dass der Code regelmäßig überprüft wird, wenn neue TextBoxen hinzugefügt werden.
- Testen in verschiedenen Excel-Versionen: Teste den Code in verschiedenen Excel-Versionen, um sicherzustellen, dass er überall funktioniert.
FAQ: Häufige Fragen
1. Was sind ganze Zahlen?
Ganze Zahlen sind nicht-negative oder negative Zahlen ohne Dezimalstellen, z.B. -1, 0, 1, 2, 3.
2. Wie kann ich sicherstellen, dass nur ganze Zahlen in Excel eingegeben werden?
Verwende die oben beschriebenen VBA-Codes, um die Eingabe in TextBoxen zu kontrollieren und nur ganze Zahlen zuzulassen.