habe noch ein Problem:
wie bekomme ich es hin, dass in der benutzerdefinierten Kopfzeile anstelle des kompletten Datums nur die Jahreszahl erscheinet?
VG Straßburger
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Format(Date, "YYYY")
End Sub