Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Englisches Datum in Fußzeile bei Deutschem Excel

Forumthread: Englisches Datum in Fußzeile bei Deutschem Excel

Englisches Datum in Fußzeile bei Deutschem Excel
10.06.2008 17:21:30
Alex
Hallo,
ich möchte in Excel mit einem Makro in die Fußzeile das Datum wahlweise auf deutsch und auf englisch schreiben.
Folgendes Makro schreibt bisher in alle sheets das Datum im angegeben Format

Public Sub DateInFooter()
For Each WS In ActiveWorkbook.Worksheets
WS.Activate
WS.PageSetup.LeftFooter = Format(Date, "dd mmmm yyyy")
Next WS
End Sub


Da in meinen regional settings Deutschland steht, schreibt Excel beim Monat nun auch den Deutschen Monat.
Wie kann ich dies innerhalb des Makros kurzfristig auf Englisch stellen?
Kann ich mit dem Makro das xlcountrysetting ändern?
Gruß,
Alex

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Englisches Datum in Fußzeile bei Deutschem Excel
10.06.2008 17:49:27
rene
Hallo,
also im dt. ist es bei Format Zelle JJJJ-MM-TT.
Da bei mir VBA bescheiden, evtl.
WS.PageSetup.LeftFooter = Format(Date, "yyyy-mm-dd")
lg rene

AW: Englisches Datum in Fußzeile bei Deutschem Excel
10.06.2008 18:00:00
fcs
Hallo Alex,
meines Wissens gibt es da kaum eine Möglichkeit. Die Option International hat ja leider nur Einstellungen für Dezimalzahlen.
Wenn du in der Mappe irgendwo die Sprachen-Info speicherst, dann könntest du im Makro eine Übersetzungsliste einbauen. Ist natürlich keine besonders schöne Lösung.
Falls du nicht unbedingt auf den Monat als Langtext angewiesen bist, dann stelle das Datumsformat auf das internationale Format nach EN-DIN-ISO um: YYYY-MM-DD
gewöhnungsbedürftig, aber verwechslungssicher.
Gruß
Franz

Anzeige
AW: Englisches Datum in Fußzeile bei Deutschem Exc
10.06.2008 22:14:18
Uduuh
Hallo,
formatiere eine Hilfszelle (z.B. Tabelle1!A1) mit
[$-409]TT.MMMM.JJJJ

Public Sub DateInFooter()
Sheets("Tabelle1").Range("A1")=Date
For Each WS In ActiveWorkbook.Worksheets
WS.PageSetup.LeftFooter = Sheets("Tabelle1").Range("A1").Text
Next WS
End Sub


Gruß aus’m Pott
Udo

Anzeige
@ Uduuh
10.06.2008 22:23:00
Josef
Hallo Udo,
das geht auch ohne Umweg über die Tabelle.
Public Sub DateInFooter()
For Each WS In ActiveWorkbook.Worksheets
    WS.PageSetup.LeftFooter = Application.Text(Date, "[$-409]dd.mmmm.yyyy")
Next WS
End Sub



Gruß Sepp



Anzeige
AW: @ Uduuh
10.06.2008 22:33:22
Uduuh
Hallo Sepp,
sauber!
Ich hatte es mit

WS.PageSetup.LeftFooter = Format(Date, "[$-409]dd.mmmm.yyyy")


versucht, aber das war's nicht. Ergo Umweg über Zelle.
Ich muss "Application.Function" unbedingt mehr verinnerlichen.
Dank dir!
Gruß aus’m Pott
Udo

Anzeige
AW: @ Uduuh@Sepp
10.06.2008 22:51:23
Uduuh
Hallo Sepp,
dierse Funktionen kann man ja auch über Woksheetfunction.Function nutzen. z,B. .Sum, .Average, .Min
Geht alles auch mit Application.
Hast du da Präferenzen? Unterschiede in der Geschwindigkeit?
Gruß aus’m Pott
Udo

Anzeige
Application ist
12.06.2008 20:30:53
Josef
Hallo Udo,
... einfach kürzer als WorkSheetFunction;-))

Gruß Sepp



AW: @ Uduuh
11.06.2008 12:13:28
Alex
Super,
vielen Dank für die schnelle Hilfe. Wie unten klappt es wunderbar.
Gruß, Alex

Hallo Udo,
das geht auch ohne Umweg über die Tabelle.
Public Sub DateInFooter()
For Each WS In ActiveWorkbook.Worksheets
WS.PageSetup.LeftFooter = Application.Text(Date, "[$-409]dd.mmmm.yyyy")
Next WS
End Sub
Gruß Sepp


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Englisches Datum in der Fußzeile von Excel angeben


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues oder öffne ein bestehendes Arbeitsblatt.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen > Modul.
  4. Kopiere und füge den folgenden Code ein:

    Public Sub DateInFooter()
       For Each WS In ActiveWorkbook.Worksheets
           WS.PageSetup.LeftFooter = Application.Text(Date, "[$-409]dd.mmmm.yyyy")
       Next WS
    End Sub
  5. Schließe den VBA-Editor und kehre zu deinem Excel-Arbeitsblatt zurück.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle DateInFooter und klicke auf Ausführen.

Jetzt sollte das Datum in der Fußzeile für alle Arbeitsblätter im englischen Format angezeigt werden.


Häufige Fehler und Lösungen

  • Fehler: Das Datum wird nicht im gewünschten Format angezeigt.

    • Lösung: Stelle sicher, dass du Application.Text(Date, "[$-409]dd.mmmm.yyyy") verwendest, um das englische Datumsformat korrekt anzugeben.
  • Fehler: Excel zeigt weiterhin das deutsche Datum an.

    • Lösung: Überprüfe die Regionseinstellungen deines Systems. Stelle sicher, dass diese auf Englisch eingestellt sind oder verwende die oben genannten VBA-Methoden.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du das Datum auch manuell in die Fußzeile einfügen:

  1. Gehe zu Seitenlayout und klicke auf Fußzeile.
  2. Wähle die linke Fußzeile und schreibe das Datum manuell im englischen Format, z.B. January 1, 2023.
  3. Klicke auf OK, um die Änderungen zu speichern.

Diese Methode ist zwar weniger automatisiert, aber sie funktioniert gut, wenn du nur gelegentlich das Datum auf Englisch angeben möchtest.


Praktische Beispiele

Hier sind einige Beispiele, wie du das Datum in verschiedenen Formaten in der Fußzeile angeben kannst:

  • Englisches Datum heute:
    WS.PageSetup.LeftFooter = Application.Text(Date, "[$-409]dd mmmm yyyy")
  • Englisches Datum im internationalen Format:
    WS.PageSetup.LeftFooter = Application.Text(Date, "yyyy-mm-dd")

Du kannst diese Formate je nach Bedarf anpassen, um das Datum auf Englisch zu schreiben.


Tipps für Profis

  • Verwende die Funktion Application.WorksheetFunction, um Berechnungen durchzuführen, bevor du das Datum in die Fußzeile schreibst.
  • Erstelle eine Übersetzungsliste in deinem Makro, wenn du häufig zwischen verschiedenen Datumsformaten wechseln musst. So kannst du die Lesbarkeit deiner VBA-Codes erhöhen und Fehler vermeiden.
  • Teste dein Makro regelmäßig, um sicherzustellen, dass es auch nach Updates von Excel oder Änderungen in den Einstellungen weiterhin funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich das Datum auf englisch angeben, wenn mein Excel auf Deutsch eingestellt ist? Um das Datum auf Englisch anzugeben, kannst du die Application.Text Funktion in deinem VBA-Code verwenden, wie im Tutorial beschrieben.

2. Gibt es eine Möglichkeit, die Datumsformatierung für nur ein bestimmtes Arbeitsblatt anzuwenden? Ja, du kannst den VBA-Code so anpassen, dass er nur für ein bestimmtes Arbeitsblatt ausgeführt wird, indem du Sheets("NameDeinesBlattes").PageSetup.LeftFooter verwendest.

3. Kann ich das Format des Datums auch ändern, ohne VBA zu verwenden? Ja, du kannst das Datum manuell in der Fußzeile eingeben oder die Formatierung über die Zellen in Excel anpassen, bevor du es in die Fußzeile einfügst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige