Wie kann man Währungszahlen schnell in Worte in Excel umwandeln?
Beim Arbeiten mit Finanzdaten in Excel gibt es möglicherweise Situationen, in denen Sie Währungszahlen in Worte umwandeln müssen, zum Beispiel beim Ausfüllen von Scheckbeträgen. 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 basierend auf Ihren Bedürfnissen auszuwählen.
Währungszahlen mit VBA-Code in Worte umwandeln
Währungszahlen mit Kutools für Excel in Worte umwandeln 
Währungszahlen 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ährungszahlen 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 Function3. Speichern Sie dann diesen Code und schließen Sie das Fenster, um zum Arbeitsblatt zurückzukehren, und wählen Sie eine leere Zelle aus, geben Sie diese Formel ein: =SpellNumberToEnglish(A2) (A2 sind die Währungszahlen), und drücken Sie die Eingabetaste, ziehen Sie dann den Ausfüllkursor nach unten, um diese Formel auf die gewünschten Zellen anzuwenden. Siehe Screenshots:
Währungszahlen 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 Ein-Klick-Methode zur Umwandlung von Zahlen in Worte. Die Funktion „Zahlen zu Wörtern“ 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 nur wenigen Klicks können Benutzer numerische Werte in vollständig formatierte Währungstexte in mehreren Sprachen umwandeln, einschließlich USD, EUR, GBP, JPY, CNY und mehr, wodurch manuelle Konvertierungen entfallen und Fehler reduziert werden.
1. Wählen Sie die Währungszahlen aus und klicken Sie auf „Kutools“ > „Text“ > „Zahlen zu Wörtern“. Siehe Screenshot:
2. Wählen Sie im Dialogfeld „Zahlen zu Währungswörtern“ die Sprache aus, die Sie verwenden möchten; hier wähle ich die Option „Englisch“ aus der Liste „Sprachen“, siehe Screenshot:
3. Klicken Sie auf „OK“ oder „Anwenden“. Dann wurden die ausgewählten Währungszahlen in spezifische Währungswörter konvertiert.
Die Umwandlung von Währungszahlen in Worte in Excel kann effizient entweder mit VBA oder 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ährungszahlen mit Kutools für Excel in Worte umwandeln
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins