Die Excel Wühlkiste

Pfad einfügen, Kopf- und Fusszeilenbehandlung

Oft möchte man in ein bestehendes Tabellenblatt den Pfad des Workbooks in eine Zelle oder die Fusszeile eintragen.
Das ist sehr hilfreich, wenn man das ausgedruckte Tabellenblatt hat, sich aber nicht mehr erinnern kann, wo es eigentlich abgespeichert ist. Auch Kollegen können dann leicht die Datei finden, ohne fragen zu müssen. Viele Einträge in der Kopf- und in der Fusszeile kann man nur per Makro automatisch aktualisieren lassen. Die Standard- Vorgaben im Menü "Seite einrichten" beinhalten nur einen Bruchteil der Möglichkeiten.
Wie die Daten per Makro grundsätzlich in die Kopf- und Fusszeilen gelangen, wird im zweiten Beispielcode auf dieser Seite vorgestellt.

Sub Pfad_einfügen())

Dim Pfad As String

Pfad = Application.ActiveWorkbook.Path + "\" + _
Application.ActiveWorkbook.Name
ActiveCell.Value = Pfad

End Sub

Sub Kopf_Fusszeile()

Dim Pfad As String

Pfad = Application.ActiveWorkbook.Path + "\" + _
Application.ActiveWorkbook.Name

With ActiveSheet.PageSetup
.LeftFooter = Format(Date, "dd.mm.yyyy")
.CenterFooter = Pfad
.RightFooter = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
End With

'ActiveWindow.SelectSheets.PrintPreview '(Ergebnis direkt anzeigen)

End Sub
Die Excel Wühlkiste
Valid HTML 4.01 Strict
letzte Aktualisierung: 13.02.2009
Autor: Hubert Scheidgen / 04.02.2009
W3C CSS-Validierungsservice