AW: Bearbeitungsdatum einer anderen Datei
06.04.2011 12:30:30
Rudi
Hallo,
davon ausgehend, dass in A die Hyperlinks stehen:
Sub xxx()
Dim h As Hyperlink, wkb As Workbook, BDP
Application.ScreenUpdating = False
For Each h In Columns(1).Hyperlinks
Set wkb = Workbooks.Open(h.Address)
Set BDP = wkb.BuiltinDocumentProperties
With h.Parent
.Offset(, 1) = Int(BDP("Last Save Time")) 'Datum
.Offset(, 1).NumberFormat = "DD.MM.YYYY"
.Offset(, 2) = BDP("Last Save Time") - Int(BDP("Last Save Time")) 'Zeit
.Offset(, 2).NumberFormat = "hh:mm:ss"
.Offset(, 3) = BDP("Last Author")
End With
wkb.Close False
Next
End Sub
"Last Author" ist allerdings der unter Extras-Optionen-Allgemein eingetragene Benutzername.
Gruß
Rudi