Microsoft Excel ist eines der leistungsstärksten Tools, mit dem es möglich sein wird, große Datenmengen verschiedener Typen (Zahlen, Daten, Text usw.) zu verwalten und zu steuern, und zwar dank Hunderten von Funktionen, Formeln und integrierten Tools, mit denen die vollständige Kontrolle über alle in die aktiven Tabellen eingegebenen Daten. Eine der Aufgaben, die sowohl 2016 als auch 2019 in Excel wiederkehrend oder nützlich sein kann, ist die Umwandlung von Zahlen in Buchstaben. Dies ist besonders nützlich, wenn wir uns in einem Buchhaltungs- oder Finanzbereich befinden, da hierdurch Werte direkt in Buchstaben generiert werden können.
Obwohl Microsoft Excel 2016 und die neue Ausgabe 2019 voll von Funktionen sind, verfügt Excel nicht über eine integrierte Funktion, die für die Anzeige von Zahlen als Wörter in einer Kalkulationstabelle verantwortlich ist. Dies kann für viele Benutzer ein Problem oder ein Fehler sein. Um diese Konvertierung zu erreichen, müssen wir einen Code für die SpellNumber-Funktion in einem VBA-Modul (Visual Basic für Applikationen) erstellen, der diese Aktion automatisiert.
TechnoWikis wird detailliert erläutern, wie dies in Microsoft Excel 2019 durchgeführt wird. Für Excel 2016 gilt jedoch derselbe Prozess.
Erstellen Sie die SpellNumber-Funktion, um Zahlen in Wörter in Microsoft Excel 2019, 2016 zu konvertieren
Um diesen Prozess auszuführen, müssen wir auf das Visual Basic Editor (VBE) -Fenster zugreifen, auf das über die folgenden Tasten zugegriffen wird.
+ F11 Alt + F11
Eine andere alternative Methode ist die Verwendung des Programmer-Menüs. Wenn Sie das nicht haben (denken Sie daran, dass es standardmäßig deaktiviert ist), müssen Sie zum Menü “Datei / Optionen” gehen und dort zum Abschnitt “Anpassen des Menübands”: 
Dort gehen wir zur rechten lateralen Seite und aktivieren das “Programmer” Feld und klicken auf OK, denken Sie daran, dass es mit diesem Menü möglich sein wird:
- Makros schreiben
- Verwenden Sie XML-Befehle
- Verwenden Sie ActiveX-Steuerelemente.
- Führen Sie zuvor aufgezeichnete Makros aus.
- Erstellen Sie Anwendungen zur Verwendung mit Microsoft Office-Programmen.
- Verwenden Sie Formularsteuerelemente in Microsoft Excel.
- Arbeiten Sie mit ShapeSheet in Microsoft Visio.
- Erstellen Sie neue Formen und Schablonen in Microsoft Visio.
Sobald wir auf das Visual Basic Editor-Fenster zugreifen, gehen wir zum Menü “Einfügen” und wählen dort die Option “Modul” aus:
In dem neuen Fenster werden wir den folgenden Inhalt einfügen:
Option explizit Hauptfunktion Funktion SpellNumber (ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place (9) als String Ort (2) = "Tausend" Ort (3) = "Millon" Platz (4) = "Billon" Platz (5) = "Trillon" 'String-Darstellung des Betrags. MyNumber = Trim (Str (MyNumber)) 'Position der Dezimalstelle 0, falls keine. DecimalPlace = InStr (MyNumber, ".") 'Konvertiere Cent und setze MyNumber auf Dollarbetrag. Wenn DecimalPlace> 0, dann Cents = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds (Richtig (MyNumber, 3)) Wenn Temp <> "", dann Dollars = Temp & Place (Count) & Dollars Wenn Len (MyNumber)> 3 Dann MyNumber = Left (MyNumber, Len (MyNumber) - 3) Sonst MyNumber = "" End If Count = Count + 1 Schleife Wählen Sie Groß- / Kleinschreibung Fall "" Dollars = "Es gibt keine Dollars" Fall "One" Dollar = "Ein Dollar" Fall sonst Dollars = Dollars & "Dollars" Ende auswählen Wählen Sie Groß- / Kleinschreibung Fall "" Cent = "Kein Cent" Fall "One" Cent = "Und ein Penny" Fall sonst Cents = "y" & Cents & "Cents" Ende auswählen SpellNumber = Dollars & Cents Funktion beenden 'Wandelt eine Zahl von 100-999 in Text um Funktion GetHundreds (ByVal MyNumber) Ergebnis als Zeichenfolge dimmen Wenn Val (MyNumber) = 0, dann Funktion beenden MyNumber = Right ("000" & MyNumber, 3) 'Konvertieren Sie die Hunderte Platz. Wenn Mid (MyNumber, 1, 1) <> "0", dann Ergebnis = GetDigit (Mid (MyNumber, 1, 1)) & "Thousand" End If 'Wandle den Zehner- und den Einsenplatz um. Wenn Mid (MyNumber, 2, 1) <> "0", dann Ergebnis = Ergebnis & GetTens (Mid (MyNumber, 2)) Sonst Ergebnis = Ergebnis & GetDigit (Mid (MyNumber, 3)) End If GetHundreds = Ergebnis Funktion beenden 'Wandelt eine Zahl von 10 bis 99 in Text um. Funktion GetTens (TensText) Ergebnis als Zeichenfolge dimmen Result = "" 'Setzt den Wert der temporären Funktion auf Null. If Val (Left (TensText, 1)) = 1 Then 'If value between 10-19 ... Fallwert auswählen (TensText) Fall 10: Ergebnis = "Zehn" Fall 11: Ergebnis = "einmalig" Fall 12: Ergebnis = "Zwölf" Fall 13: Ergebnis = "Dreizehn" Fall 14: Ergebnis = "Vierzehn" Fall 15: Ergebnis = "Fünfzehn" Fall 16: Ergebnis = "Sechzehn" Fall 17: Ergebnis = "Siebzehn" Fall 18: Ergebnis = "Achtzehn" Fall 19: Ergebnis = "Neunzehn" Fall sonst Ende auswählen Sonst 'Wenn Wert zwischen 20-99 ... Fallwert auswählen (Links (TensText, 1)) Fall 2: Ergebnis = "Zwanzig" Fall 3: Ergebnis = "Dreißig" Fall 4: Ergebnis = "vierzig" Fall 5: Ergebnis = "Fünfzig" Fall 6: Ergebnis = "Sechzig" Fall 7: Ergebnis = "Siebzig" Fall 8: Ergebnis = "achtzig" Fall 9: Ergebnis = "Neunzig" Fall sonst Ende auswählen Result = Result & GetDigit (Right (TensText, 1)) 'Rufe einen Platz ab. End If GetTens = Ergebnis Funktion beenden 'Wandelt die Zahl von 1 bis 9 in Text um. Funktion GetDigit (Digit) Fallwert auswählen (Ziffer) Fall 1: GetDigit = "One" Fall 2: GetDigit = "Two" Fall 3: GetDigit = "Drei" Fall 4: GetDigit = "Four" Fall 5: GetDigit = "Five" Fall 6: GetDigit = "Six" Fall 7: GetDigit = "Seven" Fall 8: GetDigit = "Acht" Fall 9: GetDigit = "Nine" Sonst: GetDigit = "" Ende auswählen Funktion beenden
Nachdem wir dieses Skript in den Excel-Editor eingefügt haben, speichern wir es für zukünftige Aufgaben, gehen dazu in das Menü “Datei / Speichern wie” und wählen im erweiterten Fenster die Option “Excel-Buch für Makros aktiviert” und vergeben einen Namen dazu Klicken Sie auf Speichern und wir können die erstellte Formel verwenden. 
Sobald dies erledigt ist, können wir zwei Methoden verwenden, um Zahlen in Buchstaben in Excel 2019 oder 2016 zu konvertieren:
= SpellNumber (Cell)
= SpellNumber (18.45)
Das Ergebnis wird die Umwandlung unserer Zahlen in Buchstaben sein: 
So wird es möglich sein, dieses Skript zu erstellen, um die Zahlendaten in Excel 2016 oder 2019 in nützlicher Weise in Text umzuwandeln.
