Dateiname und Pfad in Fußzeile einfügen

Mit dem folgenden Code wird der Dateiname und der Pfad der Datei automatisch in die Fußzeile im linken Bereich eingefügt.

Die Datei muss zuerst aber mindestens 1 mal gespeichert worden sein, da eine ungespeicherte Datei weder einen Dateinamen noch einen Pfad besitzt. Also die Datei zuerst speichern und anschließend das Makro ausführen.

Sub Pfad_in_Fußzeile()
With ActiveSheet.PageSetup
.LeftFooter = ThisWorkbook.FullName
End With
End Sub

 

Drucken