Ich möchte in der Kopfzeile beim Ausdruck das aktuelle Jahr ausgeben.
Wie bekomme ich dies hin ?
Danke für die Antworten
Gruß
Gerd
Sub JahrKopfzeile()
With ActiveSheet.PageSetup
.LeftHeader = Format(Date, "YYYY")
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
Rückmeldung wäre nett!=VERKETTEN(" ";JAHR(HEUTE()))
und dann den VBA-Code wie folgt ändern:
Sub JahrKopfzeile()
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Fett""&14" & Range("A1").Value
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
Gruß Holger