Wie schreibt man Zahlen in Excel in englische Wörter aus oder wandelt sie um?
Die Umwandlung von Zahlen in ihre englischen Wortäquivalente in Excel kann eine wertvolle Fähigkeit sein – besonders für Finanzberichte, Rechnungsstellung oder das Ausstellen von Schecks. Obwohl Excel hierfür keine integrierte Funktion bietet, gibt es mehrere effektive Methoden, um dies zu erreichen. Dieser Artikel zeigt Ihnen die effizientesten Wege, um Zahlen in Excel in Wörter umzuwandeln, sowie praktische Tipps zur Optimierung.
Zahlen in englische Wörter ausschreiben oder mit VBA-Code konvertieren
Der folgende umfangreiche VBA-Code hilft Ihnen dabei, Zahlen in Textzeichenfolgen umzuwandeln. Gehen Sie dazu wie folgt vor:
1. Drücken Sie gleichzeitig 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 das folgende Makro in das Modulfenster ein.
VBA: Währungsbeträge in englische Wörter in Excel ausschreiben
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 anschließend den Code und kehren Sie zum Arbeitsblatt zurück. Geben Sie in der benachbarten Zelle B2 die Formel =SpellNumberToEnglish(A2) ein – siehe Screenshot:
4. Drücken Sie dann die Eingabetaste, wählen Sie die Zelle C2 aus und ziehen Sie den Ausfüllknebel über den gewünschten Bereich, um die Formel zu übertragen. Alle Währungsbeträge werden nun automatisch in englische Wörter umgewandelt. Siehe Screenshot:
Zahlen mit Kutools für Excel in englische Wörter ausschreiben oder konvertieren
Optimieren Sie Ihre Excel-Aufgaben und steigern Sie Ihre Produktivität mit Kutools für Excel. Die leistungsstarke Funktion „In Wörter umwandeln“ bietet über 40 Währungsumrechnungsoptionen und ermöglicht es Ihnen, Zahlen mühelos in Wörter – etwa für US-Dollar, chinesische Yuan oder jede andere Währung – mit nur wenigen Klicks umzuwandeln.
1. Wählen Sie den Zahlenbereich aus, den Sie in Wörter umwandeln möchten, und klicken Sie auf „Kutools“ > „Inhalt“ > „In Wörter umwandeln“.
2. Wählen Sie im erscheinenden Dialogfeld unter „Sprachen“ die Option „Englisch“ aus. Die Ergebnisse können Sie direkt im rechten Bereich „Vorschau“ einsehen. Siehe Screenshot:
3. Klicken Sie dann auf „OK“ oder „Übernehmen“. Alle Preisbeträge wurden nun im ursprünglichen Bereich in Textzeichenfolgen konvertiert.
Hinweis: Wenn Sie Zahlen nur in englische Wörter (ohne Währung) umwandeln möchten, aktivieren Sie bitte das Kontrollkästchen „Nicht in Währung umwandeln“.
Indem Sie die in diesem Leitfaden beschriebenen Schritte und Optimierungen befolgen, können Sie Inhalte effizient in Wörter umwandeln und Ihren Arbeitsablauf optimieren. Ob Sie Finanzberichte erstellen oder Rechnungen anfertigen – diese Fähigkeit spart Ihnen Zeit und Aufwand. Falls Sie weitere Excel-Tipps und -Tricks kennenlernen möchten,bietet unsere Website tausende von Anleitungen.
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