Vierstelliges Datum in der Fußzeile

Wie kann man bei Excel 97 die zweistellige Jahreszahl des Datums in der Kopf- und Fußzeile auf eine vierstellige Jahreszahl ändern?

Im Gegensatz zur Umstellung einer zweistelligen auf eine vierstellige Jahreszahl in der Kopfzeile eines Word-97-Dokuments (siehe CHIP 1/2000 Tipp 33) gestaltet sich die entsprechende Aufgabe in Excel 97 etwas komplexer. Am besten arbeiten Sie an dieser Stelle mit einer kleinen VBA-Routine.

Die Routine schreibt das aktuelle Tagesdatum mit einer vierstelligen Jahreszahl als Text-String in den rechten Bereich der Kopfzeile. Anders als bei Word 97 handelt es sich dabei nicht um eine Feldfunktion, sondern um einen normalen, allerdings automatisch generierten Text in der Kopfzeile.

Damit gewährleistet ist, dass zu jedem Zeitpunkt das aktuelle Tagesdatum in der Kopfzeile erscheint, führt Excel 97 die abgedruckte Routine automatisch beim Öffnen der betreffenden Datei aus.


Um die Routine zu schreiben, gehen Sie folgendermaßen vor: Wählen Sie im betreffenden Arbeitsblatt den Menübefehl »Extras | Makro | Visual-Basic-Editor«. Im Editor fügen Sie nun mit dem Befehl »Einfügen | Modul« ein leeres VBA-Modul in Ihre Datei ein und tragen den Quelltext ein (siehe Kasten unten). Danach können Sie den Visual-Basic-Editor schließen und die Excel-Datei speichern.

Der Bezeichner »Auto_Open« ist zwingend erforderlich. Excel 97 führt beim Öffnen einer Datei automatisch das Makro dieses Namens aus - sofern es existiert. Der Rest des Programms ist recht einfach. Das Objekt »Active Sheet« steht für das geöffnete, aktive Arbeitsblatt und verweist wiederum auf das Objekt »PageSetup«. Dabei handelt es sich um die Seitenansicht des Arbeitsblattes, die je ein Attribut für den linken, den mittleren und den rechten Teil der Kopf- und der Fußzeile besitzt.

Im Beispiel werden alle sechs Attribute belegt, die Kopf- und Fußzeile der entsprechenden Datei also völlig neu definiert. Sie können auch lediglich ein einziges Attribut belegen und den Rest unangetastet lassen.

Wichtig ist auf jeden Fall die Belegung des rechten Bereichs der Kopfzeile, also des Attributs »RightHeader«, mit »Format(Date, "dd.mm. yyyy")«. Die Anweisung »format()« formatiert einen Ausdruck, in diesem Fall das aktuelle Tagesdatum »Date«, anhand der von Anführungszeichen umschlossenen Zeichenkette. Dabei steht der Teil »yyyy« für eine vierstellige Darstellung der Jahreszahl.

Vierstelliges Datum in Kopfzeile

Sub Auto_Open ()

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = Format (Date, "dd.mm.yyyy")

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

End With

End Sub