habe hier schon was gefunden das mir aber nur bedingt weiter hilft.
Dieses Makro liest mir die Eigenschaften des Workbooks aus.
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
Ich möchte aber das die Eigenschaften aller Dateien im Pfad C:\Eigene Dateien und der Unterordener ausgelesen werden.
Wer kann mir helfen?
Gruß Lars