Kopf- und Fußzeile für alle Tabellenblätter füllen

Nachstehend ein kleines Makro, in welchem die einzelnen Bereiche der Kopf- und Fußzeile mit bestimmten Vorgabewerten für alle Tabellenblätter gefüllt wird. Sub Kopf_und_Fuss_Alle() Dim ws As Worksheet For Each ws In Worksheets With ws.PageSetup 'Kopfzeilenbereich .LeftHeader = "ich bin die Linke Kopfzeile" .CenterHeader = "ich bin die Mittlere Kopfzeile" .RightHeader = "ich bin die Rechte Kopfzeile" 'Fußzeilenbereich .LeftFooter = "ich bin die Linke Fußzeile" .CenterFooter = "ich bin die Mittlere Fußzeile" .RightFooter = "ich bin die Rechte Fußzeile" End With Next ws End Sub

Anstelle der im Code festgeschriebenen Strings kann man selbstverständlich auch mit Variablen oder Werten aus Zellen arbeiten.

 Share on Facebook

Read more http://vba-codeschnipsel.de/kopf-und-fuszeile-fur-alle-tabellenblatter-fullen/