Fusszeile bei bestehenden Files
27.01.2004 08:48:35
m@t
Hab vor kurzem von Thomas dieses Makro bekommen,
um automatisch bei neuen Excel-Files den gesammten
Pfad in der Fusszeilen auszugeben.
Private Sub Workbook_Beforeclose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim wks As Integer
For wks = 1 To Sheets.Count
Sheets(wks).PageSetup.LeftFooter = "&08" + ThisWorkbook.FullName _
& " - " & Sheets(wks).Name
Next wks
Application.ScreenUpdating = True
End Sub
Nun meine Frage, wie kann oder muss ich diesen Code
ändern/anpassen, damit der Pfad auch bei bereits bestehenden
Files in der Fusszeile steht?
Es wäre schön, wenn ich die Dateien bloss öffnen und neu
speichern müsste, damit der Pfad übernommen wird.
Ich hoffe, dass jemand von Euch Profis ne Lösung für mich hat.
Schon mal vielen Dank für Eure Hilfe.
Gruss Matthew