Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Erstelldatum, Benutzer in Fußzeile

Forumthread: Erstelldatum, Benutzer in Fußzeile

Erstelldatum, Benutzer in Fußzeile
25.08.2003 07:21:29
Ursula
bei Excel kann man über &[Datum] das aktuelle Datum in der Fußzeile erzeugen.
Gibt es auch eine Möglichkeit nicht das aktuelle Datum, sondern das Erstelldatum automatisch in die Fußzeile zu schreiben? Besteht zusätzlich auch die Möglichkeit den Namen des Erstellers der Datei automatisch in die Fußzeile zu schreiben?
Besten Dank bereits im voraus.
Gruß
Ursula
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste der Dateieigenschaften
25.08.2003 07:39:45
Ursula
Hallo Sam,
besten Dank für den Tipp.
Aber, wie funktioniert das Auslesen der Dateieigenschaften per VB?
Gruß
Ursula

Anzeige
ActiveWorkbook.BuiltinDocumentProperties("...")
25.08.2003 07:50:35
sergiesam
Hallo Ursula,
ich habe dir hier ein kleines Makro aufgeschrieben.

Sub FußzeileEinstellen()
ActiveSheet.PageSetup.LeftFooter = "Erstellt am: " & Format(ActiveWorkbook.BuiltinDocumentProperties("Creation Date"), "dd.mm.yyyy") & " - durch " & ActiveWorkbook.BuiltinDocumentProperties("Author")
End Sub

Du schreibst, dass du noch kein VBA kannst. Es geht leider nur über ein Makro. Hast du jemanden, der dir das Makro in deine persönliche Makromappe kopiert?
Gruß aus Linz,
Sam

Anzeige
AW: ActiveWorkbook.BuiltinDocumentProperties("...")
25.08.2003 08:22:17
Ursula
Hallo Sam,
besten Dank für den Tipp. Ich habe es ausprobiert. Es klappt hervorragend.
Könntest Du mir noch verraten, wie man im Makro nicht nur das aktuelle, sondern alle Arbeitsblätter anspricht (10 Stück).
Besten Dank bereits im voraus
Ursula

AW: ActiveWorkbook.BuiltinDocumentProperties("...")
25.08.2003 08:33:05
sergiesam
Hi,
dann verwendet man im Makro einfach eine Schleife, die diesen Befehl für alle Blätter der Mappe ausführt:

Sub AlleFußzeilenEinstellen()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.PageSetup.LeftFooter = "Erstellt am: " & Format(ActiveWorkbook.BuiltinDocumentProperties("Creation Date"), "dd.mm.yyyy") & " - durch " & ActiveWorkbook.BuiltinDocumentProperties("Author")
Next sh
End Sub

Gruß aus Linz,
Sam

Anzeige
AW: ActiveWorkbook.BuiltinDocumentProperties("...")
25.08.2003 08:54:03
ursula
Hallo Sam,
klappt hervorragend.
Besten Dank nochmal
Grüße aus Köln
Ursula

;
Anzeige

Infobox / Tutorial

Erstelldatum und Benutzer in der Fußzeile von Excel


Schritt-für-Schritt-Anleitung

Um das Erstelldatum und den Namen des Erstellers automatisch in die Fußzeile Deiner Excel-Datei einzufügen, kannst Du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke Alt + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und dann auf Modul.
  3. Kopiere den folgenden Code in das Modul:

    Sub FußzeileEinstellen()
       ActiveSheet.PageSetup.LeftFooter = "Erstellt am: " & Format(ActiveWorkbook.BuiltinDocumentProperties("Creation Date"), "dd.mm.yyyy") & " - durch " & ActiveWorkbook.BuiltinDocumentProperties("Author")
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus:

    • Drücke Alt + F8, wähle FußzeileEinstellen und klicke auf Ausführen.

Um das Makro für alle Arbeitsblätter zu verwenden, kannst Du den Code wie folgt anpassen:

Sub AlleFußzeilenEinstellen()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Sheets
        sh.PageSetup.LeftFooter = "Erstellt am: " & Format(ActiveWorkbook.BuiltinDocumentProperties("Creation Date"), "dd.mm.yyyy") & " - durch " & ActiveWorkbook.BuiltinDocumentProperties("Author")
    Next sh
End Sub

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Lösung: Stelle sicher, dass die Datei gespeichert ist, da die Dateieigenschaften erst nach dem Speichern verfügbar sind.
  • Fehler: Fußzeile wird nicht angezeigt

    • Lösung: Überprüfe die Druckeinstellungen und stelle sicher, dass die Fußzeile in den Seitenlayout-Optionen aktiviert ist.

Alternative Methoden

Eine Alternative zur Verwendung von VBA ist das manuelle Hinzufügen des Datums und des Benutzernamens in die Fußzeile:

  1. Gehe zu Seitenlayout.
  2. Klicke auf Fußzeile und wähle Benutzerdefinierte Fußzeile.
  3. Füge das aktuelle Datum mit &[Datum] hinzu.
  4. Für den Benutzernamen kannst Du &[Benutzer] verwenden, wobei dies jedoch nicht das Erstelldatum anzeigt.

Praktische Beispiele

  • Beispiel 1: Wenn Du das Makro für alle Blätter in einem Projekt anwenden möchtest, nutze den Code für AlleFußzeilenEinstellen. Dies ist besonders nützlich, wenn Du ein umfangreiches Arbeitsbuch mit mehreren Blättern hast.

  • Beispiel 2: Um das aktuelle Datum als Druckdatum in der Fußzeile anzuzeigen, kannst Du die Funktion &[Datum] verwenden, jedoch ist dies nicht dasselbe wie das Erstelldatum.


Tipps für Profis

  • Makros speichern: Vergiss nicht, Deine Excel-Datei im Format *.xlsm zu speichern, um die Makros zu behalten.
  • Einfache Anpassungen: Du kannst das Format des Datums ändern, indem Du den Format-Parameter im VBA-Code anpasst. Zum Beispiel für das Format "MM-DD-YYYY": Format(..., "mm-dd-yyyy").
  • Schnelle Ausführung: Wenn Du häufig Änderungen an der Fußzeile vornimmst, überlege, Dir eine Schaltfläche in der Symbolleiste für den schnellen Zugriff zu erstellen.

FAQ: Häufige Fragen

1. Wie kann ich das Erstelldatum in der Fußzeile automatisch aktualisieren?
Das Erstelldatum wird durch das Speichern der Datei gesetzt und bleibt beim nächsten Speichern unverändert. Das Makro aktualisiert die Fußzeile nur bei der Ausführung.

2. Kann ich mehrere Fußzeilen für verschiedene Blätter haben?
Ja, Du kannst das Makro anpassen, um unterschiedliche Informationen in die Fußzeilen verschiedener Blätter einzufügen, indem Du spezifische Bedingungen im Code verwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige