null, nothing funktioniert nicht .
On Error goto ... wird wahrscheinlich, halte ich aber echt für einen schlechten Scherz wenn man das nicht anders abfragen kann.
Falls dafür jmd eine Lösung hat, bitte posten.
For Each p In ThisWorkbook.BuiltinDocumentProperties
i = i + 1
If InStr(p.Name, " print date") Then
'nothing
' hier sollte statt anstelle auf print date auf BuiltinDocumentProperties(0) auf
keine wert ... bzw noch gar nicht benutzt reagiert werden
Else
wert = ThisWorkbook.BuiltinDocumentProperties(i)
End If
Debug.Print "nr.:" & i & " Text: " & p.Name & " Wert:" & wert
Next
End Sub