Fusszeilen in allen Blättern aktuallisieren
10.02.2005 12:32:30
Hans
Ich schreibe mit folgendem Code Dateiname und Pfad in die Fusszeilen meiner Datei:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "&8" & LCase(ActiveWorkbook.FullName)
End Sub
Wenn ich die Datei unter anderem Namen speichere, muss ich nun jedes Tabellenblatt in der Seitenansicht einzeln öffnen, damit ich die aktuellen Angaben in jedem Blatt habe. Wie muss ich den Code umschreiben, damit das automatisch geht und die anderen Parameter (Druckbereich, Seitenformat) unverändert bleiben?
Schon im Voraus besten Dank für eure Hilfe.
Gruess, Hans