Sub JahrKopfzeile()
With ActiveSheet.PageSetup
.LeftHeader = Format(Date, "YYYY")
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
=VERKETTEN(" ";JAHR(HEUTE()))
Sub JahrKopfzeile()
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Fett""&14" & Range("A1").Value
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
Um das aktuelle Jahr in der Kopfzeile einzufügen, kannst du die folgende Schritt-für-Schritt-Anleitung nutzen:
Öffne die Excel-Datei, in der du das Datum in der Kopfzeile einfügen möchtest.
Drücke die Tastenkombination Alt + P, um zum Seitenlayout zu gelangen.
Klicke auf Drucktitel.
Im neuen Fenster gehst du zum Tab Kopfzeile.
Wähle die gewünschte Kopfzeile (links, zentriert oder rechts) aus und klicke auf Benutzerdefinierte Kopfzeile.
Füge den folgenden Code in das entsprechende Feld ein:
&YDies zeigt das aktuelle Jahr an.
Bestätige deine Eingaben mit OK und schließe das Fenster.
Jetzt wird das Jahr automatisch in der Kopfzeile deiner Excel-Dokumente angezeigt.
Fehler: Das Jahr wird nicht angezeigt.
Lösung: Stelle sicher, dass du den Code &Y korrekt eingegeben hast und dass die Kopfzeile nicht durch andere Einstellungen überschrieben wird.
Fehler: Das Jahr wird nicht aktualisiert.
Lösung: Überprüfe, ob die Excel-Datei auf dem neuesten Stand ist. Manchmal kann ein Neustart von Excel helfen, um die Anzeige zu aktualisieren.
Wenn du das Datum in der Kopfzeile einfügen möchtest, gibt es auch andere Ansätze:
VBA-Methode: Du kannst ein VBA-Skript verwenden, um das Jahr automatisch einzufügen. Hier ist ein Beispiel:
Sub JahrKopfzeile()
With ActiveSheet.PageSetup
.LeftHeader = Format(Date, "YYYY")
End With
End SubDies setzt das Jahr in die linke Kopfzeile.
Formel in einer Zelle: Du kannst auch das Jahr in eine Zelle eingeben und dann diese Zelle in der Kopfzeile referenzieren. Zum Beispiel:
=VERKETTEN(" ";JAHR(HEUTE()))Diese Formel gibt das aktuelle Jahr zurück.
Hier sind einige praktische Beispiele, wie du das Jahr in der Kopfzeile verwenden kannst:
Beispiel 1: Du möchtest das Jahr in der linken Kopfzeile haben. Verwende den VBA-Code oben, um dies zu erreichen.
Beispiel 2: Wenn du das Jahr und den Monat in der Kopfzeile kombinieren möchtest, kannst du:
.LeftHeader = Format(Date, "MMMM YYYY")Dies zeigt den Monatsnamen gefolgt vom Jahr an.
Formatierung: Du kannst die Schriftart und -größe in der Kopfzeile anpassen, indem du den Code wie folgt erweiterst:
.LeftHeader = "&""Arial,Bold""&14" & Format(Date, "YYYY")Automatische Fußzeile: Wenn du auch das Datum in der Fußzeile automatisch einfügen möchtest, kannst du den gleichen Ansatz verwenden und den Code für die Fußzeile anpassen:
.LeftFooter = Format(Date, "DD.MM.YYYY")1. Wie füge ich das Datum in der Fußzeile automatisch ein?
Du kannst in der Fußzeile den Code &D verwenden, um das aktuelle Datum anzuzeigen.
2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die meisten dieser Methoden sind auch in älteren Versionen von Excel anwendbar, jedoch kann die Benutzeroberfläche leicht abweichen.