Wie formatiert man Zahlen in einem Textfeld als Währung in Excel?
Normalerweise bietet Excel keine integrierte Funktion, um das Textformat in einem ActiveX-Textfeld zu ändern. Wenn Sie jedoch Zahlen, die in das Textfeld eingegeben werden, aus bestimmten Gründen als Währung formatieren möchten, lässt sich dies mithilfe einer einfachen VBA-Methode realisieren. Dieser Artikel führt Sie Schritt für Schritt durch den gesamten Vorgang.
Zahlen in einem Textfeld mit VBA-Code als Währung formatieren
Ein Textfeld mit VBA-Code als Währung formatieren
Der folgende VBA-Code unterstützt Sie dabei, Zahlen in einem Textfeld in Excel mühelos als Währung zu formatieren. Gehen Sie dazu wie folgt vor:
1. Klicken Sie auf Entwickler > Einfügen > Textfeld (ActiveX-Steuerelement), um ein Textfeld in das 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: Textfeld in Excel als Währung formatieren
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "$###,##")
End SubHinweis: Im Code steht TextBox1 für den Namen des Textfelds, dessen Zahlen Sie als Währung formatieren möchten. Ersetzen Sie ihn durch den Namen Ihres Textfelds.
4. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
5. Deaktivieren Sie den Entwurfsmodus.
Ab sofort wird jede Zahl, die Sie in das Textfeld eingeben, automatisch als Währung formatiert – wie im folgenden Screenshot gezeigt.
Verwandte Artikel:
- Wie ändert man den Text eines Textfelds in Excel, sobald es ausgewählt ist?
- Wie aktiviert man die automatische Vervollständigung eines Textfelds beim Tippen in Excel?
- Wie formatiert man ein Textfeld in Excel als Prozentsatz?
- Wie verknüpft man den Inhalt mehrerer Zellen in einem einzigen Textfeld in Excel?
- Wie kann man die Bearbeitung in einem Textfeld deaktivieren, 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