ich habe folgendes Makro zur Erstellung einer Fusszeile aus einem VBA Buch erfasst. Beim ausführen kommt
allerdings der Fehler Objekt erforderlich Laufzeitfehler 242
Hat jemand eine Lösung? Vielen Dank!
Gruß
Hans
Sub FußzeileSpezial()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
With Blatt.PageSetup
.BottomMargin = 56
.FooterMargin = 42
.LeftFooter = "&B" & _
Application.WorksheetFunction.Rept("_", 60) & vbCr & _
"Erstellungsdatum: " & _
Active.Workbook.BuiltinDocumentProperties _
("Creation date") & vbCr & "Letzte Änderung: " & _
Active.Workbook.BuiltinDocumentProperties _
("last save time") & vbCr & "Ersteller der Mappe: " & _
Active.Workbook.BuiltinDocumentProperties("author") & _
vbCr & "Dateiname und Pfad: " & ActiveWorkbook.FullName
End With
Next Blatt
End Sub