Properties
ing.grohn
warum läuft folgende Prcedur bei rw=10, 14,15,16 ... (einige mehr) auf den Fehler "Methode Value ist fehlgeschlagen"?
Sub TestProperties()
Dim rw As Integer
Dim p As Object
rw = 1
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = rw
Cells(rw, 2).Value = p.Name
Cells(rw, 3).Value = p.Value
rw = rw + 1
Next
End Sub
ich freue mich auf eine Antwort
vielen Dank
Mit freundlichen Grüßen
Albrecht