Habs doch noch im Forum gefunden!!!
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 = products1.Item(selection1.Item(i).Value.Name)
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