Office: Fuss und Kopfzeilen

Wer kann mir helfen?

Wenn ich eine Datei mit vielen Registern habe wie kann ich es lösen die Fuss- und Kopfzeichen nur einmal einzutragen?

Danke schon mal vorab.


LG

Rcorner1

 

Hallo!

Verstehe ich dich richtig, dass du mit einem Schlag allen Blättern die gleichen Kopf- und Fußzeilen zuweisen möchtest?
Dieser Code versieht z.B. alle Blätter oben mittig mit "Hallo" und unten mittig mit "Tschüss". Er gehört in "Diese Arbeitsmappe".

Code:

Sub KopfUndFuss()
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
wksBlatt.PageSetup.CenterHeader = "Hallo"
wksBlatt.PageSetup.CenterFooter = "Tschüss"
Next wksBlatt
End Sub

edit: Ich sehe gerade, dass es auch funktioniert, wenn du alle Register gleichzeitig markierst und dann Kopf- und Fusszeile eingibst.