Excel 2002: Feld für Datum der letzten Speicherung

Computer: Software & Programmierung Office Software
1

Hallo,
kennt jeman eine Möglichkeit, wie man in einem Excel-2002-Arbeitsblatt ein sich automatisch aktualisierendes Feld (bzw. eine Funktion), dass Datum und Uhrzeit der letzten Speicherung anzeigt, einfügt? In Word gibt es ja das Feld DocProperty mit der Option LastSavedTime, doch etwas vergleichbares habe ich in Excel bisher nicht gefunden.

Vielen Dank für Eure Hilfe,
Stephan

2

Lieber Stephan,
versuch es mal damit.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim iRow As Integer
With Worksheets(„Tabelle1“)
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1) = Date
.Cells(iRow, 2) = Time
End With
On Error GoTo ERRORHANDLER
ThisWorkbook.Save
Exit Sub
ERRORHANDLER:
MsgBox „Fehler!“
End Sub

Sub ins Klassenmodul eintragen und den Tabellennamen eventuell noch anpassen.
In der Tabelle entsteht eine fortlaufende Liste mit Zeit und Datum.

Fablonow a.D.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo Stephan,

in EXCEL-VBA gibt es unter ActiveWorkbook.BuiltinDocumentProperties(„Last save time“) zwar eine Variable, aber EXCEL gibt keine Daten in diese Variable aus.

Folgender kleine Umweg ermöglicht aber das Abpeichern des letzten Speicherdatums inkl. Uhrzeit in der EXCEL-Tabelle. Ich hab mal verschiedene Varianten in die Prozedur eingebaut. Du muß dir dann die gewünschte Variante raussuchen und ggf. modifizieren. Diese Prozedur muß im VBA-Editor für die Datei unter „DieseArbeitsmappe“ eingefügt werden. Sie wird unmittelbar vor dem Speichern ausführt.

Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Speicherzeit = Now

' Eintrag in eine einzelne Zelle in einer bestimmten Tabelle
 Range("Tabhoch!D1").Value = Speicherzeit

 For Each Tabelle In ActiveWorkbook.Sheets

' Eintrag in allen Tabellen in die Zelle "D2"
 Range("D2").Value = Speicherzeit

' Eintrag in die mittlere Fußzeile jeder Tabelle
 With Tabelle.PageSetup
 .CenterFooter = "Zuletzt gespeichert: " & Format(Speicherzeit, "DD.MM.YYYY hh.mm.ss")
 End With
 Next

End Sub

Gruß
Franz

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]