Datum in Englisch

Forumthread: Datum in Englisch

Datum in Englisch

andreasH

Hallo,
ich habe eine Datumszelle mit dem Format DD-MMM-YY.
Mit meiner deutschen Excel-Version möchte ich,
dass das Datum in Englisch dargestellt wird
Also: 05-MAY-04
Gibt es irgendeinen Kniff, wie man das hinbekommt?
andreas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Datum in Englisch

Sigi
AW: Datum in Englisch

th.heinrich

AW: Datum in Englisch

Sigi

Hallo Andreas,
ich habe eine VBA-Funktion, die ein engl. Datum als Text ausgibt ...


Function DatumEnglisch(Datum As Date, Typ As Long) As String
Dim MonatKurz As Variant
Dim MonatLang As Variant
Dim Suffix As String
Dim Text As String
MonatKurz = Array("engl. Kurzname f. Monat", "Jan", "Feb", "Mar", "Apr", _
"May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
MonatLang = Array("engl. Langname f. Monat", "January", "February", "March", _
"April", "May", "June", "July", "August", "September", _
"October", "November", "December")
Select Case Day(Datum)
Case 1, 21, 31
Suffix = "st"
Case 2, 22
Suffix = "nd"
Case 3, 23
Suffix = "rd"
Case Else
Suffix = "th"
End Select
'Ausgabe je nach Typ aufbereiten
If Typ = 1 Then
'February 21st, 2004
Text = MonatLang(Month(Datum)) & " " & Day(Datum) & _
Suffix & ", " & Year(Datum)
ElseIf Typ = 2 Then
'Feb 21st, 2004
Text = MonatKurz(Month(Datum)) & " " & Day(Datum) & _
Suffix & ", " & Year(Datum)
ElseIf Typ = 3 Then
'02/21/2004
Text = Format(Month(Datum), "00") & "/" & _
Format(Day(Datum), "00") & "/" & Format(Year(Datum), "0000")
ElseIf Typ = 4 Then
'02/21/04
Text = Format(Month(Datum), "00") & "/" & _
Format(Day(Datum), "00") & "/" & Format(Year(Datum) Mod 100, "00")
ElseIf Typ = 5 Then
'02-21-2004
Text = Format(Month(Datum), "00") & "-" & _
Format(Day(Datum), "00") & "-" & Format(Year(Datum), "0000")
ElseIf Typ = 6 Then
'02-21-04
Text = Format(Month(Datum), "00") & "-" & _
Format(Day(Datum), "00") & "-" & Format(Year(Datum) Mod 100, "00")
ElseIf Typ = 7 Then
Text = Format(Day(Datum), "00") & "-" & MonatKurz(Month(Datum)) & _
"-" & Format(Year(Datum) Mod 100, "00")
Else
'February 21st, 2004
Text = MonatLang(Month(Datum)) & " " & Day(Datum) & _
Suffix & ", " & Year(Datum)
End If
DatumEnglisch = Text
End Function

Als Typ einfach von 1 bis 8 ausprobieren ...
Gruß
Sigi

AW: Datum in Englisch

th.heinrich

hi Andreas,
hilft Dir dies weiter ?
=my_date("29.3.03") march 29, 2003


Function my_date(datum As Date) As String
Dim a As Variant
a = Array("jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec")
my_date = a(Month(datum) - 1) & " " & Day(datum) & ", " & Year(datum)
End Function

von Harald
gruss thomas

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um das Datum in Excel im englischen Format darzustellen, kannst Du die folgenden Schritte befolgen:

Öffne Deine Excel-Datei und suche die Zelle mit dem Datum, das Du umwandeln möchtest.

Nutze eine der bereitgestellten VBA-Funktionen. Dazu gehst Du wie folgt vor:

Drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code ein:

Function DatumEnglisch(Datum As Date, Typ As Long) As String
   Dim MonatKurz As Variant
   Dim MonatLang As Variant
   Dim Suffix As String
   Dim Text As String
   MonatKurz = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
   MonatLang = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
   Select Case Day(Datum)
       Case 1, 21, 31: Suffix = "st"
       Case 2, 22: Suffix = "nd"
       Case 3, 23: Suffix = "rd"
       Case Else: Suffix = "th"
   End Select
   If Typ = 1 Then
       Text = MonatLang(Month(Datum)) & " " & Day(Datum) & Suffix & ", " & Year(Datum)
   ElseIf Typ = 2 Then
       Text = MonatKurz(Month(Datum)) & " " & Day(Datum) & Suffix & ", " & Year(Datum)
   End If
   DatumEnglisch = Text
End Function

Schließe den VBA-Editor und gehe zurück zu Deiner Excel-Tabelle.
Gib in eine Zelle die Formel ein: =DatumEnglisch(A1, 1) (ersetze A1 durch die Adresse Deiner Datumszelle).

Jetzt wird das Datum im gewünschten englischen Format angezeigt.

Häufige Fehler und Lösungen

Das Datum wird nicht korrekt angezeigt: Stelle sicher, dass die Zelle im Datumsformat formatiert ist und dass Du die richtige Formel verwendest.
Fehlermeldungen in der VBA-Funktion: Überprüfe den Code auf Syntaxfehler oder falsche Variablenzuweisungen.
Das Datum wird nicht umgewandelt: Stelle sicher, dass die VBA-Funktion aktiviert ist und dass Du die richtige Typ-Nummer (1-8) verwendest.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du das Datum auch manuell in die englische Schreibweise umwandeln. Hier sind einige Beispiele:

=TEXT(A1, "[$-en-US]dd-mmm-yyyy"): Dies gibt das Datum in einem englischen Format zurück.
Manuelle Eingabe: Du kannst das Datum auch einfach in die englische Schreibweise umwandeln, wie z.B. "29 March 2003".

Praktische Beispiele

Hier sind einige Beispiele, wie Du das Datum auf Englisch angeben kannst:

Für das aktuelle Datum:
=DatumEnglisch(HEUTE(), 1) gibt z.B. "March 29th, 2023" zurück.
Für spezifische Datumsangaben:
=DatumEnglisch(DATUM(2023, 3, 29), 2) gibt "Mar 29th, 2023" zurück.
Verwendung in Text:
Du kannst auch das Datum in einem Satz verwenden:
="Das englische Datum ist: " & DatumEnglisch(A1, 1)

Tipps für Profis

Nutze benutzerdefinierte Formate: Du kannst auch benutzerdefinierte Datumsformate in Excel erstellen, um die Datumsangaben auf Englisch darzustellen.
Verwende die Funktion TEXT(): Diese hilft Dir, das Datum leicht in ein Textformat umzuwandeln, das Du dann in Berichten verwenden kannst.
Kombiniere mehrere Funktionen: Wenn Du verschiedene Datumsformate benötigst, kombiniere die VBA-Funktion mit der TEXT()-Funktion, um maximale Flexibilität zu erreichen.

FAQ: Häufige Fragen

1. Wie kann ich das Datum in Excel auf Englisch schreiben?
Du kannst die oben genannten VBA-Funktionen verwenden oder die TEXT()-Funktion, um das Datum im gewünschten Format anzuzeigen.

2. Funktioniert das auch in der deutschen Excel-Version?
Ja, die VBA-Funktion funktioniert unabhängig von der Sprache Deiner Excel-Version, solange die Datumsangaben korrekt formatiert sind.

3. Was ist der Unterschied zwischen den Typen in der Funktion?
Die Typen bestimmen, wie das Datum ausgegeben wird (z.B. kurz oder lang). Experimentiere mit den Typen, um herauszufinden, welche Darstellung Du bevorzugst.

Beliebteste Forumthreads (12 Monate)