In Excel können Sie Kopf- und Fußzeilen für Ihre Arbeitsblätter angeben. Möglicherweise möchten Sie diese Kopf- und Fußzeilen von einem Arbeitsblatt in ein anderes kopieren. Dies innerhalb einer Arbeitsmappe zu tun ist relativ einfach, aber es kann entmutigender sein, dies von einer Arbeitsmappe zur nächsten zu tun.

Wenn die Kopf- und Fußzeile in neuen Arbeitsmappen häufig verwendet wird und Ihr Hauptanliegen darin besteht, die Kopf- und Fußzeile in diesen neuen Arbeitsmappen (nicht in vorhandenen Arbeitsmappen) verfügbar zu haben, ist es am besten, eine Vorlagenarbeitsmappe zu erstellen . Richten Sie einfach eine Arbeitsmappe wie gewünscht ein, einschließlich der Angabe von Kopf- und Fußzeilen. Speichern Sie dann die Arbeitsmappe als Excel-Vorlage (XLT-Format). Sie können dann Ihre Arbeitsmappen basierend auf dieser Vorlage erstellen und sie enthält die gewünschten Kopf- und Fußzeilen.

Eine Möglichkeit, Kopf- und Fußzeilen von einem Arbeitsblatt in einer Arbeitsmappe in ein Arbeitsblatt in einer anderen zu kopieren, besteht darin, die herkömmlichen Bearbeitungsmethoden zum Kopieren und Einfügen zu verwenden. Mit anderen Worten, Sie können das zu kopierende Kopfzeilenmaterial auswählen, Strg + C drücken, die Kopfzeile im Zielarbeitsblatt anzeigen und dann Strg + V drücken. Der Nachteil dieses Ansatzes besteht darin, dass er einige Schritte umfassen kann. Immerhin gibt es drei Abschnitte (links, Mitte und rechts) für jede Kopfzeile und drei für jede Fußzeile. Dies bedeutet, dass Sie sechs Kopier- und Einfügevorgänge ausführen müssen, um die gesamte Kopf- und Fußzeile zu kopieren.

Eine andere Möglichkeit, Kopf- und Fußzeilen von einer Arbeitsmappe in eine andere zu kopieren, besteht in der Verwendung nativer Excel-Befehle zum Erstellen von Kopien von Arbeitsblättern.

Befolgen Sie diese Schritte:

  1. Öffnen Sie die Zielarbeitsmappe. die, in die die Kopf- und Fußzeilen kopiert werden sollen.

  2. Öffnen Sie die Arbeitsmappe, aus der Ihre Kopf- und Fußzeile stammt, und stellen Sie sicher, dass das gewünschte Arbeitsblatt angezeigt wird.

  3. Wählen Sie im Menü Bearbeiten die Option Blatt verschieben oder kopieren. Excel zeigt das Dialogfeld Verschieben oder Kopieren an. (Siehe Abbildung 1.)

  4. Wählen Sie in der Dropdown-Liste Zu buchen die Zielarbeitsmappe aus, die Sie in Schritt 1 geöffnet haben.

  5. Geben Sie im Bereich Vor Blatt an, wo das Blatt kopiert werden soll.

  6. Stellen Sie sicher, dass das Kontrollkästchen Kopie erstellen aktiviert ist.

  7. Klicken Sie auf OK. Das Arbeitsblatt wird in die Zielarbeitsmappe kopiert.

  8. Schließen Sie die Quellarbeitsmappe ab Schritt 2.

  9. Zeigen Sie in der Zielarbeitsmappe das gerade kopierte Arbeitsblatt an.

  10. Klicken Sie im Registerkartenbereich unten im Fenster mit der rechten Maustaste und wählen Sie Alle Blätter auswählen. Alle Arbeitsblätter sind jetzt ausgewählt.

  11. Zeigen Sie das Dialogfeld Seite einrichten an. (Wählen Sie im Menü Datei die Option Seite einrichten.)

  12. Stellen Sie sicher, dass die Registerkarte Kopf- / Fußzeile ausgewählt ist. (Siehe Abbildung 2.)

  13. Wählen Sie in den Dropdown-Listen Kopf- und Fußzeile die Kopf- und Fußzeile aus, die in dem gerade kopierten Arbeitsblatt verwendet wird.

  14. Klicken Sie auf OK.

  15. Löschen Sie das Arbeitsblatt, das Sie in den Schritten 1 bis 7 kopiert haben.

Im Wesentlichen haben Sie das Arbeitsblatt mit der gewünschten Kopf- und Fußzeile kopiert, diese Kopf- und Fußzeile in andere Arbeitsblätter in der Arbeitsmappe kopiert und dann das ursprüngliche Arbeitsblatt gelöscht.

Diese Schritte funktionieren zwar einwandfrei, können jedoch mühsam sein, wenn Sie Kopf- und Fußzeilen in verschiedene Arbeitsmappen kopieren müssen. In diesem Fall ist die Verwendung eines Makros zum Kopieren der vernünftigere Ansatz. Die folgenden zwei Makros können verwendet werden, um Kopf- und Fußzeilen in einem einfachen Schritt zu kopieren. Sie müssen lediglich das Quellarbeitsblatt anzeigen und das GetHeaders-Makro verwenden. Dieses Makro kopiert die Kopf- und Fußzeileninformationen in Zeichenfolgenvariablen. Sie können dann nacheinander jedes Arbeitsblatt anzeigen, für das Sie dieselbe Kopf- und Fußzeile haben möchten, und das DoHeaders-Makro ausführen.

Option Explicit

Dim strHeadLeft As String Dim strHeadCenter As String Dim strHeadRight As String Dim strFootLeft As String Dim strFootCenter As String Dim strFootRight As String Dim bGotHeaders As Boolean

Sub GetHeaders()

With ActiveSheet.PageSetup         strHeadLeft = .LeftHeader         strHeadCenter = .CenterHeader         strHeadRight = .RightHeader         strFootLeft = .LeftFooter         strFootCenter = .CenterFooter         strFootRight = .RightFooter         bGotHeaders = True     End With End Sub
Sub DoHeaders()

If bGotHeaders Then         With ActiveSheet.PageSetup             .LeftHeader = strHeadLeft             .CenterHeader = strHeadCenter             .RightHeader = strHeadRight             .LeftFooter = strFootLeft             .CenterFooter = strFootCenter             .RightFooter = strFootRight         End With     Else         MsgBox "Select the sheet with the " _             & "headers you want to copy," _             & vbCrLf & "then run 'GetHeaders'", _             vbExclamation, "No Headers In Memory"

End If End Sub

Falls gewünscht, können Sie die Makros sogar Symbolleistenschaltflächen zuweisen, wodurch sie zum Kopieren von Kopf- und Fußzeilen noch einfacher werden.

Wenn Sie über einige Arbeitsblätter und Arbeitsmappen verfügen, in die die Kopf- und Fußzeilen kopiert werden sollen, können Sie einen anderen Makroansatz verwenden. Das folgende Makro kopiert die Kopf- und Fußzeilen aus dem aktiven Arbeitsblatt in alle anderen Arbeitsblätter in allen anderen geöffneten Arbeitsmappen.

Sub CopyHeaderFooter()

Dim PS As PageSetup     Dim WB As Workbook     Dim WS As Worksheet

Set PS = ActiveSheet.PageSetup     For Each WB In Workbooks         For Each WS In WB.Worksheets             With WS.PageSetup                 .LeftHeader = PS.LeftHeader                 .CenterHeader = PS.CenterHeader                 .RightHeader = PS.RightHeader                 .LeftFooter = PS.LeftFooter                 .CenterFooter = PS.CenterFooter                 .RightFooter = PS.RightFooter             End With         Next     Next End Sub

Mit anderen Worten, wenn Sie Kopf- und Fußzeilen aus dem aktuellen Arbeitsblatt in 150 andere Arbeitsblätter kopieren möchten, die auf 15 verschiedene Arbeitsmappen verteilt sind, müssen Sie nur die 15 Arbeitsmappen gleichzeitig öffnen, das Quellarbeitsblatt anzeigen und das Makro ausführen .

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2696) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Kopieren von Kopf- und Fußzeilen.