Kopf und Fußzeile übertragen
12.10.2007 09:08:02
Bastian
mit diesem Code möchte ich gerne von dem aktiven Tabellenblatt in dem ich gerade stehe, die Kopf und Fußzeilen auf die markierten Tabellenblätter übertragen. Leider geht es nicht. Kann mir bitte einer beibringen wie es geht?
Grüße von Basti
Sub kopfundFußzeileübertragen()
Kopfmitte = Worksheet.CenterHeader
FussLinks = Worksheet.PageSetup.LeftFooter
FussMitte = Worksheet.PageSetup.CenterFooter
FussRechts = Worksheet.PageSetup.RightFooter
Worksheets(ActiveSheets).Select
With ActiveSheet.PageSetup
.CenterHeader = Kopfmitte
.LeftFooter = FussLinks
.CenterFooter = FussMitte
.RightFooter = FussRechts
End With
End Sub