---

Hallo bin ein Leihe habe den Code im forum gefunden und möchte das Progamm zum Laufen bringen, leider klappt das bei mir nicht
woran kann denn das ligen

Beim debuggen wird folgende Zeile gelb markiert

Code:

---

oExl.ActiveWorkbook.Sheets("Baugruppe").Cells(2, 2) = oAsmDoc.PropertySets(4).Item("Produktmarke").Value & oAsmName

---

kommt die Fehlermeldung

Run-time error '-2147467259 (80004005)':Method 'Item' of object 'PropertySet' failed

den ganzen code findet man
http://ww3.cad.de/foren/ubb/Forum258/HTML/001400.shtml#000004

Danke im Voraus

D.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hast du denn ein benutzerdefiniertes iProperty, was "Produktmarke" heißt?

Wenn dieses nicht vorhanden ist, dann versucht er an dieser Stelle vergeblich das nicht vorhandene iProperty nach Excel zu schreiben.

------------------
Mit Besten Grüßen

Marcel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Tipp, leider weis ich nicht was das  "iProperty" enthalten soll und wie das ausschauen sollte "iProperty" ist mir schon ein Begriff , diesen nutze ich um Variabeln für mehrere gleichartige Teile zu nutzen mehr aber nicht.

Wäre es möglich mir eine soleche Vorlage zur verfügung zu stellen?

Auf dieser sache wäre ich nie gekommen!!!!

Danke im Voraus

D.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

So ist der Code richtig

Code:

---

oExl.Sheets.Item("Baugruppe").Cells(2, 2).Value = oAsmDoc.PropertySets(4).Item("Produktmarke").Value & oAsmName

---

Gruß
Berno

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von BernoAn:
Hallo,

So ist der Code richtig

Code:

---

oExl.Sheets.Item("Baugruppe").Cells(2, 2).Value = oAsmDoc.PropertySets(4).Item("Produktmarke").Value & oAsmName

---

Gruß
Berno

---

Auch dieser Code ändert IMHO nichts an der Tatsache das der Code crasht, wenn das iProperty "Produktmarke" nicht vorhanden ist.

Und der Fehler der zu Beginn vom Threadersteller gepostet wurde:

"Run-time error '-2147467259 (80004005)':Method 'Item' of object 'PropertySet' failed"

besagt ja, dass die Item-Methode des Objektes "PropertySet" fehlschlägt.
Dies zeigt, dass er das gewünschte iProperty "Produktmarke" nicht abrufen kann.

Zur Lösung führt IMHO nur:

* Die Code-Zeile löschen, wenn sie nicht gewünscht/benötigt wird
* Das fehlende iProperty "Produktmarke" ergänzen
* Den Fehler vermeiden, indem der Code vorher prüft, ob das gewünschte iProperty überhaupt vorhanden ist

------------------
Mit Besten Grüßen

Marcel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Stimmt so wie du es schreibst,

ich habe nur die Codezeile korrigiert, das sie funktioniert!

Gruß
Berno

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Erst mal einen großen Dank an euch allen, dass Ihr an der Lösung meinem Problem teilnehmt.

Wenn es möglich wäre, die gesamte Funktion zu nutzen.

* Die Code-Zeile löschen, wenn sie nicht gewünscht/benötigt wird

Aber hier fehlt dann die Stückliste oder?

* Das fehlende iProperty "Produktmarke" ergänzen

Wie muß ich hier vorgehen habe so was nie gemacht?

* Den Fehler vermeiden, indem der Code vorher prüft, ob das gewünschte iProperty überhaupt vorhanden ist

Was müsste man hier eingeben, und wo?

Danke im Voraus

D.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin 

Wenn ich mich nicht irre könnte dir das weiterhelfen.

Code:

---

Private Sub test2()

Dim Test_Value As String
Dim oAsem As AssemblyDocument
Set oAsem = ThisApplication.ActiveDocument
If Check_PropertyExists(oAsem, 4, "Produktmarke") Then
    Test_Value = oAsem.PropertySets(4).Item("Produktmarke").Value '& oAsmName
Else
'Wert existiert nicht
'Neue IProperty Anlegen
Call oAsem.PropertySets(4).Add("Propvalue", "Propname", "PropID")
End If

End Sub

Private Function Check_PropertyExists(ByVal oDoc As Object, ByVal PropertySet_Index As Integer, ByVal Property_Name As String) As Boolean

On Error Resume Next
Dim Test_Value As String
Test_Value = oDoc.PropertySets(PropertySet_Index).Item(Property_Name).Value
If Err.Number <> 0 Then
    Check_PropertyExists = False
Else
    Check_PropertyExists = True
End If
   
End Function

---

Hab ich jetzt mal auf die Schnelle zusammengebastelt.

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP