Wie füge ich den Zellenwert in Kopf- / Fußzeile in Excel ein?
Mit der Excel-Funktion können wir problemlos Kopf- oder Fußzeilen einfügen, die Dateipfad, Dateinamen, aktuelles Datum oder andere Informationen enthalten. 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 der Arbeitsmappe einfügen?
Fügen Sie den Zellenwert in die Kopf- oder Fußzeile eines Arbeitsblatts mit VBA-Code ein
Fügen Sie den Zellenwert in die Kopf- oder Fußzeile aller Arbeitsblätter mit VBA-Code ein
Fügen Sie mit Kutools for Excel Dateiinformationen in Kopf- / Fußzeilen ein
Fügen Sie den Zellenwert in die Kopf- oder Fußzeile eines Arbeitsblatts mit VBA-Code ein
Wenn Sie einen Zelleninhalt 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 einen Kopf oder eine Fußzeile mit einem Zellenwert einfügen möchten, und halten Sie dann die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
2.Klicken Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Fügen Sie einen angegebenen Zellenwert in die Kopfzeile eines Arbeitsblatts ein
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. Dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Dialogfeld angezeigt, das Sie daran erinnert, eine Zelle auszuwählen, deren Inhalt in die Kopfzeile eingefügt werden soll.
4. Und dann klick OKDieser angegebene Zellenwert wurde in die linke Kopfzeile des aktuellen Arbeitsblatts eingefügt. Sie können die Kopfzeile anzeigen, indem Sie auf klicken Reichen Sie das > Drucken. Siehe Screenshot:
Anmerkungen:
1. Wenn Sie den Zelleninhalt als Fußzeile des aktiven Arbeitsblatts verwenden möchten, können Sie diesen Code anwenden:
VBA-Code: Geben Sie einen angegebenen Zellenwert in die Fußzeile eines Arbeitsblatts ein
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 die obigen Codes auch zum Einfügen eines Zellenwerts in die rechte Kopf- / Fußzeile oder die mittlere Kopf- / Fußzeile anwenden. Ersetzen Sie einfach die Linke Kopfzeile / Linke Fußzeile mit Rechte Kopfzeile / Rechte Fußzeile or CenterHeader / CenterFußzeile in den Codes.
Fügen Sie den Zellenwert in die Kopf- oder Fußzeile aller Arbeitsblätter mit VBA-Code ein
Manchmal möchten Sie Kopf- oder Fußzeilen mit dem Inhalt einer ausgewählten Zelle in alle Arbeitsblätter Ihrer Eröffnungsarbeitsmappe einfügen. Mit dem obigen Code müssen Sie diese immer wieder wiederholen. In diesem Fall kann der folgende VBA-Code den Zelleninhalt gleichzeitig zum Kopf oder zur Fußzeile der gesamten Arbeitsmappe hinzufügen.
1. Aktivieren Sie Ihre Arbeitsmappe, in die Sie Hirte oder Fußzeile mit einem Zellenwert einfügen möchten, und halten Sie dann die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Geben Sie einen angegebenen Zellenwert in die Fußzeile aller Arbeitsblätter ein
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. Dann drücken F5 Mit der Taste zum Ausführen dieses Codes wird ein Dialogfeld angezeigt, das Sie daran erinnert, eine Zelle auszuwählen, deren Inhalt in die Fußzeile der gesamten Arbeitsmappe eingefügt werden soll.
4. Und dann klick OKDieser ausgewählte Zellenwert wurde in die linke Fußzeile aller Arbeitsblätter eingefügt. Sie können die Fußzeile anzeigen, indem Sie auf klicken Reichen Sie das > Drucken. Siehe Screenshot:
Anmerkungen:
1. Wenn Sie den Zelleninhalt als Kopfzeile der gesamten Arbeitsmappe verwenden möchten, können Sie diesen Code anwenden:
VBA-Code: Geben Sie einen angegebenen Zellenwert in den Header aller Arbeitsblätter ein
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 RightHeader / Footer or CenterHeader / Footer für LeftHeader / Footer in den obigen Codes, wenn Sie möchten, dass Ihre Kopf- oder Fußzeile anders positioniert ist.
Fügen Sie mit Kutools for Excel Dateiinformationen in Kopf- / Fußzeilen ein
Wenn Sie Filer-Informationen in Kopf- oder Fußzeilen einfügen möchten, z. B. Arbeitsblatt- / Arbeitsmappenname, Arbeitsmappenpfad usw., können Sie diese verwenden Kutools for Excel Arbeitsmappeninformationen einfügen Dienstprogramm, wenn Sie Kutools für Excel installiert haben.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. | ||
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1 Klicken Kutoolen Plus > Workbook > Arbeitsmappeninformationen einfügen. Siehe Screenshot:
2. In dem Arbeitsmappeninformationen einfügen Überprüfen Sie im Dialogfeld die Informationen, unter denen Sie einfügen müssen Informationen Abschnitt und überprüfen Kopfzeile or Fußzeile wie es Dir gefällt.
TIPP: Sie können die Informationen an drei Stellen der Kopf- oder Fußzeile einfügen: Mitte, links oder rechts.
3 Klicken Ok. Dann kannst du gehen zu Anzeigen > Seitenlayout um den Header 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 Dienstprogramm zu erfahren.
Fügen Sie Arbeitsmappeninformationen in Zelle / Kopf- / Fußzeile ein
In Verbindung stehende Artikel:
Wie füge ich einen Dateinamen oder einen Pfad in eine Zelle / Kopf- oder Fußzeile in Excel ein?
Wie füge ich Kopf-, Fuß- und Kopfzeilenbilder in Excel ein und lösche sie?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!