Zeitangabe Speicherung

Forumthread: Zeitangabe Speicherung
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeitangabe Speicherung

17.04.2009 23:59:05

deid

Hallo eine Frage,
gibt es eine Möglichkeit,wenn ich eine Tabelle bearbeite und abspeichere,das beim nächsten Aufruf
z.Bsp in einer Zelle dasteht,wann die Tabelle das letzte mal bearbeitet wurde,bzw.abgespeichert.
Das ganze halt ohne in den Eigenschaften nachzuschauen.
Vielen Dank !!
Ciu !!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeitangabe Speicherung

18.04.2009 00:05:20

Josef
AW: Zeitangabe Speicherung

18.04.2009 00:13:45

Rudi

AW: Zeitangabe Speicherung

18.04.2009 00:05:20

Josef

Hallo ?

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Range("A1") = "Letzte Speicherung: " & Format(Now, "dd.mm.yy, hh:nn:ss")
End Sub

Gruß Sepp

AW: Zeitangabe Speicherung

18.04.2009 00:13:45

Rudi

Hallo,
in DieseArbeitsmappe:


Private Sub Workbook_Open()
Dim fs As Object, f As Object
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.getfile(ThisWorkbook.FullName)
Cells(1, 1) = f.datelastmodified
End Sub

Gruß
Rudi