Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kopf-/Fußzeilen-Festlegungen übernehmen

Gruppe

Kopf/Fußzeile

Problem

Wie kann ich die Kopf-/Fußzeilenfestlegungen des einen Tabelenblattes in ein zweites übernehmen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile