Wie kann man zulassen, dass nur Zahlen in ein Textfeld eingegeben werden?
In Excel können wir die Datenüberprüfungsfunktion anwenden, um nur die Eingabe von Zahlen in Zellen zu ermöglichen. Manchmal möchte ich jedoch, dass nur Zahlen in ein Textfeld sowie in Zellen eingegeben werden. Wie akzeptiere ich nur Zahlen in einem Textfeld in Excel?
Teilen Sie einen Zellbereich durch eine Zahl mit der Funktion Einfügen Spezial
Teilen Sie einen Zellbereich durch eine Zahl mit der Funktion Einfügen Spezial
Der folgende VBA-Code kann Ihnen helfen, Zahlen, Punkte (.) Und ein negatives Vorzeichen nur in ein Textfeld einzugeben. Gehen Sie dazu folgendermaßen vor:
1. Erstellen Sie ein Textfeld, indem Sie auf klicken Entwickler:in / Unternehmen > Insert > Textfeld (ActiveX-Steuerelement)und zeichnen Sie dann nach Bedarf ein Textfeld, siehe Screenshot:
2. Klicken Sie dann mit der rechten Maustaste auf das Textfeld und wählen Sie Code anzeigen aus dem Kontextmenü, um das zu öffnen Microsoft Visual Basic für Applikationen Fenster, und ersetzen Sie dann den Originalcode durch den folgenden VBA-Code in das leere Modul:
VBA-Code: Es dürfen nur Zahlen in das Textfeld eingegeben werden:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub
3. Speichern und schließen Sie dann das Codefenster und beenden Sie das EntwurfsmodusJetzt können nur noch Zahlen, Punktsymbol und negatives Vorzeichen in das Textfeld eingegeben werden, siehe Screenshot:
In Verbindung stehende Artikel:
Wie wende ich die Rechtschreibprüfung im Textfeld an?
Wie ändere ich die Farbe des Textfelds basierend auf dem Wert in Excel?
Wie füge ich ein Bild in ein Textfeld ein?
Wie lege ich einen Standardwert in einem Textfeld fest?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
- Zuletzt aktualisiert am .