Discussion:
Funktion für Datum der letzten Dateiänderung
(zu alt für eine Antwort)
Rocholl
2003-09-09 14:22:00 UTC
Permalink
Wer weiß einen Tip zu einer Formel / Funktion, wie man in
einer Zelle dias letzte Datum/Uhrzeit der Dateiänderung
anzeigen kann?

Vielen Dank für die Unterstützung!

MfG
H.Rocholl
Nick
2003-09-09 16:52:19 UTC
Permalink
Hallo Rocholl

Im VB-Editor den Projekt-Explorer öffnen
Im Exel Objekt "DieseArbeitsmappe"
folgenden code eingeben:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("tabelle1").Range("A1") = Date & Time
End Sub

Beim Speichern wird hier im Blatt "Tabelle1" in Zelle "A1" das aktuelle
Datum und die Uhrzeit eingetragen
Das entsprechende sheet, range " " kannst du natürlich entsprechend ändern.

Gruß Nick
Anton Haumer
2003-09-09 18:16:13 UTC
Permalink
Post by Rocholl
Wer weiß einen Tip zu einer Formel / Funktion, wie man in
einer Zelle dias letzte Datum/Uhrzeit der Dateiänderung
anzeigen kann?
Vielen Dank für die Unterstützung!
MfG
H.Rocholl
Hallo Rocholl,

ich würde mit einer benutzerdefinierten VBA-Funktion
das letzte Speicherdatum auslesen:

Function SpeicherDatum As Variant
On Error GoTo Err
SpeicherDatum = ThisWorkbook.BuiltinDocumentProperties.Item(12)
Exit Function
Err:
MyDate = "None"
End Function

Servus, Toni

Loading...