Getallen omzetten in woorden in Excel – Een uitgebreide handleiding

Beperkingen van deze methode:

• Werkt uitsluitend in Excel voor Microsoft 365, vanwege de TRANSLATE()-functie.
• De uitvoer is sterk afhankelijk van de nauwkeurigheid van de BAHTTEXT()-opmaak.
• Deze methode is geschikt voor valuta's die, net als Thaise Baht, zowel een hoofdeenheid als een ondergeschikte eenheid hebben (bijvoorbeeld dollars en cent). Het wordt niet aanbevolen voor valuta's die geen vergelijkbare structuur volgen.

Methode 2: Gebruik door gebruikers gedefinieerde VBA-functie

In dit gedeelte leert u hoe u een op VBA gebaseerde, door gebruikers gedefinieerde functie (UDF) gebruikt om numerieke waarden om te zetten in Engelse valutawoorden—standaard afgestemd op Amerikaanse dollars (USD).

Stap 1: VBA-code invoegen

1. Open het werkblad waarop u deze functie wilt toepassen.
2. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
3. Klik in de editor op 'Invoegen' > 'Module' en plak de volgende VBA-code.

   Function SpellNumberToEnglish(ByVal pNumber)
   'Update by Extendoffice
   Dim Dollars, Cents
   arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
   pNumber = Trim(Str(pNumber))
   xDecimal = InStr(pNumber, ".")
   If xDecimal > 0 Then
       Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
       pNumber = Trim(Left(pNumber, xDecimal - 1))
   End If
   xIndex = 1
   Do While pNumber <> ""
       xHundred = ""
       xValue = Right(pNumber, 3)
       If Val(xValue) <> 0 Then
           xValue = Right("000" & xValue, 3)
           If Mid(xValue, 1, 1) <> "0" Then
               xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
           End If
           If Mid(xValue, 2, 1) <> "0" Then
               xHundred = xHundred & GetTens(Mid(xValue, 2))
           Else
               xHundred = xHundred & GetDigit(Mid(xValue, 3))
           End If
       End If
       If xHundred <> "" Then
           Dollars = xHundred & arr(xIndex) & Dollars
       End If
       If Len(pNumber) > 3 Then
           pNumber = Left(pNumber, Len(pNumber) - 3)
       Else
           pNumber = ""
       End If
       xIndex = xIndex + 1
   Loop
   Select Case Dollars
       Case ""
           Dollars = "No Dollars"
       Case "One"
           Dollars = "One Dollar"
       Case Else
           Dollars = Dollars & " Dollars"
   End Select
   Select Case Cents
       Case ""
           Cents = " and No Cents"
       Case "One"
           Cents = " and One Cent"
       Case Else
           Cents = " and " & Cents & " Cents"
   End Select
   SpellNumberToEnglish = Dollars & Cents
   End Function
   Function GetTens(pTens)
   Dim Result As String
   Result = ""
   If Val(Left(pTens, 1)) = 1 Then
       Select Case Val(pTens)
           Case 10: Result = "Ten"
           Case 11: Result = "Eleven"
           Case 12: Result = "Twelve"
           Case 13: Result = "Thirteen"
           Case 14: Result = "Fourteen"
           Case 15: Result = "Fifteen"
           Case 16: Result = "Sixteen"
           Case 17: Result = "Seventeen"
           Case 18: Result = "Eighteen"
           Case 19: Result = "Nineteen"
           Case Else
       End Select
   Else
   Select Case Val(Left(pTens, 1))
       Case 2: Result = "Twenty "
       Case 3: Result = "Thirty "
       Case 4: Result = "Forty "
       Case 5: Result = "Fifty "
       Case 6: Result = "Sixty "
       Case 7: Result = "Seventy "
       Case 8: Result = "Eighty "
       Case 9: Result = "Ninety "
       Case Else
   End Select
   Result = Result & GetDigit(Right(pTens, 1))
   End If
   GetTens = Result
   End Function
   Function GetDigit(pDigit)
   Select Case Val(pDigit)
       Case 1: GetDigit = "One"
       Case 2: GetDigit = "Two"
       Case 3: GetDigit = "Three"
       Case 4: GetDigit = "Four"
       Case 5: GetDigit = "Five"
       Case 6: GetDigit = "Six"
       Case 7: GetDigit = "Seven"
       Case 8: GetDigit = "Eight"
       Case 9: GetDigit = "Nine"
       Case Else: GetDigit = ""
   End Select
   End Function

   

4. Druk op Alt + Q om terug te keren naar het werkblad.

Stap 2: De functie toepassen

1. Voer in een cel de onderstaande formule in en druk op „Enter”.
   =SpellNumberToEnglish(A2)
2. Sleep vervolgens de vulgreep naar beneden om deze toe te passen op andere rijen, indien nodig. Uw getallen worden nu uitgeschreven in woorden, zoals:

   

Aanpassen voor andere valuta's:

De functie geeft waarden uit in „Dollar(s)” en „Cent(s)”, die standaard alleen voor USD zijn vastgelegd. Als u getallen in andere valuta's wilt converteren, bijvoorbeeld „Brits pond”, moet u handmatig de hoofd- en ondergeschikte eenheden aanpassen in de volgende coderegels.

Sla de werkmap op als een bestand met macro's

Standaard blijven VBA-functies niet behouden tenzij de werkmap wordt opgeslagen als een werkmap met macro's:

1. Druk op Ctrl + S om op te slaan.
2. En selecteer de knop „Terug” in het pop-upbericht over macro's.
   Opmerking: als het pop-upbericht alleen „Ja”, „Nee” en „Help” toont, klikt u op „Nee”.

   

3. In het venster „Opslaan als”.
   1. Kies een opslaglocatie.
   2. Selecteer „Excel-werkmap met macro's (*.xlsm)” in de keuzelijst „Opmaak opgeven voor opslaan”.
   3. Klik op ‘Opslaan’.

      

Beperkingen van de SpellNumberToEnglish VBA-functie

• Deze functie levert resultaten uitsluitend in het Engels.
• Deze functie ondersteunt geen andere talen (zoals Frans of Duits) en kan ook geen valutanotaties verwerken waarbij de valutanaam vóór het bedrag staat (bijvoorbeeld „Rupees One Hundred” in Indiaas Engels).

• Als u de werkmap niet opslaat als een macro-insluitende werkmap (.xlsm), verdwijnt de functie zodra u Excel sluit.
• Als u het bestand opslaat als een standaard .xlsx-bestand, verdwijnt alle VBA-code.

• Wanneer u het bestand met macro's naar anderen verzendt, verschijnt bij het openen de waarschuwing: „Beveiligingswaarschuwing – Macro's zijn uitgeschakeld”.
• Sommige gebruikers aarzelen mogelijk om macro's in te schakelen uit angst voor beveiligingsrisico’s en besluiten het bestand daarom mogelijk niet te gebruiken.

• Elke wijziging in valutatermen of opmaak vereist een handmatige aanpassing van de VBA-code.
• Minder geschikt voor gebruikers die geen ervaring hebben met macro's of scripting.

Methode 3: Gebruik Kutools voor Excel (geen formules of VBA nodig)

Installeer „Kutools voor Excel” en gebruik de functie „Omzetten naar woorden” om getallen direct om te zetten naar Engels (als valuta of gewone woorden) of tientallen andere talen en valuta’s, zoals EUR, GBP, JPY en meer.

Als u zoekt naar een oplossing zonder code, gebruiksvriendelijk en veelzijdig om Omzetten naar woorden in Excel te converteren, biedt Kutools voor Excel een specifieke functie „Omzetten naar woorden” die ondersteuning biedt voor:

• Engels (USD, GBP, EUR, enz.)
• Tientallen andere talen en valuta's (bijvoorbeeld Japanse yen, Indiase roepie, Chinese yuan)
• Valuta-opmaak of gewone woorden (bijvoorbeeld „One Hundred Twenty-Three” in plaats van „One Hundred Twenty-Three Dollars”)

Stappen om te gebruiken:

1. Selecteer de cellen met de getallen die u wilt converteren.
2. Selecteer 'Kutools' > 'Inhoud' > 'Omzetten naar woorden'.
3. In het dialoogvenster „Getallen naar valutawoorden” moet u het volgende doen:
   1. Kies de taal en valutastijl die u voorkeur heeft (bijvoorbeeld Engels – Verenigde Staten voor USD)
   2. Klik op ‘OK’.

      

Optioneel: vink ‘Niet omzetten naar valuta’ aan als u gewone Engelse woorden wilt, zonder ‘dollars’ of ‘cents’.

Uw geselecteerde getallen worden nu automatisch omgezet naar de juiste valutawoorden, op basis van uw instellingen.

Omgekeerde bewerking: Valutawoorden omzetten naar getallen

Als u een lijst hebt met bedragen in valuta uitgeschreven in Engelse woorden, zoals:

en u wilt deze converteren naar daadwerkelijke getallen in Excel (bijv. 123,45), dan kunt u hiervoor een aangepaste, door gebruikers gedefinieerde VBA-functie (UDF) gebruiken zoals hieronder weergegeven.

Stap 1: Open de VBA-editor en voeg VBA-code in

1. Open uw Excel-werkboek.
2. Druk op Alt + F11 om de Microsoft Visual Basic for Applications (VBA)-editor te openen.
3. Klik in de VBA-editor op 'Invoegen' > 'Module'.
4. Kopieer en plak de volgende VBA-code in het lege modulevenster:

   Function WordsToNumber(ByVal Txt As String) As Double
   'Updated by Extendoffice
       Dim x As Object: Set x = CreateObject("Scripting.Dictionary")
       Dim units, tens, specials
       Dim part As String, parts() As String
       Dim total As Double, partial As Double, multiplier As Double
       Dim i As Long, word As String
       
       Txt = LCase(Trim(Txt))
       Txt = Replace(Txt, ",", "")
       Txt = Replace(Txt, "-", " ")
       Txt = Replace(Txt, " and ", " ")
       Txt = Replace(Txt, "  ", " ")
       
       ' Setup basic number words
       x.Add "zero", 0: x.Add "one", 1: x.Add "two", 2: x.Add "three", 3
       x.Add "four", 4: x.Add "five", 5: x.Add "six", 6: x.Add "seven", 7
       x.Add "eight", 8: x.Add "nine", 9: x.Add "ten", 10: x.Add "eleven", 11
       x.Add "twelve", 12: x.Add "thirteen", 13: x.Add "fourteen", 14
       x.Add "fifteen", 15: x.Add "sixteen", 16: x.Add "seventeen", 17
       x.Add "eighteen", 18: x.Add "nineteen", 19: x.Add "twenty", 20
       x.Add "thirty", 30: x.Add "forty", 40: x.Add "fifty", 50
       x.Add "sixty", 60: x.Add "seventy", 70: x.Add "eighty", 80
       x.Add "ninety", 90: x.Add "hundred", 100: x.Add "thousand", 1000
       x.Add "million", 1000000: x.Add "billion", 1000000000
       
       Dim dollarPart As String, centPart As String
       Dim dollarValue As Double, centValue As Double
       
       ' Split into dollars and cents
       If InStr(Txt, "dollar") > 0 Then
           dollarPart = Trim(Split(Txt, "dollar")(0))
       End If
       If InStr(Txt, "cent") > 0 Then
           centPart = Trim(Split(Txt, "cent")(0))
           If InStr(centPart, "dollar") > 0 Then
               centPart = Trim(Split(centPart, "dollar")(1))
           End If
       End If
       
       dollarValue = ParseWordsToNumber(dollarPart, x)
       centValue = ParseWordsToNumber(centPart, x)
       
       WordsToNumber = dollarValue + centValue / 100
   End Function
   
   Private Function ParseWordsToNumber(ByVal Txt As String, x As Object) As Double
       Dim parts() As String: parts = Split(Txt, " ")
       Dim total As Double, current As Double
       Dim i As Long, val As Double
       
       For i = 0 To UBound(parts)
           If x.exists(parts(i)) Then
               val = x(parts(i))
               Select Case val
                   Case 100
                       If current = 0 Then current = 1
                       current = current * val
                   Case Is >= 1000
                       If current = 0 Then current = 1
                       total = total + current * val
                       current = 0
                   Case Else
                       current = current + val
               End Select
           End If
       Next i
       
       total = total + current
       ParseWordsToNumber = total
   End Function

Stap 2: Pas de functie toe in uw werkblad

1. Druk op Alt + Q om terug te keren naar Excel.
2. Voer deze formule in een lege cel in en druk op Enter. Sleep de vulgreep omlaag om de overige resultaten te krijgen.
   =WordsToNumber(A2)

   

Conclusie

Het omzetten van Omzetten naar woorden—of woorden terug naar getallen—is niet iets wat Excel standaard aanbiedt, maar deze handleiding heeft aangetoond dat er meerdere praktische oplossingen zijn, afhankelijk van uw behoeften:

• Gebruikers van Microsoft 365 kunnen gebruikmaken van moderne ingebouwde functies zoals TRANSLATE om valutagetallen om te zetten in Engelse woorden met formules, vooral voor valuta’s met een „hoofd- + ondergeschikte eenheid”-structuur.
• Door gebruikers gedefinieerde VBA-functies bieden extra flexibiliteit, zowel bij het omzetten van getallen naar woorden als bij het terugzetten van valutawoorden naar numerieke waarden. Ze brengen echter beveiligingsrisico’s met zich mee en zijn vooral geschikt voor gebruikers met programmeerervaring.
• Kutools voor Excel biedt de eenvoudigste, meertaligste en meest uitgebreide oplossing—zonder formules of codering, en met ondersteuning voor tientallen valuta’s en talen.
• Als u woorden weer wilt omzetten naar getallen, voldoet de VBA-oplossing hier perfect aan—al kan er enige opschoning nodig zijn (zoals het verwijderen van komma’s) voor nauwkeurige resultaten.

Of u nu financiële documenten voorbereidt, het afdrukken van cheques automatiseert of eenvoudigweg de presentatie van gegevens verbetert – met de juiste methode behaalt u professionele en nauwkeurige resultaten.

Beste Office-productiviteitshulpmiddelen

🤖	KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
	Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
	Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
	Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
	Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
	Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
	Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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...

Meer details over Kutools voor Excel...Gratis downloaden...

---

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!

Meer details over Office Tab...Gratis downloaden...

---

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

Meer details over Kutools for Office...Gratis downloaden...