über folgenden Code lasse ich mir das Änderungsdatum einer Datei in der Fußzeile anzeigen:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
With wks.PageSetup
.LeftFooter = "Stand: " & Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mmmm yyyy")
End With
Next wks
Application.ScreenUpdating = True
End Sub
Wie kann ich diesen Code erweitern, so daß in der Zeile unter dem Datum der Dateiname steht? Der komplette Text soll in Schriftgröße 8 angezeigt werden.
Danke für die Hilfe!
PeMoe