Wie konvertiert man Währung in Text in Excel?

Für Nicht-Muttersprachler, die Englisch als zweite Sprache verwenden, ist es manchmal schwierig, eine Währungsnummer direkt in englische Worte umzuwandeln, wenn die Zahl zu lang ist. In diesem Artikel erfahren Sie, wie Sie ganz einfach Währungen in Worte in Excel umwandeln können.

Währung mit VBA-Code in Worte umwandeln
Währung mit Kutools für Excel in Worte umwandeln

Mit dem folgenden VBA-Code können Sie Währungszahlen in englische Wörter umwandeln.

1. Drücken Sie Alt + F11, um das Dialogfeld Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Dialogfeld Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Konvertieren von Währungszahlen in englische Wörter

Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Dialogfeld Microsoft Visual Basic for Applications zu schließen.

4. Wählen Sie eine leere Zelle (B1) neben der Zelle aus, die Sie in Wörter umwandeln möchten, geben Sie die Formel =NumberstoWords(A1) ein und drücken Sie dann die Eingabetaste.

Hinweis: A1 ist die Zelle, die die Währungsnummer enthält. Sie können sie bei Bedarf ändern.

5. Wählen Sie die Zelle B1 aus und ziehen Sie den Ausfüllkursor nach unten, um alle englischen Wörter der Währungszahlen zu erhalten.

Dieser lange VBA-Code scheint kompliziert zu sein. Hier möchte ich Ihnen ein praktisches Hilfsmittel vorstellen, um dieses Problem einfach zu lösen. Mit dem Hilfsprogramm „Zahlen in Wörter“ von Kutools für Excel wird das Umwandeln von Währungen in Worte kein Problem mehr sein. Gehen Sie bitte wie folgt vor.

1. Wählen Sie die Zellen mit den Währungszahlen aus, die Sie umwandeln möchten.

2. Klicken Sie auf Kutools > Text > Zahlen in Wörter. Siehe Screenshot:

3. Wählen Sie im Dialogfeld „Zahlen in Währungswörter“ die Option Englisch und klicken Sie auf die Schaltfläche OK oder Anwenden.

Jetzt werden die ausgewählten Währungszahlen sofort in englische Wörter umgewandelt.