ich versuche mich nun schon seit Stunden an einem Code aus dem Forum, komme aber nicht weiter und hoffe auf eure Hilfe.
Folgender Code aus dem Forum:
Sub Bild1_löschen()
Dim shShape As Shapes
Dim inShape As Integer
If Sheets("DVD Cover").Shapes.Count > 0 Then
For inShape = 1 To Sheets("DVD Cover").Shapes.Count
With Sheets("DVD Cover").Shapes(inShape)
If .Top > Range("C3").Top And .Top Range("C3").Left And .Left
Dieser Code löscht allerdings alle Objekte, auch die CommandButton in dem Bereich.Ich möchte allerdings, dass nur die Bilder im Bereich gelöscht werden.
Gruß DirkR