Wenn Sie bestimmte Informationen in die Kopf- / Fußzeile des Arbeitsblatts einfügen möchten, z. B. den Dateinamen / Dateipfad oder das aktuelle Datum oder die aktuelle Seitenzahl, können Sie dies mit dem folgenden Code tun. Wenn es sich nur um ein Arbeitsblatt handelt, können Sie dies manuell tun. Wenn jedoch mehrere Blätter oder alle Blätter in der Arbeitsmappe zum Auffüllen dieser Informationen erforderlich sind, können Sie dies mit einem einfachen vba-Makro / Code tun.

Dieses Beispielmakro fügt in jedes Arbeitsblatt der aktiven Arbeitsmappe eine Kopf- / Fußzeile ein. Außerdem wird der vollständige Pfad zur Arbeitsmappe eingefügt.

Option Explicit

Sub InsertHeaderFooter()

Dim wsAs Worksheet

Application.ScreenUpdating = False

Each wsInThisWorkbook.Worksheets

With ws.PageSetup

.LeftHeader = “Company Name:”

.CenterHeader = “Page &P of &N”

.RightHeader = “Printed &D &T”

.LeftFooter = “Path : “ &ActiveWorkbook.Path

.CenterFooter = “Workbook Name: & F”

.RightFooter = “Sheet: &A”

End With

Next ws

Set ws = Nothing

Application.ScreenUpdating = True

End Sub

Um diesen Code in Ihre Arbeitsmappe zu kopieren, drücken Sie Alt + F11 auf Ihrer Tastatur.

Auf der linken Seite sehen Sie dann Microsoft Excel-Objekte. Klicken Sie mit der rechten Maustaste und wählen Sie Einfügen. Klicken Sie dann auf Modul und kopieren Sie diesen Code in das Codefenster rechts.

Lassen Sie uns jeden Teil des Codes aufteilen – Wir beginnen mit der üblichen Dim-Anweisung, in der wir die Variablen deklarieren.

In diesem Fall haben wir nur 1 Variable – ws für das Arbeitsblatt. Dann deaktivieren wir die Bildschirmaktualisierung.

In der FOR-Schleife durchlaufen wir nun jedes Arbeitsblatt in der Arbeitsmappe, das das Makro enthält. Und wir richten jeden Parameter in Page Setup ein. & P, & N, & D, & T, & F und & A sind bestimmte Formatcodes, die auf Kopf- und Fußzeilen angewendet werden können. & P druckt die Seitenzahl. & N druckt die Gesamtzahl der Seiten im Dokument. & D druckt das aktuelle Datum. & T gibt die aktuelle Uhrzeit aus. & F druckt den Namen des Dokuments und & A druckt den Namen der Registerkarte Arbeitsmappe.

Am Ende setzen wir das Arbeitsblatt auf nichts und geben das Objekt frei und aktivieren die Bildschirmaktualisierung.

Hier sind 2 Bilder. Die erste zeigt Ihnen die Kopfzeile und die zweite die Fußzeile, nachdem das Makro ausgeführt wurde.

img1

Die Kopfzeile trägt die Bezeichnung Firmenname. Der Name ist noch nicht eingegeben, da wir ihn nicht mit einer Zelle verknüpft oder einen Text für den Firmennamen eingegeben haben. Wenn Sie etwas in den Code oder in das Excel-Blatt eingeben und darauf verweisen, wird der Name hier aufgenommen und ausgefüllt.

Seite # von 0 zeigt an, dass wir derzeit 0 Seiten in der Datei haben, da wir diesen Code für eine leere Datei ausgeführt haben. Wenn Sie diesen Code für eine Datei ausführen, die Daten enthält, wird die Seitenzahl angezeigt.

Gedrucktes <Datum> <Zeit> gibt Ihnen das Datum und die Uhrzeit an, zu der das Makro ausgeführt wurde, zusammen mit dem Text „Gedruckt“.

img2

In der Fußzeile zeigt die Pfadbezeichnung den Pfad der aktuellen Datei an.

Unser Dateiname ist Book1.xlsx, eine derzeit nicht gespeicherte Datei. Daher wird für die Pfadbezeichnung kein Pfad angezeigt.

Die Blattnummer befindet sich rechts neben der Fußzeile.

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Sie können uns auch auf Twitter und Facebook folgen.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns an [email protected]