Makros im Praxiseinsatz: Die VBA-Beispiel-Datenbank / 4.1 Datum der letzten Speicherung abfragen

Wenn Sie einen Blick auf den Dialog Eigenschaften aus dem Menü Datei → Eigenschaften werfen, dann sehen Sie auf der Registerkarte Statistik das letzte Änderungsdatum der Arbeitsmappe. Wie aber können Sie dieses Datum abfragen und gegebenenfalls in eine Zelle schreiben. Die Antwort auf diese Frage liefert das Makro aus dem folgenden Listing.

Sub LetztesSpeicherungsdatumAbfragen()
MsgBox "Das letzte Änderungsdatum der Arbeitsmappe war am: " & _
ActiveWorkbook.BuiltinDocumentProperties("Last save Time")
Sheets("Tabelle1").Range("A1").Value = _
CDate(ActiveWorkbook.BuiltinDocumentProperties("Last save Time"))
End Sub

Über die Eigenschaft BuiltinDocumentProperties können Sie Zugriff auf die Dokumenteigenschaften der aktiven Arbeitsmappe gewinnen. Über die Konstante Last save time wird beispielsweise das letzte Änderungsdatum ermittelt. Die Konstante Creation date würde beispielsweise das Erstellungsdatum der Arbeitsmappe zurückgeben. Die Konstante Last print date liefert den Zeitpunkt des letzten Druckens der Mappe. Wenn Sie diese Eigenschaften in eine Zelle übertragen möchten, dann müssen Sie die Funktion CDate vorschalten, da sonst das jeweilige Datum als Zahl ausgegeben würde. Diese Funktion sorgt demnach dafür, dass das Datum auch als Datum in der Zelle ankommt.

Abb. 3: Das letzte Änderungsdatum einer Arbeitsmappe wird ermittelt.