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
Währung mit VBA-Code 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.
Währung mit Kutools für Excel in Worte umwandeln
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.
Bevor Sie Kutools für Excel anwenden, laden Sie es bitte zunächst herunter und installieren es.
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.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!