Ok, der String bringt dir aber nichts es sein denn du willst in ausgeben.
Ich bin nicht ganz sicher, ob ich richtig verstanden hab was du vor hast.
Aber ich würde das Rekrusiv versuchen aus zulesen.
In etwas so:
---------------------------------------------
Code
---------------------------------------------
Sub main()
Call f_Daten_auslesen_2(CATIA.ActiveDocument.Product.Products)
End Sub
Sub f_Daten_auslesen_2(ByVal oProducts As Products)
Dim ii As Integer
' zählt alle ausgaben
Static zaehler As Integer
' alle Produkte in der List abarbeiten
For ii = 1 To oProducts.Count
zaehler = zaehler + 1
lst_Ausgabefenster.AddItem (zaehler & " Teilenummer: " & oProducts.Item(ii).PartNumber)
lst_Ausgabefenster.AddItem ("Überarbeitung: " & oProducts.Item(ii).Revision)
lst_Ausgabefenster.AddItem ("Definition: " & oProducts.Item(ii).Definition)
lst_Ausgabefenster.AddItem ("Nomenklatur: " & oProducts.Item(ii).Nomenclature)
lst_Ausgabefenster.AddItem ("Beschreibung: " & oProducts.Item(ii).DescriptionRef)
' auslesen der produkte unter diesem Produkt starten
Call Auslesen(oProducts.Item(ii).Products)
Next
End Sub
---------------------------------------------
Code Ende
---------------------------------------------
vielleicht hilft das ja weiter
Gruß
Proofin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP