Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Änderungsdatum in Fußzeile

Forumthread: Änderungsdatum in Fußzeile

Änderungsdatum in Fußzeile
21.01.2004 13:32:35
ebi
Hallo,
ich möchte, wenn in Tabelle 1 in dem Bereich A2:D31 eine Änderung durchgeführt wird, in der Fußzeile (rechts)das Änderungsdatum (z.B. "Änderungsstand: 21.01.2004") automatisch erscheint.Wenn die Tabelle geöffnet aber nichts geändert wird sollte das vorhandene Datum der letzten Änderung entsprechen (drucken ist keine Änderung!).Wenn das in der Fußzeile nicht möglich sein sollte, geht auch eine Zelle.
ist dies möglich und wie?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungsdatum in Fußzeile
21.01.2004 13:39:17
Matthias G
Hallo ebi,
folgenden Code in "Tabelle1":

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:D31")) Is Nothing Then
ActiveSheet.PageSetup.RightFooter = "Änderungsstand: " & Date
End If
End Sub

Gruß,
Matthias
Anzeige
AW: Änderungsdatum in Fußzeile
21.01.2004 14:03:43
Gert Seler
Hallo ebbes,
Umgangsformen sollten schon sein, auch in diesem Forum. Ein richtiger Name wirkt
manchmal Wunder.
Probier mal das Modul von Hajo, aus Herbers Wunderkiste.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)     Worksheets("Tabelle1").Range("C3") = Date
End Sub
Ich hoffe es hilft Dir.
mfg
Gert
Anzeige
AW: Änderungsdatum in Fußzeile
21.01.2004 16:31:54
ebi
herzlichen Dank für die schnelle und funktionsfähige Hilfe!!!
zu Gert:
Die Verwendung oder das Benutzen von Synonymen, Akonymen, Kosenamen oder Namenskürzeln hat nichts mit falschen Umgangsformen zu tun (siehe Mail.- oder Internetadressen)!
ebi steht für meinen Vornamen "Eberhard"
;
Anzeige

Infobox / Tutorial

Änderungsdatum in der Fußzeile von Excel


Schritt-für-Schritt-Anleitung

Um das Änderungsdatum in der Fußzeile Deiner Excel-Tabelle automatisch zu aktualisieren, kannst Du folgenden VBA-Code verwenden:

  1. Öffne Deine Excel-Datei und gehe zu der Tabelle, in der Du das Änderungsdatum in der Fußzeile anzeigen möchtest (z.B. "Tabelle1").

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Suche im Projektfenster Deine Tabelle (z.B. "Tabelle1") und doppelklicke darauf.

  4. Füge den folgenden Code in das Code-Fenster ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("A2:D31")) Is Nothing Then
           ActiveSheet.PageSetup.RightFooter = "Änderungsstand: " & Date
       End If
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Jetzt wird das Änderungsdatum in der Fußzeile aktualisiert, wenn Du Änderungen im Bereich A2:D31 vornimmst.


Häufige Fehler und Lösungen

  • Fehler: Das Änderungsdatum wird nicht aktualisiert.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt eingefügt ist und dass die Makros aktiviert sind.
  • Fehler: Das Datum wird nicht in der Fußzeile angezeigt.

    • Lösung: Überprüfe, ob Du die richtige Fußzeilen-Einstellung im Excel-Dokument verwendest. Gehe zu "Seitenlayout" > "Seite einrichten" > "Kopf- und Fußzeile".

Alternative Methoden

Wenn Du das Änderungsdatum nicht in der Fußzeile, sondern in einer Zelle anzeigen möchtest, kannst Du diesen Code verwenden:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets("Tabelle1").Range("C3") = Date
End Sub

Dieser Code aktualisiert das Datum in Zelle C3 von "Tabelle1", bevor die Datei gespeichert wird. So hast Du immer einen aktuellen Überblick über das letzte Änderungsdatum.


Praktische Beispiele

Hier sind zwei Beispiele, die Dir helfen, das Änderungsdatum in verschiedenen Bereichen Deiner Excel-Datei zu verwenden:

  1. In der Fußzeile für Berichte:

    • Verwende den ersten Code, um das Änderungsdatum sichtbar zu halten, wenn Du Berichte druckst.
  2. In einer speziellen Zelle für Änderungen:

    • Verwende den zweiten Code, um das Datum in einer Zelle zu speichern, die Du vielleicht für weitere Berechnungen oder Referenzen benötigst.

Tipps für Profis

  • Überlege, ob Du zusätzlich das Uhrzeitformat hinzufügen möchtest, um genauere Informationen über den Änderungszeitpunkt zu erhalten:

    ActiveSheet.PageSetup.RightFooter = "Änderungsstand: " & Now
  • Teste die Funktionalität regelmäßig, insbesondere nach Updates von Excel, um sicherzustellen, dass alles ordnungsgemäß funktioniert.


FAQ: Häufige Fragen

1. Wie kann ich das Datum formatieren?
Du kannst das Datum in verschiedenen Formaten anzeigen, indem Du die Format-Funktion in VBA verwendest, z.B. Format(Date, "dd.mm.yyyy").

2. Funktioniert das auch in Excel Online?
Leider funktioniert VBA nur in der Desktop-Version von Excel. In Excel Online kannst Du diese Funktion nicht nutzen.

3. Was ist, wenn ich mehrere Tabellenblätter habe?
Du kannst den Code für jede Tabelle anpassen, indem Du den spezifischen Tabellennamen im Code änderst oder eine Schleife über die Blätter einfügen.

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