Office: Shapes aus bestimmten Bereich löschen

Hallo zusammen,

ich brauche etwas Hilfe *Smilie

Ich habe ein kleines Makro, welches mir zuvor kopierte Zellen samt Textinhalt, Rahmen und Shapes (kleine Punkte) mit Klick auf einen Button aus einem bestimmten Bereich löschen soll.

Es klappt auch fast, es wird alles gelöscht außer die Shapes *frown.gif*

Könnte sich jemand bitte den Code ansehen und mir evtl. helfen?


Private Sub DeleteAll_Click()

Dim shp As Shape

Worksheets("Tabelle1").Range("S1:V100").Clear
Worksheets("Tabelle1").Range("S1:V100").Shapes
shp.Delete

End Sub


Lieben dank im Voraus und viele Grüße,
JaneWho

:)

 

Hi,

vielleicht so:

Code: