---

Hallo zusammen,
ich hab hier mal ein Macro gefunden mit dem ich die PartNumber in den Properties suchen und dann ersetzen kann.
Soweit so gut, leider funktioniert das nur bei Parts.
Kann man dieses Macro auch auf die Products erweitern?
Schon mal Danke

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

---

Servus
Ja, kann man bestimmt.
Wie sieht das Makro aus?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ach richtig, sorry, wollte das ja mit reinstellen.
Wie blöde von mir!
Hier ist das jetzige Macro:

Sub CATMain()

String5 = InputBox("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Test")
String3 = InputBox("Zu ersetzenden Namen oder Nummer eingeben", "Test")

    Set productDocument1 = CATIA.ActiveDocument
    Set selection1 = productDocument1.Selection
    selection1.Search "(CATAsmSearch.Part),all"
    For i = 1 To selection1.Count
        Set productDocument1 = CATIA.ActiveDocument
        Set product1 = productDocument1.Product
        Set products1 = product1.Products
        Set product2 = selection1.Item(i).Value
        String2 = product2.PartNumber
        String4 = product2.Name
        Dim Text1, Text2, Text3, Vergleich, Text4
        Text1 = String2
        Text2 = String5
        Text3 = String3
        Text4 = String4
        Vergleich = Replace(Text1, Text2, Text3)
        product2.PartNumber = Vergleich
        Vergleich2 = Replace(Text4, Text2, Text3)
        product2.Name = Vergleich2

Next

End Sub

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

---

Servus
Vermutlich reicht es den Suchstring zu ändern:

Code:

---

selection1.Search "(CATAsmSearch.Product),all"

---

gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo zusammen,

noch eine Frage zu em Macro. Kann man es auch so erweitern, dass die PartNumber von Parts und Products mit dem gleichen Macro geändert werden. So dass ich nur ein Macro starten muss?

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

---

Servus
Probiere es mal mit dem Suchstring:

Code:

---

selection1.Search "(CATAsmSearch.Product + CATAsmSearch.Part),all"

---

Gruß
Bernd

PS: So einen Suchstring kann man gute mit der Suche und dem Makrorekorder ermitteln.

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ausgezeichnet!
Danke!

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

---

Also das Macro funzt super.
Nur manchmal bricht es ab und meckert folgende Zeile an:
        product2.PartNumber = Vergleich
Mittlerweile hab ich rausgefunden woran es liegt. Wir haben in einigen BG eine bestimmte Art von Unter-BG verbaut. Ist diese Unter-BG in einer BG drin bricht das Macro ab. Deaktiviere ich sie funzt alles. Generell haben wir kein Problem mit Unter-BG. Nur mit dieser speziellen.
Hat jemand eine Ahnung woran das liegen könnte?

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

---

Servus
Diese "speziellen Unterbaugruppen" sind Komponente (Components). Schau her mal im Forum wie man diese von "normalen Baugruppen" unterscheidet.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ne, es ist ein richtiges Product. Componenten haben wir teilweise auch verbaut. Diese machen aber keine Probleme.
Ich schätze entweder das Product dieser Unter-BG oder eins der Parts stört das Macro. Nur was könnte da stören? Vielleicht muss ich mal prüfen an welchem Teil es liegt und dann weiterschauen.

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