Excel ab 97: Dateipfad in Kopfzeile


Ein Makro schreibt den kompletten Pfad der aktuellen Datei in die Kopf- oder Fußzeile.

Excel fehlt eine einfache Möglichkeit, den kompletten Pfad der aktuellen Datei automatisch in der Kopf- oder Fußzeile auszugeben. Das Register Kopfzeile/Fußzeile des Dialogs Seiten einrichten bietet dazu lediglich einen Systemplatzhalter, der den Dateinamen ohne Pfadangabe übernimmt.

Damit Excel den kompletten Dateipfad in der Kopfzeile anzeigt, verwenden Sie das folgende Makro:

Sub DateipfadInKopfzeile()
ActiveSheet.PageSetup.RightHeader = ActiveWorkbook.FullName
End Sub

Um das Makro anzulegen, öffnen Sie den Visual Basic Editor mit [Strg+F11]. Falls nötig, machen Sie das Modul-Fenster mit dem Befehl Ansicht/Code sichtbar. Tippen Sie hier das Makro-Listing ein. Anschließend klicken Sie auf Speichern. Mit dem Befehl Datei/Schließen und zurück zu Microsoft Excel wechseln Sie zur Arbeitsmappe.

Um den Dateipfad in die Kopfzeile zu übernehmen, führen Sie das Makro aus. Dazu öffnen Sie den Dialog Makro mit der Tastenkombination [Alt+F8]. Markieren Sie das Makro Tabelle1.DateipfadInKopfzeile und klicken auf Ausführen.

Mit der Schaltfläche Seitenvorschau kontrollieren Sie das Ergebnis. Der komplette Dateipfad der Arbeitsmappe erscheint rechts oben in der Fußzeile.

Auf Wunsch ändern Sie die Ausgabeposition des Pfades. Wählen Sie dazu das Makro im Dialog Makros aus und klicken auf Bearbeiten.

Damit Excel den Pfad links in der Kopfzeile ausgibt, ersetzen Sie das Element .RightHeader im Listing durch .LeftHeader.

Mit .CenterHeader zentrieren Sie die Ausgabe in der Kopfzeile.

Entsprechend stehen Ihnen die Anweisungen .LeftFooter, .CenterFooter und .RightFooter zur Verfügung, um den Dateipfad in der Fußzeile auszugeben. Ein Beispiel: Die Makrozeile

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

schreibt den Dateipfad links in die Fußzeile.

Soll Excel den Dateipfad automatisch beim Öffnen der Arbeitsmappe eintragen, legen Sie das Makro unter dem Namen Auto_Open an. Makros, die mit Sub Auto_Open() beginnen, führt Excel automatisch beim Öffnen der Arbeitsmappe aus.
  

  Zurück zur Liste
Erschienen in: PC Magazin, Ausgabe 11/2000