Zahlen in Worte umwandeln in Excel – Ein umfassender Leitfaden

Einschränkungen dieser Methode:

• Funktioniert nur in Excel für Microsoft 365 (aufgrund der TRANSLATE()-Funktion).
• Die Ausgabe hängt stark von der Genauigkeit der BAHTTEXT()-Formatierung ab.
• Diese Methode eignet sich für Währungen, die wie der Thailändische Baht sowohl eine Haupt- als auch eine Untereinheit haben (z. B. Dollar und Cent). Sie wird nicht für Währungen empfohlen, die einer ähnlichen Währungsstruktur nicht folgen.

Methode 2: Verwenden Sie eine benutzerdefinierte VBA-Funktion

In diesem Abschnitt erfahren Sie, wie Sie eine VBA-basierte benutzerdefinierte Funktion (UDF) verwenden, um numerische Werte in englische Währungswörter umzuwandeln – standardmäßig speziell auf US-Dollar (USD) zugeschnitten.

Schritt 1: VBA-Code einfügen

1. Öffnen Sie das Arbeitsblatt, in dem Sie diese Funktion verwenden 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: Die Funktion anwenden

1. Geben Sie in einer Zelle die folgende Formel ein und drücken Sie "Enter".
   =SpellNumberToEnglish(A2)
2. Ziehen Sie dann das Ausfüllkästchen, um es auf andere Zeilen anzuwenden. Ihre Zahlen werden nun als Wörter geschrieben, wie z. B.:

   

Anpassen für andere Währungen:

Die Funktion gibt Werte in "Dollar(s)" und "Cent(s)" aus, die hartcodiert nur für USD sind. Wenn Sie Zahlen in andere Währungen umwandeln möchten, zum Beispiel in "Britisches Pfund", müssen Sie die Haupt- und Nebeneinheiten manuell in den folgenden Codezeilen ändern.

Speichern Sie die Arbeitsmappe als Makro-fähige Datei

Standardmäßig werden VBA-Funktionen nicht beibehalten, es sei denn, die Arbeitsmappe wird als Makro-fähige Arbeitsmappe gespeichert:

1. Drücken Sie "Strg" + "S", um zu speichern.
2. Und wählen Sie die Schaltfläche "Zurück" im Pop-up-Fenster über Makros.
   Hinweis: Wenn das Pop-up nur "Ja", "Nein" und "Hilfe" zeigt, klicken Sie auf "Nein".

   

3. Im Fenster "Speichern unter".
   1. Wählen Sie einen Speicherort aus.
   2. Wählen Sie "Excel-Makro-fähige Arbeitsmappe (*.xlsm)" in der Drop-down-Liste "Speichern als Typ".
   3. Klicken Sie auf "Speichern".

      

Einschränkungen der SpellNumberToEnglish-VBA-Funktion

• Diese Funktion generiert Ergebnisse nur auf Englisch.
• Sie unterstützt keine anderen Sprachen (z. B. Französisch, Deutsch) und behandelt keine Währungsstrukturen, bei denen die Währungseinheit vor der Zahl steht (z. B. „Rupien Einhundert“ im Indischen Englisch).

• Wenn Sie die Arbeitsmappe nicht als Makro-fähige Arbeitsmappe (.xlsm) speichern, geht die Funktion verloren, wenn Sie Excel schließen.
• Wenn sie als normale .xlsx-Datei gespeichert wird, wird der gesamte VBA-Code entfernt.

• Das Senden der makro-fähigen Datei an andere löst eine "Sicherheitswarnung – Makros wurden deaktiviert"-Meldung aus, wenn sie geöffnet wird.
• Einige Benutzer könnten zögern, Makros zu aktivieren, da sie potenzielle Sicherheitsrisiken befürchten, und könnten sich dafür entscheiden, die Datei nicht zu verwenden.

• Änderungen an Währungsbegriffen oder Formatierungen erfordern das manuelle Bearbeiten des VBA-Codes.
• Nicht ideal für Benutzer, die mit Makros oder Skripting nicht vertraut sind.

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

Wenn Sie "Kutools für Excel" installieren, verwenden Sie seine Funktion "Zahlen in Worte umwandeln", um Zahlen in Englisch (Währung oder einfach) und dutzende andere Sprachen und Währungen wie EUR, GBP, JPY usw. umzuwandeln.

Wenn Sie nach einer codefreien, benutzerfreundlichen und vielseitigen Lösung suchen, um Zahlen in Worte in Excel umzuwandeln, bietet Kutools für Excel eine dedizierte Funktion „Zahlen in Worte 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 einfache Worte (z. B. "Einhundertdreiundzwanzig" statt "Einhundertdreiundzwanzig Dollar")

Schritte zur Verwendung:

1. Wählen Sie die Zellen aus, die die Zahlen enthalten, die Sie umwandeln möchten.
2. Wählen Sie "Kutools" > "Text" > "Zahlen in Worte umwandeln".
3. Im Dialogfeld "Zahlen in Währungsworte" müssen Sie:
   1. Wählen Sie die bevorzugte Sprache und Währungsart (z. B. Englisch – Vereinigte Staaten für USD)
   2. Klicken Sie auf "OK".

      

Optional: Aktivieren Sie "Nicht in Währung umgewandelt", wenn Sie einfache englische Worte möchten (ohne "Dollar" oder "Cents").

Ihre ausgewählten Zahlen werden nun je nach Ihren Einstellungen in die entsprechenden Währungswörter umgewandelt.

Umgekehrte Operation: Währungswörter in Zahlen umwandeln

Wenn Sie eine Liste von Währungsbeträgen haben, die in englischen Wörtern geschrieben sind, wie:

und Sie möchten sie in tatsächliche Zahlen in Excel umwandeln (z. B. 123,45), können Sie eine benutzerdefinierte VBA-UDF (User Defined Function) wie folgt verwenden.

Schritt 1: Öffnen Sie den VBA-Editor und fügen Sie 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 und fügen Sie den folgenden VBA-Code 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 Blatt an

1. Drücken Sie "Alt" + "Q", um zu Excel zurückzukehren.
2. Geben Sie in einer beliebigen leeren Zelle diese Formel ein und drücken Sie "Enter". Ziehen Sie das "Ausfüllkästchen" nach unten, um die restlichen Ergebnisse zu erhalten.
   =WordsToNumber(A2)

   

Fazit

Das Umwandeln von Zahlen in Worte – oder Worte zurück in Zahlen – ist nichts, was Excel nativ bietet, aber dieser Leitfaden hat gezeigt, dass es je nach Ihren Bedürfnissen mehrere praktische Lösungen gibt:

• Microsoft 365-Benutzer können moderne integrierte Funktionen wie TRANSLATE nutzen, um Währungszahlen mit Formeln in englische Worte umzuwandeln, insbesondere für Währungen, die einer "Haupt- + Untereinheit"-Struktur folgen.
• Benutzerdefinierte VBA-Funktionen bieten größere Flexibilität sowohl für das Umwandeln von Zahlen in Worte als auch für das Rückumwandeln von Währungswörtern in numerische Werte. Sie bringen jedoch makrobezogene Sicherheitsbedenken mit sich und sind am besten für Benutzer geeignet, die mit dem Codieren vertraut sind.
• Kutools für Excel bietet die einfachste, multilingualste und funktionsreichste Option – ohne Formeln oder Codierung und deckt dutzende Währungen und Sprachen ab.
• Wenn Sie Wörter wieder in Zahlen umwandeln müssen, füllt die VBA-Lösung diese Lücke effektiv, könnte jedoch Aufräumarbeiten (z. B. das Entfernen von Kommas) für genaue Ergebnisse erfordern.

Ob Sie Finanzdokumente erstellen, Checkdruck automatisieren oder einfach die Datendarstellung verbessern – die Wahl der richtigen Methode hilft Ihnen, professionelle und genaue Ergebnisse zu erzielen.