Wie kann man Währungsbeträge schnell in Worte umwandeln in Excel?

Beim Arbeiten mit Finanzdaten in Excel gibt es möglicherweise Situationen, in denen Sie Währungsbeträge in Worte umwandeln müssen, zum Beispiel bei der Ausstellung von Schecks. Leider bietet Excel keine integrierte Funktion dafür, aber es gibt zwei effektive Methoden, dies zu erreichen. Dieser Artikel führt Sie durch beide Methoden und hilft Ihnen, die beste Vorgehensweise entsprechend Ihren Bedürfnissen auszuwählen.

Währungsbeträge mit VBA-Code in Worte umwandeln

Währungsbeträge mit Kutools für Excel in Worte umwandeln

Währungsbeträge mit VBA-Code in Worte umwandeln

In Excel können Sie Zahlen nicht schnell in englische Wörter umwandeln, außer mit VBA.

1. Drücken Sie die Tasten „Alt + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Konvertieren von Währungsbeträgen in englische Wörter

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
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

3. Speichern Sie dann diesen Code und schließen Sie das Fenster, um zum Arbeitsblatt zurückzukehren. Wählen Sie eine leere Zelle und geben Sie diese Formel ein: =SpellNumberToEnglish(A2) (A2 ist der Währungsbetrag), drücken Sie die Eingabetaste, und ziehen Sie den Ausfüllkursor nach unten, um diese Formel auf die gewünschten Zellen anzuwenden. Siehe Screenshots:

Währungsbeträge mit der praktischen Funktion „Zahlen ausschreiben“ in Worte umwandeln

Für diejenigen, die keine VBA verwenden möchten, bietet Kutools für Excel eine einfache, per Klick auszuführende Möglichkeit, Zahlen in Worte umzuwandeln. Die Funktion „Zahlen in Worte“ in Kutools für Excel unterstützt die Umwandlung von Zahlen in über 40 verschiedene Währungsformate, was sie zur idealen Lösung für Finanzberichte und internationale Transaktionen macht. Mit wenigen Klicks können Benutzer numerische Werte in vollständig formatierten Währungstext in mehreren Sprachen umwandeln, einschließlich USD, EUR, GBP, JPY, CNY und mehr, wodurch manuelle Umwandlungen überflüssig werden und Fehler reduziert werden.

1. Wählen Sie die Währungsbeträge aus und klicken Sie auf „Kutools“ > „Text“ > „Zahlen in Worte“. Siehe Screenshot:

2. Wählen Sie im Dialogfeld „Zahlen in Währungswörter“ die gewünschte Sprache aus; hier wähle ich die Option „Englisch“ aus der Liste „Sprachen“ aus, siehe Screenshot:

3. Klicken Sie auf „OK“ oder „Anwenden“. Dann wurden die ausgewählten Währungsbeträge in spezifische Währungswörter konvertiert.

Die Umwandlung von Währungsbeträgen in Worte in Excel kann effizient entweder mit VBA oder mit Kutools für Excel erfolgen. Durch die Implementierung einer dieser Methoden können Sie Finanzberichte automatisieren und manuelle Tippfehler eliminieren. Wenn Sie daran interessiert sind, weitere Excel-Tipps und -Tricks zu erkunden, bietet unsere Website Tausende von Tutorials, um Ihnen zu helfen, Excel zu beherrschen.

Demo: Währungsbeträge mit Kutools für Excel in Worte umwandeln