Dateipfad in Excelfußzeile

Dieser Beitrag ist eigentlich ehr für mich falls ich es irgendwann mal wieder brauche, aber vielleicht hilft er auch anderen die nach der Lösung suchen.

Im Visual Basic das Objekte “Diese Arbeitsmappe” auswählen und folgenden Code eingeben:

Sub Workbook_open()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path & “\” & ActiveWorkbook.Name
End Sub

Bei jedem öffnen der Arbeitsmappe schreibt diese Makro den Pfad und Dateinamen der Arbeitsmappe in die linke Fußzeile. Voraussetzung Makro sind aktiviert bzw. die Abfrage beim Öffnen zum Ausführen von Makros wird bestätigt.

Einen Kommentar schreiben

Too Cool for Internet Explorer