Wenn Sie bestimmte Informationen in die Kopf-/Fußzeile des Arbeitsblatts einfügen möchten, wie den Dateinamen / Dateipfad oder das aktuelle Datum oder die Seitennummer, können Sie dies mit dem folgenden Code tun. Wenn es sich nur um ein Arbeitsblatt handelt, können Sie dies manuell tun. Wenn es jedoch mehrere Blätter oder alle Blätter in der Arbeitsmappe sind, die diese Informationen zum Auffüllen benötigen, können Sie dies mit einem einfachen VBA-Makro / -Code tun.
Dieses Beispielmakro fügt in jedes Arbeitsblatt in 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 Jedes wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = „Firmenname:“ .CenterHeader = „Seite &P von &N“ .RightHeader = „Gedrucktes &D &T“ .LeftFooter = „Pfad:“ &ActiveWorkbook.Path .CenterFooter = „Arbeitsmappenname: & F“ .RightFooter = „Blatt: &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 aufbrechen -
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 im Seiten-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 druckt die aktuelle Uhrzeit. &F druckt den Namen des Dokuments und &A druckt den Namen der Arbeitsmappenregisterkarte.
Am Ende setzen wir das Arbeitsblatt auf nichts und geben das Objekt frei und aktivieren die Bildschirmaktualisierung.
Hier 2 Bilder. Die 1NS man zeigt dir den Header und die 2nd eine die Fußzeile, nachdem das Makro ausgeführt wurde.
Der Header hat die Beschriftung Firmenname. Der Name wurde noch nicht eingegeben, da wir ihn mit keiner Zelle verknüpft oder Text für den Firmennamen eingegeben haben. Wenn Sie etwas in den Code oder in die Excel-Tabelle eingeben und darauf verweisen, wird der Name aufgenommen und hier 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 mit Daten ausführen, wird die Seitennummer angezeigt.
Gedruckt gibt Ihnen das Datum und die Uhrzeit, zu der das Makro ausgeführt wurde, zusammen mit dem Text „Gedruckt“.
In der Fußzeile zeigt Ihnen die Pfadbezeichnung den Pfad der aktuellen Datei an.
Unser Dateiname ist Book1.xlsx, die derzeit eine nicht gespeicherte Datei ist. Daher wird kein Pfad für die Pfadbezeichnung angezeigt.
Die Blattnummer wird rechts neben der Fußzeile ausgefüllt.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site