Zahlen in Wörter umwandeln in Excel – Ein umfassender Leitfaden

Einschränkungen dieser Methode:

• Funktioniert ausschließlich in Excel für Microsoft 365 (wegen der TRANSLATE()-Funktion).
• Die Ausgabe hängt stark von der Genauigkeit der BAHTTEXT()-Formatierung ab.
• Diese Methode eignet sich ideal für Währungen wie den thailändischen Baht, die sowohl eine Haupteinheit als auch eine Untereinheit besitzen – beispielsweise Dollar und Cent. Für Währungen mit einer anderen Struktur wird sie nicht empfohlen.

Methode 2: Verwenden Sie eine VBA-benutzerdefinierte Funktion

In diesem Abschnitt erfahren Sie, wie Sie mithilfe einer VBA-basierten benutzerdefinierten Funktion (UDF) numerische Werte in englische Währungswörter umwandeln – standardmäßig für US-Dollar (USD).

Schritt 1: VBA-Code einfügen

1. Öffnen Sie das Arbeitsblatt, in dem Sie diese Funktion nutzen möchten.
2. Drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
3. Klicken Sie im Editor auf „Einfügen“ > „Modul“ und fügen Sie den folgenden VBA-Code ein.

   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. Drücken Sie „Alt“ + „Q“, um zum Arbeitsblatt zurückzukehren.

Schritt 2: Funktion anwenden

1. Geben Sie in einer Zelle die folgende Formel ein und drücken Sie „Enter“.
   =SpellNumberToEnglish(A2)
2. Ziehen Sie anschließend das Ausfüllkästchen nach unten, um die Formel bei Bedarf auf weitere Zeilen anzuwenden. Ihre Zahlen werden nun als Wörter dargestellt, z. B.:

   

Anpassung für andere Währungen:

Die Funktion gibt Werte in „Dollar“ und „Cent“ aus, da sie fest für USD programmiert ist. Möchten Sie Zahlen in eine andere Währung umwandeln – beispielsweise in „Britisches Pfund“ –, müssen Sie die Haupteinheit und Untereinheit in den folgenden Codezeilen manuell anpassen.

Speichern Sie die Arbeitsmappe als makrofähige Datei

Standardmäßig bleiben VBA-Funktionen nur erhalten, wenn die Arbeitsmappe als makrofähige Arbeitsmappe gespeichert wird:

1. Drücken Sie „Strg“ + „S“, um Ihre Änderungen zu speichern.
2. Und wählen Sie im Popup-Fenster zur Makro-Warnung die Schaltfläche „Zurückkehren“.
   Hinweis: Wenn im Popup-Fenster nur „Ja“, „Nein“ und „Hilfe“ angezeigt werden, klicken Sie auf „Nein“.

   

3. Im Fenster „Speichern unter“
   1. Wählen Sie einen Speicherort aus.
   2. Wählen Sie in der Dropdown-Liste „Speichern im Format“ die Option „Excel-Arbeitsmappe mit Makros (*.xlsm)“ aus.
   3. Klicken Sie auf „Speichern“.

      

Einschränkungen der VBA-Funktion SpellNumberToEnglish

• Diese Funktion liefert Ergebnisse ausschließlich auf Englisch.
• Sie unterstützt weder weitere Sprachen (z. B. Französisch, Deutsch) noch Währungsformate, bei denen die Währungseinheit vor dem Betrag steht (z. B. „Rupees One Hundred“ im indischen Englisch).

• Wenn Sie die Arbeitsmappe nicht als makrofähige Arbeitsmappe (.xlsm) speichern, geht die Funktion beim Schließen von Excel verloren.
• Beim Speichern als normale .xlsx-Datei wird sämtlicher VBA-Code entfernt.

• Beim Öffnen der makrofähigen Datei durch andere Benutzer erscheint eine Sicherheitswarnung mit dem Hinweis: „Makros wurden deaktiviert“.
• Einige Benutzer zögern möglicherweise, Makros zu aktivieren, da sie Sicherheitsrisiken befürchten, und verzichten daher unter Umständen auf die Nutzung der Datei.

• Änderungen an Währungsbegriffen oder Formatierungen erfordern eine manuelle Anpassung des VBA-Codes.
• Nicht ideal für Benutzer, die keine Erfahrung mit Makros oder Skripting haben.

Methode 3: Verwenden Sie Kutools für Excel (keine Formeln oder VBA erforderlich)

Wenn Sie „Kutools für Excel“ installiert haben, nutzen Sie die Funktion „In Wörter umwandeln“, um Zahlen in englische Wörter (als Währung oder reine Zahlwörter) sowie in Dutzende weiterer Sprachen und Währungen wie EUR, GBP, JPY usw. zu konvertieren.

Wenn Sie nach einer codefreien, benutzerfreundlichen und vielseitigen Lösung zur Umwandlung von In Wörter umwandeln in Excel suchen, bietet Kutools für Excel eine spezielle Funktion „In Wörter umwandeln“, die Folgendes unterstützt:

• Englisch (USD, GBP, EUR usw.)
• Dutzende weitere Sprachen und Währungen (z. B. Japanischer Yen, Indische Rupie, Chinesischer Yuan)
• Währungsformat oder reine Wortform (z. B. „One Hundred Twenty-Three“ statt „One Hundred Twenty-Three Dollars“)

So verwenden Sie die Funktion:

1. Wählen Sie die Zellen aus, die die zu konvertierenden Zahlen enthalten.
2. Wählen Sie „Kutools“ > „Inhalt“ > „In Wörter umwandeln“.
3. Im Dialogfeld „Zahlen in Währungswörter umwandeln“ müssen Sie Folgendes tun:
   1. Wählen Sie Ihre bevorzugte Sprache und Währungsnotation (z. B. Englisch – Vereinigte Staaten für USD).
   2. Klicken Sie auf „OK“.

      

Optional: Aktivieren Sie „Nicht in Währung umwandeln“, wenn Sie reine englische Wörter ohne „Dollar“ oder „Cent“ erhalten möchten.

Ihre ausgewählten Zahlen werden nun gemäß Ihren Einstellungen automatisch in die passenden Währungswörter umgewandelt.

Umkehrfunktion: Währungswörter in Zahlen umwandeln

Wenn Sie eine Liste von Währungsbeträgen in Form englischer Wörter vorliegen haben, z. B.:

und Sie diese in tatsächliche Zahlen in Excel umwandeln möchten (z. B. 123,45), können Sie dafür eine benutzerdefinierte VBA-Funktion (UDF) wie folgt verwenden.

Schritt 1: Öffnen Sie den VBA-Editor und fügen Sie den VBA-Code ein

1. Öffnen Sie Ihre Excel-Arbeitsmappe.
2. Drücken Sie „Alt“ + „F11“, um den Microsoft Visual Basic for Applications (VBA)-Editor zu öffnen.
3. Klicken Sie im VBA-Editor auf „Einfügen“ > „Modul“.
4. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das leere Modulfenster ein:

   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

Schritt 2: Wenden Sie die Funktion in Ihrem Arbeitsblatt an

1. Drücken Sie „Alt“ + „Q“, um zurück zu Excel zu wechseln.
2. Geben Sie in eine beliebige leere Zelle diese Formel ein und drücken Sie „Enter“. Ziehen Sie anschließend das Ausfüllkästchen nach unten, um die übrigen Ergebnisse zu erhalten.
   =WordsToNumber(A2)

   

Fazit

Die Umwandlung von In Wörter umwandeln – oder die Rückumwandlung von Wörtern in Zahlen – wird von Excel nicht nativ unterstützt, doch dieser Leitfaden hat gezeigt, dass es je nach Anforderung mehrere praktikable Lösungen gibt:

• Benutzer von Microsoft 365 können moderne integrierte Funktionen wie TRANSLATE nutzen, um Währungsbeträge mithilfe von Formeln in englische Wörter umzuwandeln – ideal für Währungen mit einer „Haupt- und Untereinheit“-Struktur.
• VBA-benutzerdefinierte Funktionen bieten größere Flexibilität – sowohl beim Umwandeln von Zahlen in Wörter als auch beim Rückumwandeln von Währungswörtern in numerische Werte. Allerdings bergen sie makrobezogene Sicherheitsrisiken und eignen sich am besten für Anwender mit Programmierkenntnissen.
• Kutools für Excel bietet die einfachste, umfassendste und funktionsreichste Lösung – ganz ohne Formeln oder Programmierkenntnisse und mit Unterstützung für Dutzende Währungen und Sprachen.
• Wenn Sie Wörter wieder in Zahlen umwandeln müssen, schließt die VBA-Lösung diese Lücke effektiv – gegebenenfalls ist jedoch eine Bereinigung (z. B. das Entfernen von Kommas) für präzise Ergebnisse erforderlich.

Unabhängig davon, ob Sie Finanzdokumente erstellen, Scheckdruck automatisieren oder einfach die Präsentation Ihrer Daten verbessern möchten – die Wahl der richtigen Methode hilft Ihnen, professionelle und präzise Ergebnisse zu erzielen.

Beste Office-Produktivitätstools

🤖	KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen…
	Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
	Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
	Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
	Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
	Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
	Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

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

Weitere Details zu Kutools für Excel...Kostenloser Download...

---

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!

Weitere Details zu Office Tab...Kostenloser Download...

---

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

Weitere Details zu Kutools for Office...Kostenloser Download...