Wie formatiert man ein Textfeld in Excel als Prozentsatz?
In einem früheren Artikel haben wir erklärt, wie Zahlen in einem Textfeld in Excel als Währung formatiert werden. Diesmal zeigen wir, wie Sie Zahlen in einem Textfeld automatisch als Prozentsätze darstellen. Mit VBA stellen Sie sicher, dass jede eingegebene Zahl sofort im passenden Prozentformat erscheint – für eine stets konsistente und professionelle Datendarstellung.
Textfeldeinträge mithilfe von VBA-Code als Prozentsätze formatieren
Textfeldeinträge mithilfe von VBA-Code als Prozentsätze formatieren
Führen Sie die folgenden Schritte aus, um ein Textfeld per VBA-Code als Prozentsatz zu formatieren.
1. Klicken Sie auf „Entwickler“ > „Einfügen“ > „Textfeld (ActiveX-Steuerelement)“, um ein Textfeld in Ihr Arbeitsblatt einzufügen. Siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf das Textfeld und wählen Sie im Kontextmenü „Code anzeigen“.
3. Ersetzen Sie im geöffneten Fenster „Microsoft Visual Basic for Applications“ den ursprünglichen Code im Codefenster durch den folgenden VBA-Code.
VBA-Code: Ein Textfeld als Prozentsatz in Excel formatieren
Private Sub TextBox1_LostFocus()
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xText As String
Dim xReplace As String
On Error Resume Next
Application.ScreenUpdating = False
xText = Me.TextBox1.Text
xText = Replace(xText, "%", "")
With xReg
.Global = True
.Pattern = "([^0-9]+\d+)|(\d{1,})"
Set xMatches = .Execute(xText)
For Each xMatch In xMatches
xReplace = xReplace & xMatch.Value & "%"
Next
End With
xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
Me.TextBox1.Text = xText
Application.ScreenUpdating = True
End SubHinweis: Ersetzen Sie „TextBox1“ durch den Namen des verwendeten Textfelds.
4. Klicken Sie auf „Extras“ > „Verweise“. Aktivieren Sie im Dialogfeld „Verweise – VBAProject“ das Kontrollkästchen „Microsoft VBScript Regular Expressions“ und bestätigen Sie mit „OK“. Siehe Screenshot:
5. Drücken Sie „Alt“ + „Q“, um das Fenster „Microsoft Visual Basic for Applications“ zu schließen.
6. Sobald Sie zum Arbeitsblatt zurückkehren, deaktivieren Sie den Entwurfsmodus, indem Sie erneut auf „Entwickler“ > „Entwurfsmodus“ klicken.
Ab sofort werden Zahlen, die Sie in das Textfeld eingeben, automatisch als Prozentsätze formatiert, sobald Sie den Cursor aus dem Textfeld bewegen und auf eine beliebige Zelle klicken.
Verwandte Artikel:
- Wie formatiert man ein Textfeld in Excel als Währung?
- Wie kann man die automatische Auswahl des Textes in einem Textfeld erreichen, sobald es in Excel ausgewählt wird?
- Wie aktiviert man die Autovervollständigung für ein Textfeld beim Tippen in Excel?
- Wie verknüpft man den Inhalt mehrerer Zellen zu einem einzigen Textfeld in Excel?
- Wie deaktiviert man die Bearbeitung in einem Textfeld, um Benutzereingaben in Excel zu verhindern?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins