Ich hab folgenden Code:
Code: Alles auswählen
Type Metadata
docTitle As String
docDescription As String
docLanguage As String
docKeywords As String
docAuthors As String
docCopyright As String
End Type
Sub test
Dim oMetadata as Object
oMetadata = CreateObject("Metadata")
End Sub
In der Zeile mit CreateObject habe ich ´nen Haltepunkt gesetzt und "oMetadata" als Beobachter unten in der Liste.
Mach in nun einen "Step into" wird oMetadata ja erzeugt und ich kann es unten in der Liste aufklappen.
Dort stehen dann aber nur docTitle, docDescription und docLanguage jeweils als leerer String drin. Der Rest nicht.
Lösch ich eine Zeile, dann stehen nur noch die ersten beiden Werte drin.
Und das nicht nur bei dieser Type-Definition, sondern bei allen! Immer fehlen die letzten drei.
Ist das nur bei mir so? Und wenn ja, warum?