Wie kann man Währungsbeträge in Excel schnell in Wörter umwandeln?
Beim Arbeiten mit Finanzdaten in Excel müssen Sie gelegentlich Währungsbeträge in Wörter umwandeln – etwa beim Ausstellen von Schecks. Excel bietet hierfür zwar keine integrierte Funktion, doch es gibt zwei effektive Methoden, um dies zu erreichen. Dieser Artikel stellt Ihnen beide Ansätze vor und hilft Ihnen, die für Ihre Anforderungen beste Lösung auszuwählen.
Währungsbeträge In Wörter umwandeln mithilfe von VBA-Code ausschreiben
Währungsbeträge In Wörter umwandeln mit Kutools für Excel ausschreiben 
Währungsbeträge In Wörter umwandeln mithilfe von VBA-Code ausschreiben
In Excel können Sie Zahlen ohne VBA nicht schnell in englische Wörter umwandeln.
1. Drücken Sie „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 neu geöffnete Modulfenster ein.
VBA: Währungsbeträge in englische Wörter umwandeln
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 Function3. Speichern Sie anschließend diesen Code und klicken Sie auf „Dieses Fenster schließen“, um zum Arbeitsblatt zurückzukehren. Wählen Sie eine leere Zelle aus und geben Sie folgende Formel ein: =SpellNumberToEnglish(A2) (A2 enthält den Währungsbetrag). Drücken Sie die Eingabetaste und ziehen Sie anschließend den Ausfüllkorb nach unten, um die Formel auf die gewünschten Zellen anzuwenden. Siehe Screenshots:
Währungsbeträge In Wörter umwandeln mit der praktischen Zahlen ausschreiben-Funktion ausschreiben
Für Benutzer, die VBA vermeiden möchten, bietet Kutools für Excel eine einfache Möglichkeit, Zahlen mit nur einem Klick in Wörter umzuwandeln. Die Funktion „In Wörter umwandeln“ unterstützt dabei über 40 verschiedene Währungsformate und eignet sich ideal für Finanzberichte und internationale Transaktionen. Mit wenigen Klicks lassen sich numerische Werte so in vollständig formatierten Währungstext in mehreren Sprachen – darunter USD, EUR, GBP, JPY, CNY und weitere – konvertieren, wodurch manuelle Umrechnungen entfallen und Fehler reduziert werden.
1. Markieren Sie die Währungsbeträge und klicken Sie auf „Kutools“ > „Inhalt“ > „In Wörter umwandeln“. Siehe Screenshot:
2. Wählen Sie im Dialogfeld „Kleinbuchstabenbetrag in Großbuchstaben umwandeln“ die gewünschte Sprache aus – hier wähle ich „Englisch“ aus dem Listenfeld „Sprachen“. Siehe Screenshot:
3. Klicken Sie auf „OK“ oder „Übernehmen“, um die ausgewählten Währungsbeträge in die entsprechenden Währungswörter umzuwandeln.
Die Umwandlung von Währungsbeträgen in Wörter in Excel gelingt effizient – entweder mit VBA oder mit Kutools für Excel. Mit einer dieser Methoden automatisieren Sie Finanzberichte und vermeiden lästige Tippfehler. Wenn Sie weitere Excel-Tipps und -Tricks entdecken möchten,bietet unsere Website Tausende von Anleitungen, um Excel zu meistern.
Demo: Währungsbetrag mithilfe von Kutools für Excel in Wörter umwandeln
Beste Office-Produktivitätstools
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...
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!
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