Office: Konvertieren von Zahlen in Wörter

Helfe beim Thema Konvertieren von Zahlen in Wörter in Microsoft Excel Tutorials um das Problem gemeinsam zu lösen; Konvertieren von Zahlen in Wörter Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Excel 2010... Dieses Thema im Forum "Microsoft Excel Tutorials" wurde erstellt von Tutorials, 1. Januar 2020.

  1. Tutorials
    Tutorials Neuer User

    Konvertieren von Zahlen in Wörter


    Konvertieren von Zahlen in Wörter
    Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Mehr... Weniger Excel hat keine Standardfunktion, die Zahlen als englische Wörter in einem Arbeitsblatt anzeigt, aber Sie können diese Funktion hinzufügen, indem Sie den folgenden SpellNumber-Funktionscode in ein VBA-Modul (Visual Basic für Applikationen) einfügen. Mit dieser Funktion können Sie Dollar-und Cent-Beträge in Wörter mit einer Formel umwandeln, sodass 22,50 als Twenty-Two Dollar und 50 Cents gelesen würde. Dies kann sehr hilfreich sein, wenn Sie Excel als Vorlage zum Drucken von Überprüfungen verwenden.

    Wenn Sie numerische Werte in das Text Format umwandeln möchten, ohne Sie als Wörter anzuzeigen, verwenden Sie stattdessen die Text-Funktion .

    Hinweis: Microsoft stellt Programmierbeispiele nur zur Veranschaulichung zur Verfügung, ohne ausdrückliche oder implizierte Gewährleistungen. Dazu gehören, aber nicht ausschließlich, die implizierten Garantien der Marktgängigkeit oder Eignung für einen bestimmten Zweck. In diesem Artikel wird davon ausgegangen, dass Sie mit der VBA-Programmiersprache und den Tools vertraut sind, mit denen Prozeduren erstellt und gedebuggt werden. Microsoft-Supporttechniker können Ihnen helfen, die Funktionalität einer bestimmten Prozedur zu erläutern. Diese Beispiele werden jedoch nicht geändert, um zusätzliche Funktionen bereitzustellen, oder Sie können Verfahren erstellen, die ihren spezifischen Anforderungen entsprechen.

    Erstellen der SpellNumber-Funktion zum Konvertieren von Zahlen in Wörter
    1. Verwenden Sie die Tastenkombination alt + F11 , um den Visual Basic-Editor zu öffnen.

      Hinweis: Sie können auch auf den Visual Basic-Editor zugreifen, indem Sie im Menüband die Registerkarte "Entwickler" anzeigen.

    2. Klicken Sie auf die Registerkarte Einfügen und dann auf Modul.


      Konvertieren von Zahlen in Wörter 52f00f52-775b-4729-bdf2-ef4854c8e1a4.png
    3. Kopieren Sie die folgenden Codezeilen.

      [parsehtml]<table id="tblID0EACBADAAA"> <tbody> <tr> <td> <code> <pre> 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 " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" 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 ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convert the tens and ones place. 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 ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... 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" Case Else End Select Else ' If value between 20-99... 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 " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. 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</pre> </code> </td> <td /> </tr> </tbody> </table>[/parsehtml]
    4. Fügen Sie die Codezeilen in das Feld Modul1 (Code) ein.


      Konvertieren von Zahlen in Wörter 4c929170-6cc8-48b5-ac32-466e3a11817d.png
    5. Drücken Sie alt + Q , um zu Excel zurückzukehren. Die SpellNumber-Funktion kann jetzt verwendet werden.

      Hinweis: Diese Funktion funktioniert nur für die aktuelle Arbeitsmappe. Wenn Sie diese Funktion in einer anderen Arbeitsmappe verwenden möchten, müssen Sie die Schritte wiederholen, um den Code in dieser Arbeitsmappe zu kopieren und einzufügen.

    Seitenanfang

    Verwenden der SpellNumber-Funktion in einzelnen Zellen
    1. Geben Sie die Formel = SpellNumber(a1) in die Zelle ein, in der eine schriftliche Zahl angezeigt werden soll, wobei a1 die Zelle mit der Zahl ist, die Sie konvertieren möchten. Sie können den Wert auch manuell wie = SpellNumber (22,50) eingeben.

    2. Drücken Sie die EINGABETASTE , um die Formel zu bestätigen.

    Seitenanfang

    Speichern der SpellNumber-Funktion in einer Arbeitsmappe
    Excel kann eine Arbeitsmappe mit Makrofunktionen im standardmäßigen, Makro freien Arbeitsmappen-Format (XLSX) nicht speichern. Wenn Sie auf Datei > Speichernklicken. Das Dialogfeld " VB-Projekt " wird geöffnet. Klicken Sie auf Nein.


    Konvertieren von Zahlen in Wörter 97d1b804-3ba4-4bc0-ab32-829f8c218c23.png
    Sie können Ihre Datei als Excel-Macro-Enabled Arbeitsmappe (XLSM) speichern, um die Datei im aktuellen Format beizubehalten.

    1. Klicken Sie auf Datei > Speichern unter.

    2. Klicken Sie auf das Dropdownmenü Dateityp, und wählen Sie Excel Macro-Enabled Arbeitsmappeaus.

    3. Klicken Sie auf Speichern.

    Seitenanfang

    Siehe auch
    TEXT-Funktion

    :)
     
    Tutorials, 1. Januar 2020
    #1
Thema:

Konvertieren von Zahlen in Wörter

Die Seite wird geladen...
  1. Konvertieren von Zahlen in Wörter - Similar Threads - Konvertieren Zahlen Wörter

  2. Beim Konvertieren von ODT zu DOC zerschießt die Formatierung

    in Microsoft Word Hilfe
    Beim Konvertieren von ODT zu DOC zerschießt die Formatierung: Hallo zusammen, ich möchte eine ODT-Textdatei in Word konvertieren. Leider zerschießt mir dabei die Formatierung. Wenn ich eine als Normseite angelegte ODT-Datei unter "Speichern als" als...
  3. VBA Text in Zahl konvertieren

    in Microsoft Excel Hilfe
    VBA Text in Zahl konvertieren: Hallo Forum, Ich steh irgendwie auf dem Schlauch. Folgendes Problem ich möchte in einer Exceltabelle (Excel 2000) in Spalte I den exportierten Text in ein Zahl umwandeln. Habe dies mit folgendem...
  4. Konvertieren von Zahlen, die als Text gespeichert wurden

    in Microsoft Excel Tutorials
    Konvertieren von Zahlen, die als Text gespeichert wurden: Konvertieren von Zahlen, die als Text gespeichert wurden Excel für Microsoft 365 Excel für Microsoft 365 für Mac Excel 2019 Excel 2016 Excel 2019 für Mac...
  5. Konvertieren von Zahlen in verschiedene Zahlensysteme

    in Microsoft Excel Tutorials
    Konvertieren von Zahlen in verschiedene Zahlensysteme: Konvertieren von Zahlen in verschiedene Zahlensysteme Excel für Microsoft 365 Excel für Microsoft 365 für Mac Excel für das Web Excel 2019 Excel 2016...
  6. Datum (text) in Datum (Zahl) konvertieren

    in Microsoft Excel Hilfe
    Datum (text) in Datum (Zahl) konvertieren: Hey Leute, leider komme ich nicht mehr weiter. Folgendes Ich kopiere Datenwerten von einem Arbeitsblatt (A) in andere (B). Dabei wird ein Datum in Spalte C des Arbeitsblattes (B) kopiert. Funzt...
  7. Datum in Zahl konvertieren

    in Microsoft Excel Hilfe
    Datum in Zahl konvertieren: Hallo, habe folgendes Problem: habe in einer Variable (var1) ein Datum: zB: 01/01/2005 wie kann ich jetzt dieses datum in eine zahl umwandeln ich weiss, wie es im normalen sheet geht. das...
  8. Abfrage: Feldformat von Text zu Zahl konvertieren ?

    in Microsoft Access Hilfe
    Abfrage: Feldformat von Text zu Zahl konvertieren ?: Hallo Leute, ich habe ein Problem, vielleicht kann mir jemand zur Hilfe eilen. Folgende Ausgangslage: Ich habe eine Tabelle mit einer SQL2000 Tabelle verknüpft und in dieser ist ein Feld...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden