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

Forumthread: Speicherdatum der Datei in einer Zelle

Speicherdatum der Datei in einer Zelle
16.07.2014 19:56:19
Rudolf
Moin,
ich möchte in einer Excel-Zelle automatisch das Speicherdatum dieser Datei eintragen, das sich beim Öffnen der Datei an irgendeinem späteren Tag nicht verändert (... es sei denn, dass diese Datei neu gespeichert wird).
Letztlich soll auf diese Weise beim Öffnen einer Excel-Datei erkennbar sein, um welche Version es sich handelt.
Wie geht das?
Gruß
Rudolf

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicherdatum der Datei in einer Zelle
16.07.2014 20:07:19
Matthias
Hallo
es sei denn, dass diese Datei neu gespeichert wird
Ich öffne Deine Datei, andere nichzs aber speichere die Datei neu ab.
Was hat das jetzt für einen Sinn?
Da sind ein paar Sachen nicht ganz klar!
Gruß Matthias

AW: Speicherdatum der Datei in einer Zelle
16.07.2014 20:51:05
Rudolf
Moin,
vielleicht habe ich mich unglücklich ausgedrückt.
Ich möchte, dass auf dem geöffneten Tabellenblatt in einer Zelle erkennbar ist, um welche Version es sich handelt. (Ich könnte zwar theoretisch das Tagesdatum hineinschreiben, doch dachte ich an eine Automatisierung dieses Vorgangs.)
Wenn die Datei an einem anderen Tag nur geöffnet wird, um Einblick zu nehmen und keine Änderungen vorzunehmen, soll folglich das Datum in der Zelle nicht angepasst werden (... bei der Formal HEUTE würde das jedoch geschehen.)
Erst bei tatsächlich vorgenommenen Änderungen und einem erneuten Abspeichern der Datei soll sich dann wieder das Datei-Speicherdatum in der Zelle ändern.
Hintergrund: Das Arbeitsblatt wird als pdf-Dokument verbreitet und gedruckt. Sind verschiedene pdf-Dokumente dieser Datei im Umlauf, soll anhand des Speicherdatums in der Zelle bereits erkennbar sein, wie aktuell dieses Dokument ist-
Gruß
Rudolf

Anzeige
AW: Speicherdatum der Datei in einer Zelle
17.07.2014 11:50:21
Peter
Hallo Rudolf
Als VBA so:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Range("A1").Value = Now
End Sub
Gruß
Peter (hpo)

If ThisWorkbook.Saved = False Then ...
17.07.2014 15:22:05
Matthias
Hallo
Wie Peter schon erwähnt kann man dies mit VBA realisieren.
Code gehört in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Saved = False Then
Tabelle1.Range("A1") = Date
End If
End Sub
Nun kannst Du auch speichern.
Das Datum ändert sich beim Speichern nur wenn in der Datei eine Änderung vorgenomme wurde.
Beim Speichern ohne in der Datei etwas geändert zu haben, bleibt das alte Datum erhalten.
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Speicherdatum der Datei in einer Zelle einfügen


Schritt-für-Schritt-Anleitung

Um das Speicherdatum der Datei in einer Zelle anzuzeigen, kannst Du folgende Schritte befolgen:

  1. Öffne Deine Excel-Datei.

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

  3. Füge den folgenden Code in das Modul "DieseArbeitsmappe" ein:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       Sheets("Tabelle1").Range("A1").Value = Now
    End Sub
  4. Schließe den VBA-Editor und speichere die Datei als Excel-Arbeitsmappe mit Makros (Dateiendung .xlsm).

  5. Ändere etwas in Deiner Datei und speichere sie. Das aktuelle Datum wird jetzt in Zelle A1 eingetragen.

  6. Öffne die Datei erneut, ohne Änderungen vorzunehmen, und das Datum bleibt unverändert.

Dieser Ansatz ermöglicht es Dir, das letzte Speicherdatum in Excel anzuzeigen, ohne dass es sich verändert, solange keine Änderungen in der Datei vorgenommen werden.


Häufige Fehler und Lösungen

  • Fehler: Das Datum wird nicht aktualisiert.

    • Lösung: Stelle sicher, dass der VBA-Code im richtigen Modul eingefügt wurde und die Datei im richtigen Format gespeichert ist (.xlsm).
  • Fehler: Der VBA-Editor öffnet sich nicht.

    • Lösung: Überprüfe, ob Excel die Makros aktiviert hat. Du kannst dies in den Excel-Optionen unter "Trust Center" einstellen.

Alternative Methoden

Falls Du das Speicherdatum ohne VBA einfügen möchtest, kannst Du folgende Excel-Funktionen verwenden:

  1. Verwende die Formel =JETZT(), um das aktuelle Datum und die Uhrzeit anzuzeigen. Beachte, dass diese sich bei jedem Öffnen der Datei aktualisieren.
  2. Um das letzte Speicherdatum in einer Zelle anzuzeigen, kannst Du die Funktion =LETZTESÄNDERUNG() verwenden, allerdings ist diese Funktion nicht standardmäßig verfügbar.

Praktische Beispiele

  • Beispiel 1: Du möchtest das letzte Speicherdatum in Zelle A1 einfügen:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       ThisWorkbook.Sheets("Tabelle1").Range("A1").Value = Date
    End Sub
  • Beispiel 2: Anzeigen des Speicherdatums in einer benutzerdefinierten Formatierung:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       ThisWorkbook.Sheets("Tabelle1").Range("A1").Value = Format(Now, "dd.mm.yyyy hh:mm")
    End Sub

Diese Beispiele zeigen, wie Du das Speicherdatum in Excel einfügen kannst, ohne dass Änderungen an der Zelle vorgenommen werden, solange die Datei nicht gespeichert wird.


Tipps für Profis

  • Speichere Deine Datei regelmäßig, um sicherzustellen, dass das Speicherdatum aktuell bleibt.
  • Verwende Kommentare im VBA-Code, um die Funktionalität zu dokumentieren.
  • Teste den Code vorher in einer Kopie Deiner Datei, um unerwünschte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich das Speicherdatum in einer anderen Zelle anzeigen?
Ja, ändere einfach die Zellreferenz im VBA-Code (z.B. Range("B1")).

2. Funktioniert dies in allen Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in Excel 2010 und späteren Versionen. Achte darauf, dass Makros in Deinen Excel-Optionen aktiviert sind.

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