---

Moin!

Soweit ich das sehe, sind Kopf- und Fußzeile für jedes Tabellenblatt eines xls getrennt, d.h. sie müssen für jedes Tabellenblatt einzeln angelegt und ggf. auch für jedes Tabellenblatt einzeln einzeln geändert werden. Das ist hier in einem bestimmten Fall ziemlich lästig.

Geht das auch für sämtliche Tabellenblätter gemeinsam?

------------------
Roland  
www.Das-Entwicklungsbuero.de

[Diese Nachricht wurde von Doc Snyder am 23. Apr. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Doc,

ja, das geht . Markiere mit Strg- und/oder Shift-Taste mehrere Register und richte Deine Kopf- und Fußzeilen ein. (Klappt auch, wenn Du auf jedem markierten Blatt in z. B. Zelle A3 den gleichen Inhalt haben möchtest etc. - kann sich auch nachteilig auswirken, wenn Du "versehentlich" mehrere Blätter markiert hast...) Alternativ: Makro mit Schleife über alle Blätter laufen lassen - schnell und dreckig.

Code:

---

Private Sub KopfFussZeilen()

'Werkzeug: Ändert Kopf- und Fußzeilen aller Blätter in DIESER Mappe
Dim objWS As Worksheet
Dim strCF As String 'String für CenterFooter (mittige Fußzeile)

strCF = "Mittige Fußzeile, Firmentext etc"

For Each objWS In ThisWorkbook.Worksheets
    With objWS.PageSetup
            .LeftHeader = "BearbeiterIn: " & Application.UserName
            .RightHeader = "&D"
            .CenterFooter = strCF
    End With
Next

End Sub

---

Gruß
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So einfach! 

Danke! 

------------------
Roland  
www.Das-Entwicklungsbuero.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP