Gruppe
Allgemein
Problem
Wie kann ich die eingbauten Dokumenten-Eigenschaften der Arbeitsmappe über VBA auslesen?
StandardModule: basMain
Sub Eigenschaften()
Dim iCounter As Integer
On Error Resume Next
For iCounter = 1 To 30
Cells(iCounter, 1).Value = _
ThisWorkbook.BuiltinDocumentProperties(iCounter).Name
Cells(iCounter, 2).Value = _
ThisWorkbook.BuiltinDocumentProperties(iCounter)
If Err > 0 Then
Err.Clear
Cells(iCounter, 2).Value = "k.A."
End If
Next iCounter
On Error GoTo 0
Columns.AutoFit
Columns("A:B").HorizontalAlignment = xlLeft
End Sub