Wie wandelt man ein Datum in Excel schnell in Wörter um?
Normalerweise konvertiert man Datumsangaben in Excel üblicherweise in andere Datumsformate oder Zahlen – doch sind Sie jemals auf das Problem gestoßen, ein Datum wie im folgenden Screenshot gezeigt in englische Wörter umzuwandeln? Tatsächlich gibt es dafür keine integrierte Funktion, sondern lediglich einen VBA-Code.
Datum mit einer benutzerdefinierten Funktion in Wörter konvertieren
Datum mit einer benutzerdefinierten Funktion in Wörter konvertieren
Hier ist ein Makrocode, der Ihnen hilft, Datumsangaben in Wörter umzuwandeln.
1. Aktivieren Sie das verwendete Arbeitsblatt und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Skript ein.
VBA: Datum in Wörter konvertieren
Function DateToWords(ByVal xRgVal As Date) As String
' Update by Extendoffice on 20240926
Dim xYear As String
Dim Hundreds As String
Dim Decades As String
Dim xTensArr As Variant
Dim xOrdArr As Variant
Dim xCardArr As Variant
' Initialize arrays
xOrdArr = Array("First", "Second", "Third", "Fourth", "Fifth", "Sixth", _
"Seventh", "Eighth", "Ninth", "Tenth", "Eleventh", "Twelfth", _
"Thirteenth", "Fourteenth", "Fifteenth", "Sixteenth", _
"Seventeenth", "Eighteenth", "Nineteenth", "Twentieth", _
"Twenty-first", "Twenty-second", "Twenty-third", "Twenty-fourth", _
"Twenty-fifth", "Twenty-sixth", "Twenty-seventh", "Twenty-eighth", _
"Twenty-ninth", "Thirtieth", "Thirty-first")
xCardArr = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
"Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", _
"Seventeen", "Eighteen", "Nineteen")
xTensArr = Array("Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
' Extract year
xYear = CStr(Year(xRgVal))
Decades = Mid$(xYear, 3)
' Handle decades
If CInt(Decades) < 20 Then
Decades = xCardArr(CInt(Decades))
Else
Decades = xTensArr(CInt(Left$(Decades, 1)) - 2) & "-" & xCardArr(CInt(Right$(Decades, 1)))
End If
' Handle hundreds
Hundreds = Mid$(xYear, 2, 1)
If CInt(Hundreds) Then
Hundreds = xCardArr(CInt(Hundreds)) & " Hundred "
Else
Hundreds = ""
End If
' Construct English representation of the date
DateToWords = xOrdArr(Day(xRgVal) - 1) & " " & Format$(xRgVal, "mmmm") & " " & _
xCardArr(CInt(Left$(xYear, 1))) & " Thousand " & Hundreds & Decades
End Function
3. Speichern Sie den Code und kehren Sie zum Arbeitsblatt zurück. Wählen Sie eine Zelle aus, in der das Ergebnis angezeigt werden soll, geben Sie die Formel =DateToWords(A2) ein (A2 enthält das zu verwendende Datum), drücken Sie die Enter-Taste und ziehen Sie den AutoAusfüll-Griff über die gewünschten Zellen. Siehe Screenshot:
Nutzen Sie die Bequemlichkeit der „In Wörter umwandeln“-Funktion von Kutools für Excel, um Zahlen sofort in Wörter zu konvertieren – und sparen Sie so Zeit und Aufwand beim mühelosen Erstellen professionell wirkender Dokumente!
Verwandte Artikel:
- Wie lässt sich das Datumsformat in Excel schnell zwischen dem europäischen und dem US-amerikanischen Format umwandeln?
- Wie konvertiert man das Datumsformat TT.MM.JJJJ in MM/TT/JJJJ in Excel?
- Wie konvertiert man in Excel zwischen Datumsangaben und Unix-Zeitstempeln?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins