PCtipp Bot
Redaktion PCtipp
Automatisch erstellter Thread für Kommentare zum Thema.
ThisWorkbook.BuiltinDocumentProperties("Creation Date") = DateValue("26.11.1985") + TimeValue("01:25:33")
Sub ErstellDatumAnpassen()
Dim fso As Object
Dim datei As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set datei = fso.GetFile(ActiveWorkbook.FullName)
ActiveWorkbook.BuiltinDocumentProperties("Creation Date") = datei.DateCreated
Set datei = Nothing
Set fso = Nothing
End Sub