Kopf- und Fußzeile per Makro?

04/02/2014 - 20:41 von Peter Schuerer | Report spam
Hallo Zusammen,
Hallo Claus,

XL2002.

Ich habe eine Datei mit 42 Blàttern (Tabellen und Diagramme).
Da diese Datei öfters kopiert und umbenannt wird, muss ich stàndig die
Kopf- und Fußzeilen anpassen, ist echt nervig.

Ich habe folgendes Makro gefunden:

Sub kopfzeile()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
Ws.PageSetup.CenterHeader = [Tabelle30].Range("C1").Value
Next Ws
End Sub

Das funktioniert aber nur bei Tabellen und nicht bei Diagrammen.
Ich möchte eigentlich in Tabelle30 in B1, C1 und D1 die komplette
Kopfzeile eingeben und diese sollte sich beim öffnen der Datei
aktualisieren.

Hoffe, Ihr (Du) könnt helfen :-)

Danke und Gruß
Peter


Diese E-Mail ist frei von Viren und Malware, denn der avast! Antivirus Schutz ist aktiv.
http://www.avast.com
 

Lesen sie die antworten

#1 Jörg Eisenträger
04/02/2014 - 22:07 | Warnen spam
Hallo Peter,

Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets

Das funktioniert aber nur bei Tabellen und nicht bei Diagrammen.



Könnte daran liegen, dass Worksheets nur Tabellen sind. Diagramme sind
auf Sheets.
Das hat bei mir funktioniert:

Dim sh As Variant
For Each sh In ThisWorkbook.Sheets
...

So werden auch Diagramm-Blàtter einbezogen.



Gruß
Jörg
"One of the best ways to boost your Excel efficiency is also one of the best ways to shoot yourself in the foot."
(Susan Harkins auf www.techrepublic.com/blog/10things/10-mistakes-to-avoid-when-working-with-multiple-worksheets/1961 )

Ähnliche fragen