Hi an alle,
ich habe folgenden Code:
Dim fs, book, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
book = ActiveWorkbook.Name
Set f = fs.GetFile(book)
s = Left(f.DateLastModified, 10)
Sheets(1).Range("D1") = "Letzte Änderung: " & Chr(13) & s
Mein Problem ist, dass der bei mir zwar funktioniert, aber auf anderen Rechnern nicht. Woran kann das liegen? Vielleicht an den unterschiedlichen Versionen (ich hab excel 2002 und der andere Rechner 2000)? Wenn ja, dann wäre das äußerst ärgerlich. Gibt es dann ne Möglichkeit, das Datum der letzten Änderung der Datei irgendwie einfacher und gültig für alle Versionen (zumindest die neueren) zu programmieren.
Danke,
Basti