Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie kann das Datums- oder Datums- / Uhrzeitformat in der Kopf- oder Fußzeile angegeben werden?

Normalerweise, wenn Sie Datum oder Uhrzeit in die Kopf- oder Fußzeile mit dem einfügen &[Datum] or &[Zeit] Code, das Datums- oder Uhrzeitformat basiert auf den von Windows gesteuerten regionalen Einstellungen. Wie können Sie in diesem Fall das Datums- oder Datums- / Uhrzeitformat in Kopf- oder Fußzeile nach Ihren Wünschen ändern, wie im folgenden Screenshot gezeigt?

Datum des Dokumentformats in Kopfzeile 1

Geben Sie das Datums- oder Datums- / Uhrzeitformat in der Kopf- oder Fußzeile mit VBA-Code an


Pfeil blau rechte Blase Geben Sie das Datums- oder Datums- / Uhrzeitformat in der Kopf- oder Fußzeile mit VBA-Code an

Hier werde ich Ihnen einen einfachen VBA-Code vorstellen, mit dem Sie diese Aufgabe in Excel lösen können. Gehen Sie dazu wie folgt vor:

1. Aktivieren Sie Ihr Arbeitsblatt, in das Sie das Datum einfügen und in Kopf- oder Fußzeile formatieren möchten, und klicken Sie dann auf Seitenlayout Klicken Sie auf die Schaltfläche in der unteren rechten Ecke der Arbeitsmappe, um die Seitenlayoutansicht zu aktivieren. Siehe Screenshot:

Datum des Dokumentformats in Kopfzeile 2

2. Halten Sie die Taste gedrückt ALT + F11 Tasten in Excel, um die zu öffnen Microsoft Visual Basic für Applikationen Fenster.

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Datum in Kopf- oder Fußzeile einfügen und formatieren:

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

Hinweis: Im obigen Code können Sie die ändern CenterHeader zu Linke Kopfzeile, CenterFußzeile… Und das Datumsformat mmmm tt, jjjj kann auch nach Bedarf geändert werden.

4. Und dann drücken F5 Schlüssel, um diesen Code auszuführen, und Ihr angegebenes Datumsformat wurde sofort in die Kopf- oder Fußzeile eingefügt. Siehe Screenshot:

Datum des Dokumentformats in Kopfzeile 3

Tipps: Wenn Sie Ihr eigenes Datums- und Uhrzeitformat in die Kopf- oder Fußzeile einfügen möchten, wenden Sie den folgenden Code an:

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

Und Sie erhalten folgendes Ergebnis:

Datum des Dokumentformats in Kopfzeile 4


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 Formula Bar (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-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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.
  • Erhöht Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    C Harvey · 4 months ago
    How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:
    Sub Change_Format()
    ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
    End Sub
  • To post as a guest, your comment is unpublished.
    Kasra · 1 years ago
    Hi, Thank You
    Can I ask you how can I change the font and size of "Date" by VBA?
    I mean with same code that you wrote for insert date into header by VBA.
    Thanks
  • To post as a guest, your comment is unpublished.
    Paula McSorley · 1 years ago
    I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
  • To post as a guest, your comment is unpublished.
    Judy Kunz · 1 years ago
    This doesn't seem to work anymore.