Sub DokumentEigenschaften()
   x = 0
   For Each p In ActiveWorkbook.BuiltinDocumentProperties
      x = x + 1
      On Error Resume Next
      Cells(x, 1).Value = x
      Cells(x, 2).Value = p.Name
      Cells(x, 3).Value = p.Value
   Next
End Sub