logo
search
list

Inhaltsverzeichnis

2 einfache Wege, um in Excel Zahlen in Worte für Indische Rupien umzuwandeln:
Die beste kostenlose Alternative zu Microsoft Office – WPS Office
FAQs:
Zusammenfassung:

So wandeln Sie in Excel Zahlen in Worte für Indische Rupien um

Veröffentlicht von Taran Volkmann

calendar

2026-09-24

views

868

likes

59

Wenn Sie in Excel mit Zahlen arbeiten, müssen Sie diese für offizielle Dokumente oder zur besseren Übersichtlichkeit manchmal sowohl in Zahlen als auch in Worten angeben. Excel bietet dafür jedoch keine integrierte Funktion, insbesondere nicht für Indische Rupien. Daher greifen Sie möglicherweise auf komplizierte Formeln oder externe Tools zurück, oder erledigen dies manuell.

In dieser Anleitung zeigen wir Ihnen Schritt für Schritt eine einfache Methode, um in Excel Zahlen in Worte für Indische Rupien umzuwandeln.

2 einfache Wege, um in Excel Zahlen in Worte in Indischen Rupien umzuwandeln:

Natürlich müssen Sie sich zuallererst einen ordnungsgemäßen Microsoft Excel-Download besorgen!

Methode 1: Zahlen mit VBA-Code in Worte in Indischen Rupien umwandeln

Bevor Sie Zahlen mithilfe von VBA-Code in Worte in Indischen Rupien umwandeln, müssen Sie möglicherweise die Entwicklertools-Registerkarte zu Ihrem Menüband hinzufügen, um die VBA-Funktionen zu öffnen.

So aktivieren Sie die Entwicklertools-Registerkarte in Excel:

Schritt 1: Öffnen Sie die Excel-Tabelle, die die Zahlen enthält, die Sie umwandeln möchten.


Umzuwandelnde Zahl in der Tabelle


Schritt 2: Klicken Sie auf Datei und wählen Sie Optionen in der Liste.


Datei-OptionenAlt: Schaltfläche Optionen


Schritt 3: Wählen Sie in den Excel-Optionen die Option Menüband anpassen.


Registerkarte Optionen und Schaltfläche Menüband anpassen


Schritt 4: Wählen Sie im Dropdown-Menü Befehle auswählen die Option Alle Registerkarten.


Befehle aus der Liste auswählen, wobei Alle Registerkarten ausgewählt ist


Schritt 5: Suchen Sie in der Liste nach Entwicklertools und klicken Sie auf Hinzufügen.


Registerkarte Entwicklertools und Schaltfläche Hinzufügen


Schritt 6: Klicken Sie auf OK.


Registerkarte Entwicklertools wird hinzugefügt und OK-Schaltfläche


Word, Excel und PPT KOSTENLOS nutzen

Hier sind die Schritte, um Zahlen mithilfe von VBA-Code in Worte in Indischen Rupien umzuwandeln:

Schritt 1: Öffnen Sie die Excel-Tabelle, die die Zahlen enthält, die Sie umwandeln möchten.


Umzuwandelnde Zahl in der Tabelle


Schritt 2: Klicken Sie auf die Registerkarte Entwicklertools. Wenn Sie diese Registerkarte nicht sehen, befolgen Sie den obigen Schritt, um sie zu aktivieren.


Registerkarte Entwicklertools


Schritt 3: Klicken Sie auf Visual Basic oder verwenden Sie die Tastenkombination Alt + F11.


Schaltfläche Visual Basic


Schritt 4: Klicken Sie auf Einfügen und wählen Sie Modul.


Klicken Sie auf Einfügen > Modul


Schritt 5: Fügen Sie den in der Referenz bereitgestellten VBA-Code ein.

Public Function RupeeFormat(SNum As String)

'Updateby Extendoffice

Dim xDPInt As Integer

Dim xArrPlace As Variant

Dim xRStr_Paisas As String

Dim xNumStr As String

Dim xF As Integer

Dim xTemp As String

Dim xStrTemp As String

Dim xRStr As String

Dim xLp As Integer

xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")

On Error Resume Next

If SNum = "" Then

RupeeFormat = ""

Exit Function

End If

xNumStr = Trim(str(SNum))

If xNumStr = "" Then

RupeeFormat = ""

Exit Function

End If

xRStr = ""

xLp = 0

If (xNumStr > 999999999.99) Then

RupeeFormat = "Digit excced Maximum limit"

Exit Function

End If

xDPInt = InStr(xNumStr, ".")

If xDPInt > 0 Then

If (Len(xNumStr) - xDPInt) = 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))

ElseIf (Len(xNumStr) - xDPInt) > 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))

End If

xNumStr = Trim(Left(xNumStr, xDPInt - 1))

End If

xF = 1

Do While xNumStr <> ""

If (xF >= 2) Then

xTemp = Right(xNumStr, 2)

Else

If (Len(xNumStr) = 2) Then

xTemp = Right(xNumStr, 2)

ElseIf (Len(xNumStr) = 1) Then

xTemp = Right(xNumStr, 1)

Else

xTemp = Right(xNumStr, 3)

End If

End If

xStrTemp = ""

If Val(xTemp) > 99 Then

xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)

If Right(Trim(xStrTemp), 3) <> "Lac" Then

xLp = xLp + 1

End If

ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then

xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))

ElseIf Val(xTemp) < 10 Then

xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))

End If

If xStrTemp <> "" Then

xRStr = xStrTemp & xArrPlace(xF) & xRStr

End If

If xF = 2 Then

If Len(xNumStr) = 1 Then

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

End If

ElseIf xF = 3 Then

If Len(xNumStr) >= 3 Then

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

Else

xNumStr = ""

End If

ElseIf xF = 4 Then

xNumStr = ""

Else

If Len(xNumStr) <= 2="" then="">

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 3)

End If

End If

xF = xF + 1

Loop

If xRStr = "" Then

xRStr = "No Rupees"

Else

xRStr = " Rupees " & xRStr

End If

If xRStr_Paisas <> "" Then

xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"

End If

RupeeFormat = xRStr & xRStr_Paisas & " Only"

End Function

Function RupeeFormat_GetH(xStrH As String, xLp As Integer)

Dim xRStr As String

If Val(xStrH) < 1 Then

RupeeFormat_GetH = ""

Exit Function

Else

xStrH = Right("000" & xStrH, 3)

If Mid(xStrH, 1, 1) <> "0" Then

If (xLp > 0) Then

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "

Else

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "

End If

End If

If Mid(xStrH, 2, 1) <> "0" Then

xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))

Else

xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))

End If

End If

RupeeFormat_GetH = xRStr

End Function

Function RupeeFormat_GetT(xTStr As String)

Dim xTArr1 As Variant

Dim xTArr2 As Variant

Dim xRStr As String

xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

Result = ""

If Val(Left(xTStr, 1)) = 1 Then

xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))

Else

If Val(Left(xTStr, 1)) > 0 Then

xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)

End If

xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))

End If

RupeeFormat_GetT = xRStr

End Function

Function RupeeFormat_GetD(xDStr As String)

Dim xArr_1() As Variant

xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")

If Val(xDStr) > 0 Then

RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)

Else

RupeeFormat_GetD = ""

End If

End Function


VBA-Code in Referenz eingefügt


Schritt 5: Speichern Sie (Strg + S) und schließen Sie den VBA-Editor. Wählen Sie beim Speichern die Option Excel-Arbeitsmappe mit Makros.


Dateityp


Schritt 6: Geben Sie die Formel =RupeeFormat(Zielzelle) in die Zelle ein, in der das Wort angezeigt werden soll, und drücken Sie die Eingabetaste.


Formel =RupeeFormat(Zielzelle)


Schritt 7: Das Ergebnis wird angezeigt. Ziehen Sie es nach unten, um die Formel auf andere Zellen anzuwenden.


Ergebnisse für alle Zellen werden angezeigt


Die Zahlen im ausgewählten Bereich werden in Worte in Indischen Rupien umgewandelt.

Methode 2: Zahlen in Excel in Worte in Indischen Rupien umwandeln (allgemeine Methode)

Lernen Sie die allgemeine Methode kennen, um in Excel Zahlen in Worte in Indischen Rupien umzuwandeln – ein praktischer Schritt, wenn Sie Rechnungen für die Buchhaltung vorbereiten.

Schritt 1: Öffnen Sie die Excel-Tabelle, die die Zahlen enthält, die Sie umwandeln möchten.


Umzuwandelnde Zahl in der Tabelle


Schritt 2: Klicken Sie mit der rechten Maustaste auf den Blattnamen und wählen Sie Code anzeigen, um die VBA-Anwendung zu öffnen. Dies ist auch nützlich für die Datenanalyse in Excel.


Registerkarte Blatt und Schaltfläche Code anzeigen


Schritt 3: Klicken Sie auf Einfügen und wählen Sie Modul.


Klicken Sie auf Einfügen > Modul


Schritt 4: Fügen Sie den in der Referenz bereitgestellten VBA-Code ein.

Public Function RupeeFormat(SNum As String)

'Update By Nirmal

Dim xDPInt As Integer

Dim xArrPlace As Variant

Dim xRStr_Paisas As String

Dim xNumStr As String

Dim xF As Integer

Dim xTemp As String

Dim xStrTemp As String

Dim xRStr As String

Dim xLp As Integer

xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")

On Error Resume Next

If SNum = "" Then

RupeeFormat = ""

Exit Function

End If

xNumStr = Trim(Str(SNum))

If xNumStr = "" Then

RupeeFormat = ""

Exit Function

End If

xRStr = ""

xLp = 0

If (xNumStr > 999999999.99) Then

RupeeFormat = "Digit excced Maximum limit"

Exit Function

End If

xDPInt = InStr(xNumStr, ".")

If xDPInt > 0 Then

If (Len(xNumStr) - xDPInt) = 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))

ElseIf (Len(xNumStr) - xDPInt) > 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))

End If

xNumStr = Trim(Left(xNumStr, xDPInt - 1))

End If

xF = 1

Do While xNumStr <> ""

If (xF >= 2) Then

xTemp = Right(xNumStr, 2)

Else

If (Len(xNumStr) = 2) Then

xTemp = Right(xNumStr, 2)

ElseIf (Len(xNumStr) = 1) Then

xTemp = Right(xNumStr, 1)

Else

xTemp = Right(xNumStr, 3)

End If

End If

xStrTemp = ""

If Val(xTemp) > 99 Then

xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)

If Right(Trim(xStrTemp), 3) <> "Lac" Then

xLp = xLp + 1

End If

ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then

xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))

ElseIf Val(xTemp) < 10 Then

xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))

End If

If xStrTemp <> "" Then

xRStr = xStrTemp & xArrPlace(xF) & xRStr

End If

If xF = 2 Then

If Len(xNumStr) = 1 Then

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

End If

ElseIf xF = 3 Then

If Len(xNumStr) >= 3 Then

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

Else

xNumStr = ""

End If

ElseIf xF = 4 Then

xNumStr = ""

Else

If Len(xNumStr) <= 2="" then="">

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 3)

End If

End If

xF = xF + 1

Loop

If xRStr = "" Then

xRStr = "No Rupees"

Else

xRStr = " Rupees " & xRStr

End If

If xRStr_Paisas <> "" Then

xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"

End If

RupeeFormat = xRStr & xRStr_Paisas & " Only"

End Function

Function RupeeFormat_GetH(xStrH As String, xLp As Integer)

Dim xRStr As String

If Val(xStrH) < 1 Then

RupeeFormat_GetH = ""

Exit Function

Else

xStrH = Right("000" & xStrH, 3)

If Mid(xStrH, 1, 1) <> "0" Then

If (xLp > 0) Then

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "

Else

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "

End If

End If

If Mid(xStrH, 2, 1) <> "0" Then

xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))

Else

xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))

End If

End If

RupeeFormat_GetH = xRStr

End Function

Function RupeeFormat_GetT(xTStr As String)

Dim xTArr1 As Variant

Dim xTArr2 As Variant

Dim xRStr As String

xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

Result = ""

If Val(Left(xTStr, 1)) = 1 Then

xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))

Else

If Val(Left(xTStr, 1)) > 0 Then

xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)

End If

xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))

End If

RupeeFormat_GetT = xRStr

End Function

Function RupeeFormat_GetD(xDStr As String)

Dim xArr_1() As Variant

xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")

If Val(xDStr) > 0 Then

RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)

Else

RupeeFormat_GetD = ""

End If

End Function


VBA-Code in Referenz eingefügt


Schritt 5: Wählen Sie als Dateityp Excel-Arbeitsmappe mit Makros. Schließen Sie das Fenster des VBA-Editors.


Dateityp


Schritt 6: Fügen Sie die Formel =RupeeFormat(Zielzelle) in die ausgewählte Zelle ein, um das Ergebnis anzuzeigen.


Formel =RupeeFormat(Zielzelle)


Schritt 7: Ziehen Sie das Ergebnis nach unten, um die Formel auf andere Zellen anzuwenden, nachdem es in der ausgewählten Zelle erschienen ist.


Ergebnisse für alle Zellen werden angezeigt


Die Zahlen im ausgewählten Bereich werden in Worte in Indischen Rupien umgewandelt.

Kostenloser Office-Download
  • Word, Excel und PPT KOSTENLOS nutzen, werbefrei.

  • Bearbeiten Sie PDF-Dateien mit dem leistungsstarken PDF-Toolkit.

  • Microsoft-ähnliche Benutzeroberfläche. Leicht zu erlernen. 100 % Kompatibilität.

  • Steigern Sie Ihre Produktivität mit den zahlreichen kostenlosen Word-, Excel-, PPT- und Lebenslauf-Vorlagen von WPS.

Avatar
Algirdas Jasaitis

Beste kostenlose Alternative zu Microsoft Office – WPS Office

Neben Microsoft Office möchte ich Ihnen eine weitere App vorstellen: WPS Office. Also, was ist WPS?


WPS Office


WPS Office ist eine kostenlose und quelloffene Office-Suite, die mit Microsoft Office kompatibel ist. Sie umfasst ein Textverarbeitungsprogramm, eine Tabellenkalkulation, Präsentationssoftware und einen PDF-Reader, sodass Sie Dateien problemlos öffnen, bearbeiten und speichern können. Zudem ist sie äußerst benutzerfreundlich, selbst für Personen ohne vorherige Erfahrung mit Office-Suites.

Darüber hinaus ist WPS Office eine leistungsstarke Office-Suite mit einer Vielzahl an Funktionen. Sie stellt eine hervorragende Alternative zu NeoOffice dar, insbesondere für Studenten und Unternehmen mit begrenztem Budget.

Werfen Sie einen kurzen Blick auf einige Funktionen von WPS:

●  Kostenlose Nutzung von Word, Excel und PPT. Leistungsstarkes PDF-Toolkit

●  Umfangreicher Vorlagen-Store

●  Vielfältige Funktionen: Lebenslauf-Assistent, intelligente Formulare, Bildschirmaufzeichnung, Dateireparatur und weitere kleine, in das Produkt integrierte Tools

● Das Produkt ist mit nur 200 MB sehr kompakt und beansprucht nur wenig Arbeitsspeicher.

● Die Mac-Version von WPS Office ist äußerst leistungsstark. Microsoft Office vernachlässigt oft die Bedürfnisse von Mac-Nutzern – eine Lücke, die WPS Office perfekt schließt.

● Unterstützung für Online-Dokumente (WPS AirPage) und gemeinsame Bearbeitung durch mehrere Personen

● WPS Office unterstützt auch Linux, Android und iOS. Um WPS Office-Produkte auf verschiedenen Systemen zu nutzen, müssen Sie sich lediglich mit demselben Konto anmelden, wodurch alle Dateien synchronisiert werden können.


Kostenloser Download auf mehreren Plattformen


Sie sind überzeugt, dass WPS Office die beste Wahl für Sie ist, und möchten es herunterladen? Besuchen Sie die offizielle Website unter https://www.wps.com und laden Sie es jetzt herunter.

So laden Sie WPS Office herunter

Schritt 1: Besuchen Sie die WPS Office-Website: wps.com.

Schritt 2: Klicken Sie auf die Schaltfläche „Kostenloser Download“.


Wählen Sie


Schritt 3: Wählen Sie den Speicherort für WPS Office aus -> Speichern.


WPS Office-Datei speichern


Schritt 4: Doppelklicken Sie auf die WPS Office-Datei in Ihrem Download-Ordner, klicken Sie auf „Ausführen“ und befolgen Sie die Anweisungen auf dem Bildschirm, um die Installation durchzuführen.


Software ausführen


Schritt 5: Nach Abschluss können Sie den vollen Funktionsumfang von WPS Office genießen.

Häufig gestellte Fragen (FAQs):

F1: Wie wandle ich in Excel VBA Währung in Text um?

  • Sie können VBA (Visual Basic for Applications) verwenden, um in Excel Währungen in Text umzuwandeln. Dafür müssen Sie ein benutzerdefiniertes VBA-Makro schreiben. Online finden Sie zahlreiche Beispiele und Code-Snippets, oder Sie ziehen die Excel-VBA-Dokumentation zurate.

F2: Wie wandle ich in Excel eine Währung in ausgeschriebenen Text um?

  • Um in Excel Währungen in Worte umzuwandeln, verwenden Sie in der Regel eine Kombination aus Funktionen und benutzerdefinierter Formatierung. Online finden Sie verschiedene Tutorials und Anleitungen, die erklären, wie das geht.

F3: Wie formatiert man in Excel Zahlen für Indische Rupien?

  • Um Zahlen in Excel für Indische Rupien zu formatieren, können Sie die integrierten Währungsformatierungsoptionen nutzen. Markieren Sie die zu formatierende Zelle oder den Bereich, gehen Sie im Dialogfeld „Zellen formatieren“ zur Registerkarte „Zahlen“ und wählen Sie die Kategorie „Währung“. Dort können Sie „₹ Englisch (Indien)“ als Währungssymbol auswählen.

F4: Wie wandle ich in Excel Zahlen automatisch in Text um?

  • Es gibt mehrere Möglichkeiten, Zahlen in Excel automatisch in Text umzuwandeln. Sie können Excel-Funktionen wie TEXT, VERKETTEN oder benutzerdefinierte Formatierungen verwenden. Für eine fortgeschrittenere Automatisierung eignen sich auch VBA-Makros.

F5: Wie rechnet man in Excel US-Dollar in Indische Rupien um?

Um in Excel US-Dollar in Indische Rupien umzurechnen, können Sie eine Kombination aus Excel-Funktionen und Webdiensten oder externen Datenquellen verwenden, die aktuelle Wechselkurse bereitstellen. Das „Währungs“-Format von Excel kann zudem genutzt werden, um Beträge nach Ermittlung des Wechselkurses in Indischen Rupien anzuzeigen.

F6. Möchten Sie Excel Online für einfacheres Arbeiten nutzen?

  • Wenn Sie lieber in der Cloud arbeiten, bietet Ihnen Excel Online dieselben leistungsstarken Funktionen, um Ihre Daten von überall aus zu verwalten und zu bereinigen. Mit Excel Online können Sie dieselben Funktionen nutzen, um Zeichen auf der linken oder rechten Seite Ihrer Daten zu entfernen. Dies macht es zu einer großartigen Option für alle, die Flexibilität benötigen oder keinen Zugriff auf eine Desktop-Version von Excel haben.

Zusammenfassung:

Erfahren Sie, wie Sie in Excel numerische Beträge ganz einfach mit VBA-Code oder einer allgemeinen Methode in Worte für Indische Rupien umwandeln können. Aktivieren Sie zunächst die Registerkarte Entwicklertools in Excel, fügen Sie den bereitgestellten VBA-Code hinzu und verwenden Sie die Formel =RupeeFormat(Zielzelle).

Alternativ klicken Sie mit der rechten Maustaste auf den Blattnamen, um auf VBA zuzugreifen, fügen ein Modul ein, kopieren den Code hinein und verwenden dieselbe Formel. Diese benutzerfreundlichen Methoden sind auch mit WPS Office kompatibel – einer kostenlosen Alternative zu Microsoft Office, mit der präzise und professionelle Dokumentformatierung zum Kinderspiel wird.

100 % sicher


Taran Volkmann

Seit über zehn Jahren lebe ich meine Leidenschaft rund um Technik, Produktivität und die Welt der Office-Software und bin immer auf der Suche nach neuen Ideen! Begleite mich für spannende Tipps, inspirierende Einblicke und die neuesten Highlights.