Wie kann man einen Zellenwert in die Kopf- oder Fußzeile in Excel einfügen?

Wir können ganz einfach eine Kopf- oder Fußzeile mit Dateipfad, Dateiname, aktuellem Datum oder anderen Informationen mit der Excel-Funktion einfügen. Manchmal möchten wir jedoch einen Zellenwert als Kopf- oder Fußzeile in Excel verwenden. Wie können wir den Inhalt einer Zelle in die Kopf- oder Fußzeile des Arbeitsbuchs einfügen?

Zellenwert in die Kopf- oder Fußzeile eines Arbeitsblatts mit VBA-Code einfügen

Zellenwert in die Kopf- oder Fußzeile aller Arbeitsblätter mit VBA-Code einfügen

Dateiinformationen mit Kutools für Excel in die Kopf- oder Fußzeile einfügen

Zellenwert in die Kopf- oder Fußzeile eines Arbeitsblatts mit VBA-Code einfügen

Wenn Sie den Inhalt einer Zelle in die Kopf- oder Fußzeile des aktuellen Arbeitsblatts einfügen möchten, kann Ihnen der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:

1. Aktivieren Sie Ihr Arbeitsblatt, in das Sie die Kopf- oder Fußzeile mit einem Zellenwert einfügen möchten, und halten Sie dann die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Einen bestimmten Zellenwert in die Kopfzeile eines Arbeitsblatts einfügen

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen. Ein Dialogfeld wird angezeigt, das Sie auffordert, eine Zelle auszuwählen, deren Inhalt Sie in die Kopfzeile einfügen möchten.

4Und klicken Sie dann auf OK, dieser spezifische Zellenwert wurde in die linke Kopfzeile des aktuellen Arbeitsblatts eingefügt. Sie können die Kopfzeile anzeigen, indem Sie auf Datei > Druckenklicken. Siehe Screenshot:

Hinweise:

1. Wenn Sie den Zelleninhalt als Fußzeile des aktiven Arbeitsblatts verwenden möchten, können Sie diesen Code anwenden:

VBA-Code: Einen bestimmten Zellenwert in die Fußzeile eines Arbeitsblatts einfügen

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. Sie können auch die obigen Codes verwenden, um Zellenwerte in die rechte Kopf-/Fußzeile oder die zentrierte Kopf-/Fußzeile einzufügen, ersetzen Sie dazu einfach LeftHeader / LeftFooter durch RightHeader / RightFooter oder CenterHeader / CenterFooter in den Codes.

Zellenwert in die Kopf- oder Fußzeile aller Arbeitsblätter mit VBA-Code einfügen

Manchmal möchten Sie eine Kopf- oder Fußzeile mit dem Inhalt einer ausgewählten Zelle in alle Arbeitsblätter Ihres geöffneten Arbeitsbuchs einfügen. Mit dem obigen Code müssten Sie dies immer wieder wiederholen. In diesem Fall kann der folgende VBA-Code den Zelleninhalt auf einmal in die Kopf- oder Fußzeile des gesamten Arbeitsbuchs einfügen.

1. Aktivieren Sie Ihr Arbeitsbuch, in das Sie die Kopf- oder Fußzeile mit einem Zellenwert einfügen möchten, und halten Sie dann die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Einen bestimmten Zellenwert in die Fußzeile aller Arbeitsblätter einfügen

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen. Ein Dialogfeld wird angezeigt, das Sie auffordert, eine Zelle auszuwählen, deren Inhalt Sie in die Fußzeile des gesamten Arbeitsbuchs einfügen möchten.

4. Klicken Sie dann auf OK, dieser ausgewählte Zellenwert wurde allen linken Fußzeilen der Arbeitsblätter hinzugefügt. Sie können die Fußzeile anzeigen, indem Sie auf Datei > Drucken klicken. Siehe Screenshot:

Hinweise:

1. Wenn Sie den Zelleninhalt als Kopfzeile des gesamten Arbeitsbuchs verwenden möchten, können Sie diesen Code anwenden:

VBA-Code: Einen bestimmten Zellenwert in die Kopfzeile aller Arbeitsblätter einfügen

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. Ersetzen Sie RightHeader/Footer oder CenterHeader/Footer durch LeftHeader/Footer in den obigen Codes, wenn Sie Ihre Kopf- oder Fußzeile anders positionieren möchten.

Dateiinformationen mit Kutools für Excel in die Kopf- oder Fußzeile einfügen

Wenn Sie Dateiinformationen in die Kopf- oder Fußzeile einfügen möchten, wie z.B. Arbeitsblatt/Arbeitsmappenname, Arbeitsmappenpfad usw., können Sie das Hilfsprogramm „Arbeitsmappeninformationen einfügen“ von Kutools für Excel verwenden, falls Sie Kutools für Excel installiert haben.

Nach der kostenlosen Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools Plus > Arbeitsmappe > Arbeitsmappeninformationen einfügen. Siehe Screenshot:

2. Aktivieren Sie im Dialogfeld „Arbeitsmappeninformationen einfügen“ die benötigten Informationen unter dem Abschnitt Information und wählen Sie Kopf- oder Fußzeile nach Belieben aus.

Tipp: Sie können die Informationen an drei Positionen der Kopf- oder Fußzeile einfügen: zentriert, links oder rechts.

3. Klicken Sie auf Ok. Dann können Sie zu Ansicht > Seitenlayout gehen, um die Kopfzeile anzuzeigen.

Mit „Arbeitsmappeninformationen einfügen“ können Sie auch Dateiinformationen in eine Zelle oder einen Zellbereich einfügen. Klicken Sie hier, um mehr über dieses Hilfsprogramm zu erfahren.

Demo: Arbeitsmappeninformationen in Zelle/Kopfzeile/Fußzeile einfügen

Tipp. Wenn Sie eine Arbeitsmappe schnell in mehrere Arbeitsmappen/PDF-Dateien oder CSV-Dateien aufteilen möchten, probieren Sie bitte Kutools für Excel’s „Arbeitsmappe teilen“, wie im folgenden Screenshot gezeigt. Es ist voll funktionsfähig ohne Einschränkungen in 30 Tagen, bitte laden Sie es herunter und testen Sie es jetzt kostenlos.

Verwandte Artikel:

Wie fügt man Dateinamen oder Pfad in eine Zelle / Kopf- oder Fußzeile in Excel ein?

Wie fügt man Kopf- oder Fußzeile sowie Kopfbilder in Excel ein oder löscht sie?