---

Hallo,

ich habe vor, bestimmte Pads mit einer Selektion zu erfassen und anschließend mit einer Schleife von einem Körper in einen anderen Körper zu kopieren.
Hier mein Versuch:

For i = selection100.Count To 1 Step -1
    Set pad1 = selection100.Item(i)
osel.Clear
osel.Add pad1
osel.Copy
selection100.Delete
osel.Clear
osel.Add body3
osel.Paste
osel.Clear
Next

Die Selektion klappt auch, aber bei dem osel.Add kommt eine Fehlermeldung (The method Add failed).

Kann mir da jemand weiter helfen?

Vielen Dank!

Gruß Timo

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

---

Servus
Du musst auf das Objekt in der Selektion zu zugreifen:

Code:

---

selection100.Item(i).value

---

Allerdings vermute ich dass das so nicht klappen wird.
Es gibt IMHO nur eine Selektion, dass heiß nach dem clear ist auch der Inhalt der selection100 leer und die Schleife läuft ins Leere.
Du musst den Inhalt (bzw die Objekte) der ersten Selektion zwischenspeichern (Array, Collection, ...)

Gruß
Bernd

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

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

---

Hallo Bernd,

auf das Value bin ich auch im nachhinein gekommen und stehe jetzt vor dem von dir beschriebenen Problem, was auch einleuchtend ist. Da ich noch keine Erfahrung mit array o. Collection habe, ist es glaube ich am einfachsten am Ende der Schleife die Selektion nochmal zu widerholen oder frisst das extrem viel Zeit?

Danke!

Gruß TImo

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

---

Servus

Zitat:

---

Da ich noch keine Erfahrung mit array ... habe

---

Dann wird es aber Zeit dich in die Grundlagen von VB bzw VBA einarbeiten.

Gruß
Bernd

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

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