In diesem Artikel zeige ich Ihnen zwei schnelle und kostenlose Möglichkeiten, um in Excel 2019, 2016, 2013 und anderen Versionen Währungszahlen in englische Wörter umzuwandeln.

Microsoft Excel ist ein großartiges Programm, um dies und jenes zu berechnen. Es wurde ursprünglich entwickelt, um große Datenmengen zu verarbeiten. Aber auch Buchhaltungsunterlagen wie Rechnungen, Auswertungen oder Bilanzen lassen sich damit schnell und effektiv erstellen.

In mehr oder weniger soliden Zahlungsdokumenten ist es notwendig, numerische Werte mit ihrer Wortform zu duplizieren. Es ist viel schwieriger, getippte Zahlen zu fälschen als handgeschriebene. Ein Betrüger kann versuchen, aus 3000 8000 zu machen, während es fast unmöglich ist, heimlich "drei" durch "acht" zu ersetzen.

Sie müssen also nicht nur Zahlen in Excel in Wörter umwandeln (z. B. 123,45 in "einhundertdreiundzwanzig, fünfundvierzig"), sondern auch Dollar und Cent buchstabieren (z. B. $29,95 als "neunundzwanzig Dollar und neunundneunzig Cent"), Pfund und Pence für GBP, Euro und Eurocent für EUR usw.

Selbst die neuesten Versionen von Excel verfügen nicht über ein eingebautes Tool für die Rechtschreibung von Zahlen, ganz zu schweigen von früheren Versionen. Aber gerade dann ist Excel wirklich gut. Man kann seine Funktionalität immer verbessern, indem man Formeln in all ihren

Kombinationen, VBA-Makros oder Add-Ins von Drittanbietern.

Im Folgenden finden Sie zwei Möglichkeiten, Zahlen in Wörter umzuwandeln

Und möglicherweise müssen Sie in Excel Wörter in Zahlen umwandeln.

Hinweis: Wenn Sie nach dem Umwandlung von Zahlen in Text Dafür können Sie die Funktion TEXT oder einige andere Methoden verwenden, die in Wie man Zahlen in Excel in Text umwandelt beschrieben sind.

SpellNumber VBA-Makro zur Umwandlung von Zahlen in Wörter

Wie ich bereits erwähnt habe, wollte Microsoft kein Tool für diese Aufgabe hinzufügen. Als sie jedoch sahen, wie viele Benutzer es brauchten, haben sie das spezielle VBA-Makro erstellt und auf ihrer Website veröffentlicht. Das Makro tut, was sein Name SpellNumber vermuten lässt. Alle anderen Makros, die ich gefunden habe, basieren auf dem Microsoft-Code.

Sie finden das Makro unter dem Namen "spellnumber formula", aber es handelt sich nicht um eine Formel, sondern um eine Makrofunktion, oder genauer gesagt Excel Benutzerdefinierte Funktion (UDF).

Die Rechtschreiboption kann Dollar und Cents schreiben. Wenn Sie eine andere Währung benötigen, können Sie " Dollar " und " Cent " mit dem Namen Ihrer Person.

Wenn Sie kein VBA-Kenner sind, finden Sie unten eine Kopie des Codes. Wenn Sie sich nicht selbst darum kümmern wollen oder können, verwenden Sie bitte diese Lösung.

1. Öffnen Sie die Arbeitsmappe, in der Sie die Zahlen buchstabieren müssen.
2. Drücken Sie Alt+F11, um das Visual Basic-Editorfenster zu öffnen.
3. Wenn Sie mehrere Bücher geöffnet haben, überprüfen Sie anhand der Liste der Projekte in der oberen linken Ecke des Editors, ob die gewünschte Arbeitsmappe aktiv ist (eines der Arbeitsmappenelemente ist blau markiert).
4. Gehen Sie im Menü des Editors auf einfügen. -> Modul .
5. Es sollte ein Fenster mit dem Namen YourBook - Module1 erscheinen. Wählen Sie den gesamten Code im Rahmen unten aus und fügen Sie ihn in dieses Fenster ein.

   Option Explicit 'Main Function Function SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MeineZahl = Trim(Left(MeineZahl, DecimalPlace - 1)) End If Count = 1 Do While MeineZahl "" Temp = GetHundreds(Right(MeineZahl, 3)) If Temp "" Then Dollars = Temp & Place(Count) & Dollars If Len(MeineZahl)> 3 Then MeineZahl = Left(MeineZahl, Len(MeineZahl) - 3) Else MeineZahl = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "OneDollar" 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 SpellNumber = Dollars & Cents End Function Function GetHundreds( ByVal MeineZahl) Dim Result As String If Val(MeineZahl) = 0 Then Exit Function MeineZahl = Right( "000" & MeineZahl,3) ' Konvertieren der Hunderterstelle If Mid(MeineZahl, 1, 1) "0" Then Result = GetDigit(Mid(MeineZahl, 1, 1)) & " Hunderter " End If ' Konvertieren der Zehner- und Einerstelle If Mid(MeineZahl, 2, 1) "0" Then Result = Ergebnis & GetTens(Mid(MeineZahl, 2)) Else Result = Ergebnis & GetDigit(Mid(MeineZahl, 3)) End If GetHundreds = Ergebnis End Function Function GetTens(TensText) Dim Result As String Result = ""' Den Wert der temporären Funktion löschen. If Val(Left(TensText, 1)) = 1 Then ' Wenn Wert zwischen 10-19... Select Case Val(TensText) Case 10: Ergebnis = "Zehn" Case 11: Ergebnis = "Elf" Case 12: Ergebnis = "Zwölf" Case 13: Ergebnis = "Dreizehn" Case 14: Ergebnis = "Vierzehn" Case 15: Ergebnis = "Fünfzehn" Case 16: Ergebnis = "Sechzehn" Case 17: Ergebnis = "Siebzehn" Case 18: Ergebnis = "Achtzehn" Case 19: Ergebnis ="Neunzehn" Case Else End Select Else ' Wenn Wert zwischen 20-99... Select Case Val(Left(TensText, 1)) Case 2: Ergebnis = "Zwanzig " Case 3: Ergebnis = "Dreißig " Case 4: Ergebnis = "Vierzig " Case 5: Ergebnis = "Fünfzig " Case 6: Ergebnis = "Sechzig " Case 7: Ergebnis = "Siebzig " Case 8: Ergebnis = "Achtzig " Case 9: Ergebnis = "Neunzig " Case Else End Select Result = Ergebnis & GetDigit _ (Right(TensText, 1)) ' AbrufenEnd If GetTens = Ergebnis End Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Eins" Case 2: GetDigit = "Zwei" Case 3: GetDigit = "Drei" Case 4: GetDigit = "Vier" Case 5: GetDigit = "Fünf" Case 6: GetDigit = "Sechs" Case 7: GetDigit = "Sieben" Case 8: GetDigit = "Acht" Case 9: GetDigit = "Neun" Case Else : GetDigit = "" End Select End Function

6. Drücken Sie Strg+S, um die aktualisierte Arbeitsmappe zu speichern.

   Sie müssen Ihre Arbeitsmappe neu speichern. Wenn Sie versuchen, die Arbeitsmappe mit einem Makro zu speichern, erhalten Sie die Meldung " Die folgenden Funktionen können in makrofreien Arbeitsmappen nicht gespeichert werden "

   

   Klicken Sie auf Nein. Wenn ein neuer Dialog erscheint, wählen Sie die Option Speichern unter. Im Feld " Speichern als Typ " wählen Sie die Option " Excel-Makro-aktivierte Arbeitsmappe ".

   

Verwenden Sie das Makro SpellNumber in Ihren Arbeitsblättern

Jetzt können Sie die Funktion SpellNumber in Ihren Excel-Dokumenten eingeben. =SpellNumber(A2) in die Zelle, in der Sie die Zahl in Worten ausgedrückt haben möchten. Hier ist A2 die Adresse der Zelle mit der Zahl oder dem Betrag.

Hier können Sie das Ergebnis sehen:

Voilà!

Kopieren Sie die Funktion SpellNumber schnell auf andere Zellen.

Wenn Sie nicht nur eine Zelle, sondern die gesamte Tabelle umwandeln möchten, bewegen Sie den Mauszeiger in die untere rechte Ecke der Zelle mit der Formel, bis er sich in ein kleines schwarzes Kreuz verwandelt:

Klicken Sie mit der linken Maustaste und ziehen Sie sie über die Spalte, um die Formel auszufüllen. Lassen Sie die Taste los, um die Ergebnisse zu sehen:

Hinweis: Bitte beachten Sie, dass bei der Verwendung von SpellNumber mit einer Verknüpfung zu einer anderen Zelle die geschriebene Summe jedes Mal aktualisiert wird, wenn die Zahl in der Quellzelle geändert wird.

Sie können die Nummer auch direkt in die Funktion eingeben, zum Beispiel, =SpellNumber(29.95) (29,95 - ohne Anführungszeichen und das Dollarzeichen).

Nachteile der Verwendung von Makros zum Buchstabieren von Zahlen in Excel

Zunächst einmal müssen Sie VBA beherrschen, um den Code Ihren Bedürfnissen entsprechend anzupassen. Es ist notwendig, den Code für jede Arbeitsmappe einzufügen, in der Sie ihn ändern möchten. Andernfalls müssen Sie eine Vorlagendatei mit Makros erstellen und Excel so konfigurieren, dass diese Datei bei jedem Start geladen wird.

Der größte Nachteil bei der Verwendung von Makros besteht darin, dass, wenn Sie die Arbeitsmappe an eine andere Person senden, diese Person den Text nicht sehen kann, es sei denn, das Makro ist in die Arbeitsmappe integriert. Und selbst wenn es integriert ist, erhält sie eine Warnung, dass in der Arbeitsmappe Makros vorhanden sind.

Buchstabieren von Zahlen in Wörtern mit einem speziellen Add-In

Für Excel-Benutzer, die schnell Summen buchstabieren müssen, aber keine Zeit haben, VBA zu lernen oder Workarounds zu finden, haben wir ein spezielles Tool entwickelt, mit dem die Umrechnung von Beträgen in Wörter für einige gängige Währungen schnell durchgeführt werden kann: das Add-in Spell Number, das in der neuesten Version unserer Ultimate Suite für Excel enthalten ist.

Das Tool ist nicht nur sofort einsatzbereit, sondern auch sehr flexibel bei der Umwandlung von Beträgen in Text:

• Sie können eine der folgenden Währungen auswählen: USD, EUR, GBP, BIT, AUD.
• Buchstabieren Sie den Bruchteil in Cents, Pennies oder Bitcents.
• Wählen Sie eine beliebige Groß- oder Kleinschreibung für das Ergebnis: Kleinbuchstaben, Großbuchstaben, Großbuchstaben für den Titel oder Großbuchstaben für den Satz.
• Schreiben Sie den Dezimalteil auf verschiedene Arten.
• Null-Cent-Beträge einschließen oder weglassen.

Das Add-In unterstützt alle modernen Versionen, einschließlich Excel 365, Excel 2029, Excel 2016, Excel 2013 und Excel 2010. Weitere Funktionen finden Sie auf der oben verlinkten Homepage des Produkts.

Und jetzt sehen wir uns dieses Dienstprogramm für die Zahlenbuchstabierung in Aktion an:

1. Wählen Sie eine leere Zelle für das Ergebnis.
2. Auf der Ablebits auf der Registerkarte Versorgungsunternehmen Gruppe, klicken Sie auf Zauberspruch Nummer .
3. In der Nummer der Verschüttung konfigurieren Sie die folgenden Dinge:
   • Für die Wählen Sie Ihre Nummer wählen Sie die Zelle aus, die den Betrag enthält, der als Text geschrieben werden soll.
   • Geben Sie die gewünschte derzeit , Großbuchstabe und die Art und Weise, wie die Dezimalteil der Nummer buchstabiert werden sollte.
   • Legen Sie fest, ob Null-Cent-Beträge einbezogen werden sollen oder nicht.
   • Wählen Sie, ob das Ergebnis als Wert oder als Formel eingefügt werden soll.
4. Am unteren Rand des Dialogfensters, Vorschau Wenn Sie mit der Schreibweise Ihrer Nummer zufrieden sind, klicken Sie auf Zauberspruch Versuchen Sie andernfalls andere Einstellungen.

Die folgende Abbildung zeigt die Standardauswahl und die buchstabierte Zahl in B2. Bitte beachten Sie eine Formel (genauer gesagt, eine benutzerdefinierte Funktion) in der Formelleiste:

Und dies ist eine kurze Demonstration, wie andere Währungen buchstabiert werden können:

Tipps und Hinweise:

• Weil die Zauberspruch Nummer Add-In für reale Anwendungsfälle wie Rechnungen und andere Finanzdokumente entwickelt wurde, kann es nur eine Zahl zu einer Zeit.
• Buchstabieren eines Zahlenkolonne , fügen Sie eine Formel in die erste Zelle ein und kopieren Sie die Formel nach unten.
• Wenn die Möglichkeit besteht, dass sich Ihre Quelldaten in Zukunft ändern, ist es am besten, wenn Sie das Ergebnis als Formel einfügen Sie wird also automatisch aktualisiert, wenn sich die ursprüngliche Nummer ändert.
• Bei der Auswahl des Ergebnis als Formel Option, eine benutzerdefinierte benutzerdefinierte Funktion (Wenn Sie Ihre Arbeitsmappe an jemanden weitergeben möchten, der Ultimate Suite nicht installiert hat, denken Sie daran, vor der Weitergabe Formeln durch Werte zu ersetzen.

Umkehrung - Englische Wörter in Zahlen

Ehrlich gesagt kann ich mir nicht vorstellen, wozu Sie das brauchen könnten... :)

Es scheint, dass Excel MVP, Jerry Latham, solche Excel User defined function (UDF) als WordsToDigits Es konvertiert englische Wörter zurück in Zahlen.

Sie können Jerrys Arbeitsmappe WordsToDigits herunterladen, um den UDF-Code zu sehen. Hier finden Sie auch seine Beispiele für die Verwendung der Funktion.

Wie die Funktion funktioniert, können Sie auf dem Blatt " Beispieleinträge ", wo Sie auch Ihre eigenen Beispiele eingeben können. Wenn Sie WordsToDigits in Ihren Dokumenten verwenden möchten, beachten Sie bitte, dass diese Funktion Einschränkungen hat. Sie erkennt zum Beispiel keine Brüche, die in Wörtern eingegeben werden. Alle Details finden Sie auf der Seite " Informationen Blatt".