Elemente ausserhalb Kurve per VBA löschen

[Sfassbender]

Guten Morgen Koter,

an der Anzahl der Kurven liegt es offensichtlich nicht.
Wenn ich die Ellipsen neu erstelle, eine Kontur drüber zeichne und das Makro laufen lasse, funktioniert es.
Kopiere ich die Ellipsen aus einer anderen Datei und zeichen die Kontur (freihand) drüber, löscht er abwechselnd falsche Kurven. Hängt scheinbar auch davon ab, wohin ich die Kontur verschiebe.

Selbst wenn ich die Kontur aus einer anderen datei via copy paste über die erstellen Ellipsen einfüge gibts nur Gewurschtel.

Um das ganze noch verwirrender zu machen, hab ich Dir drei Bilder angehängt.
Bild 04 = Ausgangsposition
Bild 05 = Zoom mit F3 geändert - Makro laufen lassen
Bild 06 = Zoom mit F4 auf alle Elemente - Makro laufen lassen


Ich hatte gestern in einer andern Angelegenheit das Problem, das ein Makro, dass eine Range über die x- bzw. y-Koordinaten erstellt seltsame Ergebnisse lieferte. Hier hatte allerdings jemand den Ursprung des Lineals verstellt.

Jetzt frage ich mich, ob das in diesem Fall eine ähnliche Ursache haben könnte. Von wegen Ursprung der xy Koordinaten, Layer, ...

Hättest du dazu noch eine Idee?