ich möchte, dass das Datum der letzten Speicherung bzw. Änderung automatisch angezeigt wird.
Freundl. Grüße
Mark
Sub Eigenschaften()
Dim z As Byte, p As Variant
z = 1
Sheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
On Error Resume Next
Cells(z, 1).Value = "Eingebaute Eigenschaft"
Cells(z, 2).Value = p.name
Cells(z, 3).Value = p.Value
z = z + 1
On Error GoTo 0
Next
For Each p In ActiveWorkbook.CustomDocumentProperties
On Error Resume Next
Cells(z, 1).Value = "Benutzereigenschaft"
Cells(z, 2).Value = p.name
Cells(z, 3).Value = p.Value
z = z + 1
On Error GoTo 0
Next
End Sub