KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Umwandlung von In Wörter umwandeln in Indische Rupie und andere Währungen in Excel (2025-Edition)

12,350,50 → Rupees Twelve Thousand Three Hundred Fifty and Fifty Paisas Only12,350,50 → Rupees Twelve Thousand Three Hundred Fifty and Fifty Paisas Only Änderungsdatum

So wandeln Sie Zahlen in Excel in Wörter um – beispielsweise in Indische Rupien oder jede andere Währung.

Bei der Arbeit mit Finanzdokumenten wie Rechnungen, Angeboten, Steuerformularen, Schecks oder Zahlungsbelegen ist es oft erforderlich, Währungsbeträge sowohl numerisch als auch in ausgeschriebener Form im Word-Format darzustellen – für mehr Professionalität und um Betrug oder Missverständnisse zu vermeiden.

Beispiel

=ConvertToRupees(A2)

Obwohl Microsoft Excel keine integrierte Funktion zur Umwandlung von Zahlen in Wörter bietet, gibt es mehrere effektive Möglichkeiten, dies zu erreichen – etwa mithilfe von VBA, LAMBDA-Funktionen oder dem All-in-One-Add-In Kutools für Excel.

Umwandlung von In Wörter umwandeln in Indische Rupie mithilfe von VBA (alle Microsoft-Versionen)

Speichern Sie Ihre Arbeitsmappe als makrofähige Datei

Umwandlung von In Wörter umwandeln in Indische Rupie mithilfe der LAMBDA-Funktion (nur Microsoft 365)

Umwandlung von Zahlen in USD, EUR und 30+ weitere Währungen (alle Microsoft-Versionen)

Wann welche Methode verwendet werden sollte

Umwandlung von In Wörter umwandeln in Indische Rupie mithilfe von VBA (alle Microsoft-Versionen)

Für Benutzer jeder Excel-Version bietet VBA (Visual Basic for Applications) eine anpassbare Methode, um numerische Beträge mithilfe des indischen Zahlsystems (z. B. Tausend, Lakh, Crore) in Wörter umzuwandeln.Für Benutzer jeder Excel-Version bietet VBA (Visual Basic for Applications) eine anpassbare Methode, um numerische Beträge mithilfe des indischen Zahlsystems (z. B. Tausend, Lakh, Crore) in Wörter umzuwandeln.Für Benutzer jeder Excel-Version bietet VBA (Visual Basic for Applications) eine anpassbare Methode, um numerische Beträge mithilfe des indischen Zahlsystems (z. B. Tausend, Lakh, Crore) in Wörter umzuwandeln.Für Benutzer jeder Excel-Version bietet VBA (Visual Basic for Applications) eine anpassbare Methode, um numerische Beträge mithilfe des indischen Zahlsystems (z. B. Tausend, Lakh, Crore) in Wörter umzuwandeln.Für Benutzer jeder Excel-Version bietet VBA (Visual Basic for Applications) eine anpassbare Methode, um numerische Beträge mithilfe des indischen Zahlsystems (z. B. Tausend, Lakh, Crore) in Wörter umzuwandeln.

vba-editor

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

select-module

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

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

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
paste-code

Umwandlung von Zahlen in Indische Rupie in Wörter

Schritt 4. Speichern Sie Ihre Änderungen und kehren Sie zu Excel zurück.

=NumberToWordsCustom(A2, "Dollars", „Cents")

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

use-formula

Drücken Sie die Eingabetaste.

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

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

Einschränkungen bei der Verwendung von VBA

Umwandlung von In Wörter umwandeln in andere Währungen (USD, EUR usw.)

Um die Ausgabe für andere Währungen wie „Dollar“ oder „Euro“ anzupassen, passen Sie einfach die Zeichenfolgenwerte in der VBA-Funktion an. Im Folgenden finden Sie eine vereinfachte und flexiblere Version der Funktion.

'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

Flexibles VBA-Code-Vorlage (benutzerdefinierte Währung)

=RupeeToWords(A2)
vba-formula-to-other-currency

Beispiel für eine VBA-Formel:

=NumberToWordsCustom(A2, "Euros", „Cents")

=NumberToWordsCustom(A2, "Pounds", „Pence")

Beispiel für eine VBA-Formel einer anderen Währung:

Speichern Sie Ihre Arbeitsmappe als makrofähige Datei

Wenn Sie VBA verwenden, sollten Sie Ihre Arbeitsmappe unbedingt als makrofähige Datei speichern – sonst geht Ihr Code beim Schließen verloren.

Schritt 1. Gehen Sie zu Datei > Speichern unter

use-save-as

Schritt 2. Wählen Sie einen Speicherort und legen Sie als Dateityp Excel-Arbeitsmappe mit Makros (*.xlsm) fest.

use-save-as-macro-enabled

Schritt 3. Klicken Sie auf Speichern.

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

Umwandlung von In Wörter umwandeln in Indische Rupie mithilfe der LAMBDA-Funktion (nur Microsoft 365)

Für Excel-365-Benutzer steht LAMBDA zur Verfügung – eine innovative Excel-Funktion, mit der Sie benutzerdefinierte Formeln erstellen können, ganz ohne VBA.

🪄 Was ist LAMBDA?

LAMBDA ist eine Funktion in Excel, mit der Sie eigene benutzerdefinierten Funktionen direkt per Formel erstellen können – ganz ohne Code oder Makros, ähnlich wie bei integrierten Funktionen wie SUMME oder WENN. Sie eignet sich hervorragend, um wiederkehrende Logik zu vereinfachen und Ihre Tabellen übersichtlicher sowie wartungsfreundlicher zu gestalten.

Schritt 1: Gehen Sie zur Registerkarte Formeln und klicken Sie auf Namens-Manager.

select-name-manager

Schritt 2: Erstellen Sie einen neuen Namen.

  • Klicken Sie auf die Schaltfläche Neu.

    create-new-name

  • Geben Sie einen Namen ein.

    Beispiel: RupeeToWords

    create-name

  • Schritt 3: Fügen Sie diese LAMBDA-Formel in das Feld Bezieht sich aufein:

    =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([[PH_1]], IF([[PH_1]]0, „ " & INDEX(units, MOD([[PH_1]],10)+1), „") ) ) ), ConvertThree, LAMBDA(x, IF(x=0, „", IF([[PH_1]]0, „ " & ConvertTwo(MOD([[PH_1]],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 ))
    • paste-lambda-function

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

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

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

Herunterladen

Drücken Sie die Eingabetaste.

use-lambda-formula

👀 Der vollständige LAMBDA-Funktionscode verarbeitet Crore, Lakh, Tausender und Dezimalstellen.

Umwandlung von Zahlen in USD, EUR und 30+ weitere Währungen (alle Microsoft-Versionen)

Für die effizienteste und professionellste Lösung verwenden Sie das Kutools für Excel-Add-In In Wörter umwandeln. Dieses leistungsstarke Tool unterstützt:

🌍 Über 30 Währungen, darunter:

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

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

select-cells

Schritt 2. Gehen Sie zu Kutools > Inhalt > In Wörter umwandeln

select-numbers-to-words

Schritt 3. Wählen Sie Ihre Zielwährung aus und klicken Sie auf „OK“.

select-currency-in-dialog

Die Zahlen werden in die angegebene Währung umgerechnet.

kutools-convert-result

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

convert-to-words

Umwandlung von Zahlen in USD, EUR und 30+ weitere Währungen (alle Microsoft-Versionen)

  • Verwenden Sie VBA, wenn Sie eine flexible, programmierbare Lösung benötigen und bereits Erfahrung mit Makros haben.

  • Nutzen Sie LAMBDA, wenn Sie Excel 365 verwenden und gelegentlich Indische-Rupie-Werte umrechnen müssen – eine ressourcenschonende, teilbare Lösung ohne Makros oder externe Tools, ideal für einfache oder private Aufgaben.
  • Verwenden Sie Kutools für Excel, wenn Sie die einfachste, schnellste und vielseitigste Lösung ohne Programmierkenntnisse suchen. Kutools ist besonders nützlich, wenn:
    • Sie arbeiten mit mehreren Währungen.
    • Sie müssen Werte in großen Mengen oder umfangreichen Datensätzen umrechnen.
    • Sie suchen ein makrofreies, professionell einsetzbares Werkzeug mit über 30 Währungsoptionen und KI-gestützter Leistung.

Beste Office-Produktivitätstools

🤖KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen…
Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

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.

ExcelWordOutlookTabsPowerPoint
  • 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