Makro für Excel "zuletzt geändert am.......um...."

[paradox0711]

Hallo zusammen....

Hoffe hier kann mir jemand weiterhelfen, nachdem ich vergeblich gegoogelt habe!!

Es geht um foldenges:
Ich würde gerne beim schließen und speichern eines Excelsheets die Informationen "zuletzt geändert am" automatisch einfügen. Das dies wahrscheinlich über ein Makro passieren muss ist mir soweit klar......nur leider habe ich überhaupt keine Ahnung von VBA. Habe auch schon in diversen Newsgroups gestöbert und auch Ansätze gefunden. Aber keine wirklich Lösung - naja, hab ich auch einfach zu wenig Ahnung davon und habe die Lösung nicht "gesehen"!!
Das man mit Strg+. und Strg+: das Datum und die aktuelle Uhrzeit einfügen kann, weiss ich schon.
Aber das ganze sollte nicht manuell sondern automatisch von statten gehn.

So in etwa stelle ich mir das vor:
- Makro wird automatisch beim öffnen der Datei gestartet
- Fügt nach jedem speichern oder vor dem schließen das aktuelle Datum und die Uhrzeit in definierte Zellen ein
- evtl. auch noch der Benutzername des Bearbeiters (muss aber nicht unbedingt sein)

Ich hoffe, ich habe das jetzt nicht zu umständlich beschrieben.....einen kleinen Screenshot zur besseren Vorstellung habe ich angehangen.

Schon mal vielen Dank im Voraus für eure Mühe

Grüße, Stefan

[HeikoBerlin]

> Fügt nach jedem speichern oder vor dem schließen das
> aktuelle Datum und die Uhrzeit in definierte Zellen ein
z.B. vor dem Schliessen ist relativ einfach zu bewerkstelligen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A5").Value = Date
Range("C5").Value = Time
End Sub

Dies wäre wiefolgt einzufügen: RechtsKlick auf der Tabelle
(Tabelle1) und 'Code anzeigen' und im Projektfenster auf
"DieseArbeitsmappe" doppelklicken und in der Kopfzeile des
neuen Fensters oben links Workbook sowie oben rechts BeforeClose

Aber das zeigt natürlich nicht wirklich die letzte Änderung an!
Dazu sollte man dann entweder die Funktion Workbook_SheetChange
verwenden oder um nur die Änderungen der Tabelle festzustellen:
Worksheet_Change (nicht in DieseArbeitsmappe sondern Tabelle1)

Selbstverständlich kann man sich aber auch gleich der Info's aus
Datei - Eigenschaften - Statistik bedienen. Das ginge z.B. so:

Private Sub Worksheet_Activate()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Datei As Object
Set Datei = FSO.GetFile(ThisWorkbook.Path & "\" & ThisWorkbook.Name)

Range("A5").Value = FormatDateTime(Datei.DateLastModified, vbShortDate)
Range("C5").Value = FormatDateTime(Datei.DateLastModified, vbLongTime)
Range("B5").Value = ActiveWorkbook.BuiltinDocumentProperties.Item(3)
Set FSO = Nothing
Set Datei = Nothing
End Sub

[HeikoBerlin]

oops, Fehler meinerseits:

ActiveWorkbook.BuiltinDocumentProperties.Item(3)
zeigt den Autor an aber nicht 'zuletzt gespeichert von'
war bei mir identisch - richtig dafür wäre Wert 7

ActiveWorkbook.BuiltinDocumentProperties.Item(7)