Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Pfad- und Arbeitblattname in Fußzeile eintragen

Gruppe

Kopf/Fußzeile

Problem

Wie kann ich automatisch bei jedem Druck den kompletten Pfad und den jeweiligen Tabellenblattnamen in die Fußzeile eintragen lassen? Änderungen des Blattnamens und Verschiebungen der Arbeitsmappe in ein anderes Verzeichnis sollen berücksichtigt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   Dim wks As Worksheet
   For Each wks In Worksheets
      wks.PageSetup.LeftFooter = ThisWorkbook.FullName _
         & " - " & wks.Name
   Next wks
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile