Wie wandelt man Währungsbeträge in Worttext in Excel um?
Für Nicht-Muttersprachler, die Englisch als Zweitsprache nutzen, kann es mitunter schwierig sein, längere Währungsbeträge direkt in englische Wörter umzuwandeln. In diesem Artikel erfahren Sie, wie Sie Währungsbeträge in Excel ganz einfach in Worttext umwandeln können.
Konvertieren Sie Währung in Wörter mit VBA-Code
Konvertieren Sie Währung in Wörter mit Kutools für Excel
Konvertieren Sie Währung in Wörter mit VBA-Code
Mit dem folgenden VBA-Code können Sie einen Währungsbetrag in englische Wörter umwandeln.
1. Drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Dialogfeld zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Dialogfeld auf Einfügen > Modul. Kopieren Sie anschließend den folgenden Code in das Codefenster.
VBA-Code: Währungszahl in englische Wörter konvertieren
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 Function3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Microsoft Visual Basic for Applications-Dialogfeld 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 anschließend die Enter-Taste.
Hinweis: A1 ist die Zelle, die den Währungsbetrag enthält. Sie können sie bei Bedarf anpassen.
5. Wählen Sie die Zelle B1 aus und ziehen Sie den Ausfüllknauf nach unten, um sämtliche englischen Wörter der Währungsbeträge zu erhalten.
Konvertieren Sie Währung in Wörter mit Kutools für Excel
Dieser lange VBA-Code wirkt kompliziert – doch zum Glück haben wir die perfekte Lösung für Sie! Mit dem praktischen In Wörter umwandeln-Tool von Kutools für Excel wird die Umwandlung von Währungsbeträgen in Wörter zum Kinderspiel. So geht’s:
Bevor Sie Kutools für Excel verwenden, laden Sie es bitte zunächst herunter und installieren.
1. Wählen Sie die Zellen mit den Währungsbeträgen aus, die Sie umrechnen möchten.
2. Klicken Sie auf Kutools > Inhalt > In Wörter umwandeln. Siehe Screenshot:
3. Wählen Sie im Kleinbuchstabenbetrag in Großbuchstaben umwandeln-Dialogfeld die Option Englisch aus und klicken Sie auf die Schaltfläche OK oder Übernehmen.
Die ausgewählten Währungsbeträge werden nun sofort in englische Wörter umgewandelt.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
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