Gruppe
Druck
Problem
Wie kann ich die Kopf-/Fußzeilenfestlegungen des einen Tabelenblattes in ein zweites übernehmen?
StandardModule: basMain
Sub KFZeilenUebernehmen()
Dim psQuelle As PageSetup, psZiel As PageSetup
Set psQuelle = Worksheets("Tabelle1").PageSetup
Set psZiel = Worksheets("Tabelle2").PageSetup
With psZiel
.LeftHeader = psQuelle.LeftHeader
.CenterHeader = psQuelle.CenterHeader
.RightHeader = psQuelle.RightHeader
.LeftFooter = psQuelle.LeftFooter
.CenterFooter = psQuelle.CenterFooter
.RightFooter = psQuelle.RightFooter
End With
End Sub