Sub kopf()
Kopfmitte = Worksheets("auswertung").PageSetup.CenterHeader
FussLinks = Worksheets("auswertung").PageSetup.LeftFooter
FussMitte = Worksheets("auswertung").PageSetup.CenterFooter
FussRechts = Worksheets("auswertung").PageSetup.RightFooter
'das Einfügen so:
With ActiveSheet.PageSetup
.CenterHeader = Kopfmitte
.LeftFooter = FussLinks
.CenterFooter = FussMitte
.RightFooter = FussRechts
End With
End Sub
Sub kopf()
Dim Kopfmitte As Variant
Dim FussLinks As Variant
Dim FussMitte As Variant
Dim FussRechts As Variant
Kopfmitte = Worksheets("auswertung").PageSetup.CenterHeader
FussLinks = Worksheets("auswertung").PageSetup.LeftFooter
FussMitte = Worksheets("auswertung").PageSetup.CenterFooter
FussRechts = Worksheets("auswertung").PageSetup.RightFooter
'das Einfügen so:
With ActiveSheet.PageSetup
.CenterHeader = Kopfmitte
.LeftFooter = FussLinks
.CenterFooter = FussMitte
.RightFooter = FussRechts
End With
End Sub
Sub kopf()
Kopfmitte = Worksheets(1).PageSetup.CenterHeader
FussLinks = Worksheets(1).PageSetup.LeftFooter
FussMitte = Worksheets(1).PageSetup.CenterFooter
FussRechts = Worksheets(1).PageSetup.RightFooter
'das Einfügen so:
For i = 2 To Worksheets.Count
Worksheets(i).Select
With ActiveSheet.PageSetup
.CenterHeader = Kopfmitte
.LeftFooter = FussLinks
.CenterFooter = FussMitte
.RightFooter = FussRechts
End With
Next i
End Sub
Um die Kopf- und Fußzeile in Excel auf alle Blätter zu übertragen, gehe wie folgt vor:
Tabellenblätter auswählen: Halte die Strg-Taste gedrückt und klicke auf die Tabellenblätter, in die du die Kopf- und Fußzeile übertragen möchtest.
Seite einrichten: Klicke auf Datei -> Seite einrichten.
Kopf- und Fußzeile einstellen: Wähle die gewünschten Optionen für die Kopf- und Fußzeile aus.
Bestätigen: Klicke auf OK, um die Änderungen zu speichern.
Falls du spezifische Inhalte von einem Blatt kopieren möchtest, kannst du dazu VBA verwenden.
Fehler: "Variable nicht definiert"
Wenn du VBA-Code verwendest und diese Fehlermeldung erhältst, stelle sicher, dass du die Variablen korrekt deklariert hast. Ein Beispiel für die korrekte Deklaration:
Dim Kopfmitte As Variant
Dim FussLinks As Variant
Dim FussMitte As Variant
Dim FussRechts As VariantFehler: Kopf- und Fußzeile werden nicht übernommen
Stelle sicher, dass du die richtige Syntax verwendest, um die Kopf- und Fußzeilen von einem Arbeitsblatt ins andere zu kopieren.
Eine alternative Möglichkeit, die Kopf- und Fußzeile auf alle Blätter zu übertragen, ist die Verwendung von VBA:
Sub kopf()
Dim Kopfmitte As Variant
Dim FussLinks As Variant
Dim FussMitte As Variant
Dim FussRechts As Variant
' Kopf- und Fußzeile vom ersten Arbeitsblatt übernehmen
Kopfmitte = Worksheets(1).PageSetup.CenterHeader
FussLinks = Worksheets(1).PageSetup.LeftFooter
FussMitte = Worksheets(1).PageSetup.CenterFooter
FussRechts = Worksheets(1).PageSetup.RightFooter
' Auf alle Blätter anwenden
For i = 2 To Worksheets.Count
Worksheets(i).Select
With ActiveSheet.PageSetup
.CenterHeader = Kopfmitte
.LeftFooter = FussLinks
.CenterFooter = FussMitte
.RightFooter = FussRechts
End With
Next i
End SubHier ist ein Beispiel, wie du die Kopfzeile kopieren und auf alle Arbeitsblätter anwenden kannst:
Strg + P, um eine Vorschau deiner Kopf- und Fußzeilen zu sehen, bevor du druckst.1. Wie kann ich die Kopfzeile für alle Arbeitsblätter in Excel übernehmen?
Du kannst die Kopfzeile für alle Arbeitsblätter übernehmen, indem du die oben genannten Schritte zur Auswahl der Blätter und zur Einrichtung der Kopfzeile befolgst.
2. Gibt es eine Möglichkeit, die Fußzeile zu kopieren?
Ja, die Fußzeile kann auf die gleiche Weise wie die Kopfzeile kopiert werden, indem du die entsprechenden VBA-Befehle anwendest oder die Fußzeile manuell in den Seitenlayout-Optionen einstellst.
3. Funktioniert dies in allen Excel-Versionen?
Die beschriebenen Methoden sind in den meisten modernen Excel-Versionen anwendbar, einschließlich Excel 2010, 2013, 2016 und 2019.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen