Aktuelles Speicherdatum
11.05.2007 18:16:18
ingo
Ich habe folgenden VBA-Code, der mir das letzte Speicherdatum in H1 und des Users der diese Speicherung durchgeführt hat in H2 anzeigt.
Leider zeigt er mir nicht das aktuelle Speicherdatum an, sondern den Zeitpunkt vor der aktuellen Speicherung an (wahrscheinlich das Speicherdatum, als die letzte Speicherung abgeschlossen war).
Beispiel:
Speicherung am: 11.11.2006 14.30
Wenn ich nun die Datei am Folgetag abspeicher, zeigt er mir folgendes an: 11.11.2007 14.35
Wenn nun nochmals abspeicher, zeigte er mir das aktuelle Speicherdatum.
Wer kennt die Lösung des Problems ?
ingo
Option Explicit
'Makro zum eintragen des Letzten Speicherdatums und des Anwenders
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Letztes Speicherdatum
Sheets("Tabelle1").Range("H1") = Format(ActiveWorkbook.BuiltinDocumentProperties.Item(12), "dd. _
_
mm.yyyy hh:mm")
'Letzter Anwender
Sheets("Tabelle1").Range("H2") = ActiveWorkbook.BuiltinDocumentProperties.Item(7)
End Sub
Anzeige