Excel-Tipp rund um Makro / VBA:

Komplette Pfadangabe der Arbeitsmappe in die Fußzeile (links) eintragen

Diese Prozedur ist leider bis einschließlich Excel 2000 notwendig.
Hierbei wird vor jedem Druck die Pfadangabe in der Fußzeile aktualisiert.
Dazu ist es natürlich notwendig, dass die Datei gespeichert wurde.

Die Benutzer ab Excel XP haben es hier besser: Es gibt eine Erweiterung die diese Hilfskonstruktion unnötig macht.


' Makro hinter "DieseArbeitsmappe" eintragen

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
End Sub

Die weiteren Positionen sehen sie in der folgenden Prozedur:

 
' Code in ein normales Modul einfügen
 
Sub Kopf_und_Fusszeile_mit_Pfad()
  ' Kopfzeile mitte:
  ActiveSheet.PageSetup.CenterHeader = ThisWorkbook.FullName
  ' Kopfzeile links:
  ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName
  ' Kopfzeile rechts:
  ActiveSheet.PageSetup.RightHeader = ThisWorkbook.FullName
  ' Fusszeile mitte:
  ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName
  ' Fusszeile links:
  ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
  ' Fusszeile rechts:.
  ActiveSheet.PageSetup.RightFooter = ThisWorkbook.FullName
End Sub

Für die Benutzer von Excel XP und neuer, hier der Link für die Tabellenblattlösung

Letzte Aktualisierung dieser Seite am 09.01.2005