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

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. doc-insert-cell-value-to-header1

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 > Druck. Siehe Screenshot: doc-insert-cell-value-to-header1

Hinweise:

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.

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.

doc-insert-cell-value-to-header1

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 > Druck. Siehe Screenshot:

doc-insert-cell-value-to-header1

Hinweise:

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 aufgrund LeftHeader / Footer in den obigen Codes, wenn Sie möchten, dass Ihre Kopf- oder Fußzeile anders positioniert ist.

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.
Free Download kostenlos mit vollem Funktionsumfang in 30 Tage

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1 Klicken Kutoolen Plus > Workbook > Arbeitsmappeninformationen einfügen. Siehe Screenshot:
Dokument 1

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.
Dokument Arbeitsmappenpfad einfügen 1

3 Klicken Ok. Dann kannst du gehen zu Schauen Sie sich an > Seitenlayout um den Header anzuzeigen.
Dokument 3

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.

Tip.Wenn Sie eine Arbeitsmappe schnell in mehrere Arbeitsmappen / PDF-Dateien oder CSV-Dateien aufteilen möchten, versuchen Sie bitte, die Kutools für Excel zu verwenden Arbeitsmappe teilen wie im folgenden Screenshot gezeigt. Es ist voll funktionsfähig ohne Einschränkung in 30 Tage, Bitte laden Sie es herunter und testen Sie es jetzt kostenlos.

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?

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf...

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!

Lesen Sie mehr... Kostenfreier Download... Kauf...

Kommentare (9)

Noch keine Bewertungen. Bewerten Sie als Erster!

Jeffrey Hulbert

vor etwa 7 Jahren

#13641

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ich musste einen aktiven Abrechnungszeitraum in mehrere Blätter einfügen. Der Benutzer öffnet das Blatt Gehaltsabrechnungsdatum, gibt den Datumsbereich ein und aktualisiert vor dem Drucken alle Blätter in der Arbeitsmappe. So kann ich mehrere Zellen mit etwas weniger Code 2010-kompatibel in den Bereich einfügen: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub

antworten

sagte mohammadi

vor etwa 7 Jahren

#13803

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ich möchte vier Zellen in den Header einfügen. Dieses VB ist nur für eine Zelle. Wie kann ich es tun. Vielen Dank

antworten

Ridhwan sagte mohammadi

vor etwa 4 Jahren

#13804

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Sie können versuchen, den Wert von rht vier Zellen zu einer einzelnen Zelle zu verketten und dann die einzelne Zelle als Überschrift zu verwenden.

antworten

Leichte

vor etwa 7 Jahren

#14786

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo, gibt es eine Möglichkeit, einen Zellenwert hinzuzufügen, der angewendete Filter berücksichtigt? Zum Beispiel... A1 = Montag A2 = Dienstag A3 = Mittwoch. Die Verwendung des VBA-Codes zum Anzeigen der Zelle A1 funktioniert zunächst, aber sobald ich einen Filter auf Wochentage anwende, ist der "oberste" Zellenwert nicht mehr A1. Gibt es eine Möglichkeit, die Variable abzurufen? Vielen Dank,

antworten

Mickey

vor etwa 3 Jahren

#29670

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wenn Sie Ihren "VBA-Code: Einen bestimmten Zellenwert in die Kopfzeile aller Arbeitsblätter einfügen" verwenden, möchte ich, dass der platzierte Wert formatiert wird: Tahoma, fett, in Schriftgröße 12.
Wie kann dies Ihrem Code hinzugefügt werden?

antworten

Dani

vor etwa 3 Jahren

#30000

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,

Das scheint nur einmal zu funktionieren.
Was ist, wenn sich der Wert der Zelle ändert?
Gibt es eine Möglichkeit, die Zelle so zu verknüpfen, dass sich die Überschrift ändert, wenn sich der Zellenwert ändert?

Ich habe eine Arbeitsmappe, in der ich drei Blätter habe.

Blatt 1 mit der Bezeichnung "Löschblatt" - Blatt, das wir an das Lager senden, mit Informationen, was für die Bestellung zu palatalisieren ist
Blatt 2 mit der Bezeichnung "OA" - Meine Auftragsbestätigung an den Kunden, der die meisten Daten aus dem ersten Blatt zieht, einschließlich der Bestellnummer, die ich in meiner Kopfzeile haben muss. Also versuche ich, die Kopfzeile mit der Zelle auf dieser Seite mit der Bestellnummer (F5) zu verknüpfen, die ihren Wert von (C7) im ersten Arbeitsblatt ("Löschblatt") erhält.
Blatt 3 mit der Bezeichnung "Rechnung - Rechnung", das auch die meisten der gleichen Informationen aus dem ersten Blatt zieht, für das auch der Kopf den Wert (F5) dieses Blattes aus (C7) in "Löschblatt" enthalten müsste

antworten

Neil

vor ungefähr 4 Monaten

#40034

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Dies scheint kein dynamischer Link zu sein, dh der in die Kopfzeile eingegebene Wert ändert sich nicht, wenn sich der Wert der Zelle ändert. Was ist also der Zweck des VBA-Codes, wenn ein Kopieren/Einfügen dasselbe tut?

antworten

skyyang Neil

vor ungefähr 4 Monaten

#40106

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Neil,
Wenn Sie den Zellenwert dynamisch mit der Kopf- oder Fußzeile verknüpfen möchten, wenden Sie bitte den folgenden VBA-Code an:

Hinweis: Sie sollten den Code in den Blattcode einfügen, nicht in das normale Modul.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen

antworten

Report

DJ skyyang

vor ungefähr 1 Monat

#42219

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Maksudnya Bagaimana?

antworten

Es sind noch keine Kommentare vorhanden

Hinterlassen Sie Ihre Kommentare

Als Gast posten

Einloggen

Name (erforderlich)

E-Mail (Pflichtfeld)

Bewerte diese Nachricht:

Zurücksetzen

0 Figuren

Ich akzeptiere die Bedingungen und den Zustand