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 links). 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