Umwandlung von Zahlen in Wörter in Indischen Rupien und anderen Währungen in Excel (2025 Ausgabe)

Hier erfahren Sie, wie Sie Zahlen in Indische Rupien – oder jede andere Währung – in Excel umwandeln.

Bei der Arbeit mit Finanzdokumenten wie Rechnungen, Angeboten, Steuerformularen, Schecks oder Zahlungsbelegen ist es oft notwendig, Währungsbeträge sowohl in numerischer als auch in schriftlicher Form darzustellen. Dies verleiht eine professionelle Note und hilft, Betrug oder Missverständnisse zu vermeiden.

Beispiel

Während Microsoft Excel keine integrierte Funktion zur Umwandlung von Zahlen in Wörter bietet, gibt es mehrere effektive Möglichkeiten, dies zu erreichen – durch VBA, LAMBDA-Funktionen oder das umfassende Kutools für Excel Add-in.

Zahlen in indische Rupien mit VBA umwandeln (Alle Microsoft-Versionen)

• Zahlen in andere Währungen (USD, EUR, etc.) umwandeln
• Arbeitsmappe als Makro-fähige Datei speichern

Zahlen in indische Rupien mit der LAMBDA-Funktion umwandeln (Nur Microsoft 365)

Zahlen in USD, EUR und über 30 weitere Währungen umwandeln (Alle Microsoft-Versionen)

Wann sollte jede Methode verwendet werden?

Zahlen in indische Rupien mit VBA umwandeln (Alle Microsoft-Versionen)

Für Benutzer jeder Excel-Version bietet VBA (Visual Basic for Applications) eine anpassbare Methode, numerische Beträge unter Verwendung des indischen Nummerierungssystems (z.B. Tausender, Lakhs, Crores) in Wörter umzuwandeln.

Schritt 1. Drücken Sie Alt + F11, um den VBA-Editor (Microsoft Visual Basic for Applications Fenster) zu öffnen.

Schritt 2. Gehen Sie zu Einfügen > Modul.

Schritt 3. Fügen Sie den VBA-Code in das Modul ein.

Zahlen in Wörter in indischen Rupien umwandeln

Function ConvertToRupees(ByVal MyNumber)
'UpdatebyExtendoffice
    Dim Units As String, SubUnits As String, TempStr As String
    Dim DecimalPlace As Integer, Count As Integer
    Dim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lakh "
    Place(4) = " Crore "
    
    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    
    If DecimalPlace > 0 Then
        SubUnits = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    
    Count = 1
    Do While MyNumber <> ""
        TempStr = GetHundreds(Right(MyNumber, 3))
        If TempStr <> "" Then Units = TempStr & Place(Count) & Units
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    
    ConvertToRupees = "Rupees " & Application.WorksheetFunction.Trim(Units)
    If SubUnits <> "" Then
        ConvertToRupees = ConvertToRupees & " and " & SubUnits & " Paise"
    End If
    ConvertToRupees = ConvertToRupees & " Only"
End Function

Private Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

Private Function GetTens(TensText)
    Dim Result As String
    If Val(Left(TensText, 1)) = 1 Then
        Select Case Val(TensText)
            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"
        End Select
    Else
        Select Case Val(Left(TensText, 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 "
        End Select
        Result = Result & GetDigit(Right(TensText, 1))
    End If
    GetTens = Result
End Function

Private Function GetDigit(Digit)
    Select Case Val(Digit)
        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

Schritt 4. Speichern und zurück zu Excel.

Schritt 5. Wählen Sie eine Zelle aus und verwenden Sie die Formel wie folgt:

Drücken Sie die Eingabetaste

💡 Tipp: Diese Methode unterstützt Dezimalstellen (Paisa) und funktioniert offline.

Einschränkungen bei der Verwendung von VBA

• Erfordert das Speichern der Arbeitsmappe als makrofähige Datei (.xlsm).
• Makros können in einigen Umgebungen durch Sicherheitseinstellungen blockiert werden.

Zahlen in andere Währungen (USD, EUR, etc.) umwandeln

Um die Ausgabe für andere Währungen anzupassen, wie "Dollar" oder "Euro", können Sie die Zeichenkettenwerte in der VBA-Funktion ändern. Unten finden Sie eine vereinfachte und flexiblere Version der Funktion.

Flexibles VBA-Code-Template (Benutzerdefinierte Währung)

'UpdatebyExtendoffice
Public Function NumberToWordsCustom(ByVal num As Double, Optional ByVal currency2 As String, Optional ByVal subCurrency As String) As String
    Dim result As String
    Dim dollars As Long
    Dim cents As Long

    dollars = Int(num)
    cents = Round((num - dollars) * 100)
  
    If Len(currency2) = 0 Then currency2 = "Dollars"
    If Len(subCurrency) = 0 Then subCurrency = "Cents"
    result = currency2 & " " & SpellNumber_English(dollars)

    If cents > 0 Then
        result = result & " and " & SpellNumber_English(cents) & " " & subCurrency
    End If

    NumberToWordsCustom = result & " Only"
End Function

Private Function SpellNumber_English(ByVal MyNumber As Long) As String
    Dim Units As Variant, Tens As Variant, Teens As Variant
    Dim Place() As String
    Dim TempStr As String
    Dim Count As Integer
    Dim t As String
    Dim StrNumber As String
    Dim n As Integer

    Place = Split(" Thousand Million Billion", " ")
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Teens = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

    StrNumber = Trim(Str(MyNumber))
    Count = 0

    Do While StrNumber <> ""
        n = Val(Right(StrNumber, 3))
        If n <> 0 Then
            t = ConvertHundreds(n, Units, Tens, Teens)
            If Count > 0 Then t = t & " " & Place(Count - 1)
            TempStr = t & " " & TempStr
        End If
        If Len(StrNumber) > 3 Then
            StrNumber = Left(StrNumber, Len(StrNumber) - 3)
        Else
            StrNumber = ""
        End If
        Count = Count + 1
    Loop

    SpellNumber_English = Trim(TempStr)
End Function

Private Function ConvertHundreds(ByVal n As Integer, Units As Variant, Tens As Variant, Teens As Variant) As String
    Dim result As String
    If n >= 100 Then
        result = Units(Int(n / 100)) & " Hundred "
        n = n Mod 100
    End If
    If n >= 20 Then
        result = result & Tens(Int(n / 10)) & " "
        n = n Mod 10
    ElseIf n >= 10 Then
        result = result & Teens(n - 10) & " "
        n = 0
    End If
    If n > 0 Then
        result = result & Units(n)
    End If
    ConvertHundreds = Trim(result)
End Function

Beispiel VBA-Formel:

Beispiel VBA-Formel einer anderen Währung:

Der Code ist flexibel – geben Sie einfach die gewünschte Währung und Untereinheit ein.

Arbeitsmappe als Makro-fähige Datei speichern

Wenn Sie VBA verwenden, ist es wichtig, Ihre Arbeitsmappe mit aktivierten Makros zu speichern. Andernfalls geht Ihr Code verloren, wenn die Datei geschlossen wird.

Schritt 1. Gehen Sie zu Datei > Speichern unter.

Schritt 2. Wählen Sie einen Speicherort und wählen Sie den Dateityp: Excel-Makrofähige Arbeitsmappe (*.xlsm).

Schritt 3. Klicken Sie auf Speichern.

✅ Ihre benutzerdefinierten Funktionen wie =ConvertToRupees(A2) bleiben nun erhalten und können jederzeit wiederverwendet werden.

Zahlen in indische Rupien mit der LAMBDA-Funktion umwandeln (Nur Microsoft 365)

Für Excel 365-Benutzer können Sie LAMBDA verwenden, eine neue Excel-Funktion, die es Ihnen ermöglicht, benutzerdefinierte Formeln zu erstellen – kein VBA erforderlich.

🪄 Was ist LAMBDA?

LAMBDA ist eine Funktion in Excel, mit der Sie eigene benutzerdefinierte Funktionen mithilfe von Formeln erstellen können – genau wie eingebaute Funktionen wie SUMME oder WENN, aber ohne Code oder Makros. Es ist ideal, um repetitive Logik zu vereinfachen und Ihre Tabellen übersichtlicher und leichter wartbar zu machen.

Schritt 1: Gehen Sie zum Namen-Manager und klicken Sie auf Formeln > Namen-Manager.

Schritt 2: Erstellen Sie einen neuen Namen.

• Klicken Sie auf die Schaltfläche Neu.

  

• Geben Sie einen Namen ein.

  Beispiel: RupeeToWords

  

• Schritt 3: Fügen Sie diese LAMBDA-Formel in das Feld „Bezieht sich auf“ ein:

  =LAMBDA(n, LET( units, {"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"}, teens, {"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"}, tens, {"","","Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"}, num, INT(n), paise, ROUND((n - INT(n)) * 100, 0), ConvertTwo, LAMBDA(x, IF(x<10, INDEX(units, x+1), IF(x<20, INDEX(teens, x-9), INDEX(tens, INT(x/10)+1) & IF(MOD(x,10)>0, " " & INDEX(units, MOD(x,10)+1), "") ) ) ), ConvertThree, LAMBDA(x, IF(x=0, "", IF(x<100, ConvertTwo(x), INDEX(units, INT(x/100)+1) & " Hundred" & IF(MOD(x,100)>0, " " & ConvertTwo(MOD(x,100)), "") ) ) ), words, IF(num=0, "Zero", TEXTJOIN(" ", TRUE, IF(INT(num/10000000)>0, ConvertTwo(INT(num/10000000)) & " Crore", ""), IF(MOD(INT(num/100000),100)>0, ConvertTwo(INT(MOD(num,10000000)/100000)) & " Lakh", ""), IF(MOD(INT(num/1000),100)>0, ConvertTwo(INT(MOD(num,100000)/1000)) & " Thousand", ""), IF(MOD(INT(num/100),10)>0, INDEX(units, INT(MOD(num,1000)/100)+1) & " Hundred", ""), IF(MOD(num,100)>0, ConvertTwo(MOD(num,100)), "") ) ), result, "Rupees " & words & IF(paise>0, " and " & ConvertTwo(paise) & " Paise", "") & " Only", result ))



• Klicken Sie auf OK, um den neuen Namen zu speichern.

Schritt 3. Schließen Sie den Namen-Manager und kehren Sie zu Excel zurück.

Schritt 4. Verwenden Sie die Formel in einer beliebigen Zelle wie folgt:

Drücken Sie die Eingabetaste.

👀 Der vollständige LAMBDA-Funktionscode behandelt Crores, Lakhs, Tausender und Dezimalstellen.

Zahlen in USD, EUR und über 30 weitere Währungen umwandeln (Alle Microsoft-Versionen)

Für die effizienteste und professionellste Lösung verwenden Sie Kutools für Excel's Zahlen in Wörter. Dieses leistungsstarke Tool unterstützt:

🌍 Über 30 Währungen, einschließlich:

• US-Dollar (USD)
• Euro (EUR)
• Chinesischer Yuan (CNY)
• Britische Pfund (GBP)
• usw.

Schritt 1. Wählen Sie die Zellen aus, die Sie umwandeln möchten.

Schritt 2. Gehen Sie zu Kutools > Text > Zahlen in Wörter

Schritt 3. Wählen Sie Ihre Zielausgabewährung und klicken Sie auf OK.

Die Zahlen werden in die angegebene Währung umgewandelt.

😁 Tipp: Wenn Sie Zahlen direkt in Wörter umwandeln möchten, aktivieren Sie die Option Nicht in Währung umwandeln, und das Ergebnis wird wie folgt angezeigt:

Wann sollte jede Methode verwendet werden?

• Verwenden Sie VBA, wenn Sie eine flexible, programmierbare Lösung benötigen und mit Makros vertraut sind.

• Verwenden Sie LAMBDA, wenn Sie Excel 365 nutzen und nur gelegentlich indische Rupie-Werte umwandeln müssen. Es ist eine einfache, teilspezifische Lösung, die keine Makros oder externe Tools erfordert – perfekt für einfache oder persönliche Aufgaben.
• Verwenden Sie Kutools für Excel, wenn Sie die einfachste, schnellste und vielseitigste Lösung wollen – kein Programmieren erforderlich. Kutools ist besonders nützlich, wenn:
  • Sie mit mehreren Währungen arbeiten.
  • Sie Werte in großen Mengen oder großen Datensätzen umwandeln müssen.
  • Sie ein makrofreies, professionell nutzbares Werkzeug mit über 30 Währungsoptionen und KI-unterstützte Leistung benötigen.