Konvertieren Sie Kleinbuchstabenbetrag in Großbuchstaben umwandeln in Word (Massenweise) – Englisch & Chinesisch

Müssen Sie Zahlen in Währungswörter in Word konvertieren – damit Beträge als ausgeschriebener Text in Rechnungen, Verträgen oder Schecks erscheinen? Sie sind nicht allein: Word bietet keine einfache integrierte Funktion, um Geldbeträge automatisiert und massenhaft auszuschreiben, besonders wenn Ihr Dokument viele Beträge enthält.

Im Folgenden finden Sie zwei zuverlässige Methoden:(1) einen Excel-„Automatik“-Workflow (VBA zur Generierung von Währungswörtern, danach Kopieren/Einfügen in Word – höherer Einrichtungsaufwand und langsamer) und (2) eine schnellere, klickarme Methode direkt in Word mit Kutools für Word (ideal, wenn Sie in Word bleiben und mehrere Beträge gleichzeitig konvertieren möchten).

💡 Schnellnavigation:

• Was „Währungswörter“ bedeuten (mit Beispielen)
• Methode 1 — In Excel: Konvertierung in Währungswörter mittels VBA + Kopieren/Einfügen in Word
• Methode 2 — In Word: Mit einem Klick in Währungswörter konvertieren mit Kutools für Word
  • Zahlen in englische Währungswörter umwandeln (Massenverarbeitung)
  • Zahlen in chinesische Währungswörter umwandeln (Massenverarbeitung)
• Vergleich: Excel vs. Kutools
• Fehlerbehebung
• Häufig gestellte Fragen (FAQ)

Was „Währungswörter“ bedeuten (mit Beispielen)

„Währungswörter“ bezeichnet die Umwandlung numerischer Beträge in ihre ausgeschriebene Form, zum Beispiel:1234,56 → „One Thousand Two Hundred Thirty-Four Dollars and Fifty-Six Cents“. Diese Schreibweise ist üblich in Verträgen, Rechnungen, Schecks, Bestellungen und Erstattungsbelegen.

Methode 1 — In Excel: Umwandlung in Währungswörter mit VBA + Kopieren/Einfügen in Word

Dieser Arbeitsablauf ist ideal, wenn Ihre Beträge bereits in einer Tabellenkalkulation vorliegen und Sie lediglich die Währungswörter in Excel generieren möchten, um sie anschließend innerhalb weniger Sekunden in Word einzufügen.

Schritt 1 — Bereiten Sie Ihre Excel-Tabelle vor

1. Erstellen Sie in Excel eine Tabelle wie folgt: Betrag (Zahlen) und BetragInWorten (wird generiert).
2. Stellen Sie sicher, dass die Beträge ausschließlich Zahlen (kein Text) enthalten. Konvertieren Sie gegebenenfalls zunächst den Text in Zahlen.
   

Schritt 2 — Fügen Sie eine VBA-Funktion (UDF) zur Umwandlung von Kleinbuchstabenbetrag in Großbuchstaben umwandeln hinzu

1. Drücken Sie in Excel Alt + F11, um den VBA-Editor zu öffnen.
2. Klicken Sie auf Einfügen > Modul.
3. Fügen Sie den folgenden VBA-Code in das Modul ein.
4. Speichern Sie die Datei als .xlsm (makrofähige Arbeitsmappe).

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

Schritt 3 — Füllen Sie nach unten, um mehrere Zahlen gleichzeitig (im Batch) umzuwandeln

1. Geben Sie in Ihre Spalte BetragInWorten Folgendes ein: =CurrencyWordsUSD(A2) (passen Sie die Zellenreferenz an Ihr Arbeitsblatt an).
   
2. Ziehen Sie die Formel nach unten, um alle Zeilen zu konvertieren.
   
3. Optional (empfohlen): Kopieren Sie die Spalte BetragInWorten und fügen Sie sie als Werte ein, um die Ergebnisse zu fixieren.
   

Schritt 4 — Übertragen Sie die Ergebnisse nach Word (schnelles Kopieren/Einfügen)

1. Markieren Sie in Excel die Zellen Betrag und BetragInWorten, die Sie benötigen, und drücken Sie anschließend Strg + C.
2. Klicken Sie in Word an die gewünschte Stelle und drücken Sie dann Strg + V.
   

Methode 2 — In Word: Mit einem Klick zu Währungswörtern mithilfe von Kutools für Word

Für den einfachsten, auf Word ausgerichteten Arbeitsablauf bietet Kutools für Word zwei spezielle Befehle an: Zahlen in englische Währungswörter umwandeln und Zahlen in chinesische Währungswörter umwandeln. Mit nur einem Klick wandeln Sie Kleinbuchstabenbeträge direkt in Ihrem Dokument in Großbuchstaben um.

Zahlen in englische Währungswörter umwandeln (Massenverarbeitung)

Nachdem Sie Kutools für Word heruntergeladen und installiert haben, führen Sie Folgendes aus:

1. Markieren Sie in Word den Text, der die zu konvertierenden Zahlen enthält.

   Tipp: Wenn Sie nichts auswählen, können Sie das Werkzeug auf das gesamte Dokument anwenden.

2. Klicken Sie auf Kutools > Einfügen > Zahlen in englische Währungswörter.
   

Ergebnis: Kutools ersetzt die Zahlen im markierten Inhalt (oder im gesamten Dokument) sofort durch englische Währungswörter.

Zahlen in chinesische Währungswörter umwandeln (Massenverarbeitung)

Nachdem Sie Kutools für Word heruntergeladen und installiert haben, führen Sie Folgendes aus:

1. Markieren Sie in Word den Text mit den Zahlen, die Sie in chinesische Währungswörter umwandeln möchten.

   Tipp: Wenn Sie nichts auswählen, wandelt das Werkzeug Zahlen im gesamten Dokument um.

2. Klicken Sie auf Kutools > Einfügen > Zahlen in chinesische Währungswörter.
   

Ergebnis: Kutools ersetzt die Zahlen im markierten Bereich (oder im gesamten Dokument) sofort durch chinesische Währungswörter.

Vergleich: Excel vs. Kutools

Zusammenfassung: Für den schnellsten, auf Word ausgerichteten Arbeitsablauf verwenden Sie Kutools für Word, um mehrere Beträge mit nur wenigen Klicks in Währungswörter umzuwandeln – entweder eine Auswahl oder das gesamte Dokument. Nutzen Sie die Excel-VBA-Methode nur dann, wenn Sie bereits in Excel arbeiten und zusätzlichen Aufwand nicht scheuen.

Fehlerbehebung

Häufig gestellte Fragen (FAQ)