Office: Alle Shapes löschen, bis auf...

Hallo.
Ich würde gerne in meinem Arbeitsblatt alle Shapes löschen, bis auf 5 bestimmte, denen ich ein Makro zugewiesen habe.

Das sind:

Rectangle 1
Rectangle 7
Rectangle 9
Rectangle 10
Rectangle 11

Leider hat der nachfolgende Code noch nicht so funktioniert.

Code:

Hättet ihr einen Lösungsvorschlag für mich?

:)

 

Hallo,

Dein "not" bezieht sich nur auf den ersten Vergleich.

Was hältst Du davon, den Formen einfach einen anderen, sinnvolleren Namen zu geben, z. B. "nichtlöschen001" bis "nichtlöschen00x", dann kannst Du mit Like "nichtlöschen*" einfach prüfen.

Grüße
EarlFred

 

...oder statt eines ewigen Not Like eine Select Case Anweisung einbauen...

Code:

Außerdem ist das And verkehrt. Das muss ein Or sein, denn kein Rectangle heißt Rectangle 1 UND Rectangle 2 UND ....

 

Mit not nicht, nur umständlich. *wink.gif*

 

...da haben wir wieder das Problem.... er hat ja nur ein Not....*wink.gif*