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.

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

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

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

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

Schritt 6: Klicken Sie auf OK.

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.

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

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

Schritt 4: Klicken Sie auf Einfügen und wählen Sie 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 |
|---|

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

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.

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

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.

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.

Schritt 3: Klicken Sie auf Einfügen und wählen Sie 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 |
|---|

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

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

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

Die Zahlen im ausgewählten Bereich werden in Worte in Indischen Rupien umgewandelt.
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 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.

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“.

Schritt 3: Wählen Sie den Speicherort für WPS Office aus -> 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.

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.





