---

Hallo Zusammen,

ich habe ein Problem mit einer Kopieroperation in meinem Makro:
Ich kopiere aufgrund eines Suchkriteriums Parts die im NoShow liegen.
Ab und zu kommt es vor das sich keine Parts im NoShow befinden, d.h. mein Suchkriterium findet nichts und kann somit nichts kopieren.
Hierbei kommt die Fehlermeldung "The CSO ist empty, the Copy operation could not be performed".
Wie kann man das am besten umgehen?

Der Code Abschnitt:
-----------------------------------------------
Set Liste1 = CATIA.ActiveDocument.Selection
Liste1.Clear
Liste1.Search "'Assembly Design'.Part.Visibility=Invisible;from"            'Suchkriterium

  'If Liste1 = Empty Then GoTo Leer          wie kann ich das umgehen?
    Liste1.Copy
    Set documents1 = CATIA.Documents
    Set productDocument1 = documents1.Add("Product")                      'Neues product öffnen
    Set Product1 = productDocument1.Product
   
    Product1.PartNumber = "xyz"                                                        'product umbennenen
    Product1.Update
   
    Set productDocument1 = CATIA.ActiveDocument
    Set selection1 = productDocument1.Selection
   
    selection1.Clear
    selection1.Add Product1
    selection1.Paste                                                                          'ausgewählte Dateien Übergeben
-----------------------------------------------

Danke für alle Tipps!

------------------

http://www.xing.com/profile/Jannis_Kumelis

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

---

Bitte ein Buch über VB-Programmierung lesen.

Code:

---

Liste1.Search "'Assembly Design'.Part.Visibility=Invisible;from"            'Suchkriterium

  If (Liste1.Count2 > 0) Then
    Liste1.Copy
    '...
 
  End If

---

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Vielen Dank, geht wunderbar!
Das mit dem Buch nimm ich mir zu Herzen 
Grüße

------------------

http://www.xing.com/profile/Jannis_Kumelis

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