Hoe formatteert u getallen in een tekstvak als valuta in Excel?
Standaard biedt Excel geen ingebouwde functie om de tekstopmaak in een ActiveX-tekstvak aan te passen. Als u getallen die in het tekstvak worden ingevoerd echter als valuta wilt opmaken voor specifieke doeleinden, kunt u dit eenvoudig realiseren met een VBA-oplossing. Dit artikel begeleidt u stap voor stap door het proces.
Formatteer getallen in een tekstvak als valuta met VBA-code
Formatteer een tekstvak als valuta met VBA-code
De onderstaande VBA-code helpt u eenvoudig getallen in het tekstvak als valuta te formatteren in Excel. Volg hiervoor deze stappen:
1. Klik op Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement) om een tekstvak in het werkblad in te voegen. Zie de schermafbeelding:

2. Klik met de rechtermuisknop op het tekstvak en selecteer vervolgens Code weergeven in het contextmenu.

3. Vervang in het geopende venster Microsoft Visual Basic for Applications de oorspronkelijke code in het codovenster door de onderstaande VBA-code.
VBA-code: formatteer tekstvak als valuta in Excel
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "$###,##")
End Sub Opmerking: In de code is TextBox1 de naam van het tekstvak waarvan u de getallen als valuta wilt formatteren. Vervang deze door de naam van uw eigen tekstvak.
4. Druk tegelijkertijd op de toetsen Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
5. Schakel de ontwerpmodus uit.
Vanaf nu wordt elk getal dat u in het tekstvak invoert, automatisch opgemaakt als valuta, zoals te zien in de onderstaande schermafbeelding.

Gerelateerde artikelen:
- Hoe wijzigt u de optie ‘Automatisch selecteren’ voor een tekstvak zodra dit is geselecteerd in Excel?
- Hoe schakelt u automatisch aanvullen in voor een tekstvak terwijl u typt in Excel?
- Hoe formatteert u een tekstvak als percentage in Excel?
- Hoe voegt u tekst uit meerdere cellen samen in één tekstvak in Excel?
- Hoe schakelt u bewerken uit in een tekstvak om gebruikersinvoer te voorkomen in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins