Hallo zusammen,
wenn ich versuche folgendes Makro ablaufen zu lassen,
-------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------
erhalte ich immer die Fehlermeldung:
The Method PartNumber failed.
Das kuriose an dieser Sache ist, das das Makro unter R16 SP2 funktioniert und unter R16 SP5 sowie R17 Sp8 funktioniert das ganze nicht. Jetzt habe ich die Vermutung das es sich um eine Einstellung in den Optionen handelt.
Hatte jemand schon mal dieses Problem und kann mir diesbezüglich weiterhelfen?
Gruß
eazy_isi
------------------
Das Glück bevorzugt den der vorbereitet ist!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP