wäre nett wenn ihr mir helfen könntet.
Ist es möglich alle Grafiken, wie zum Beispiel Autoformen, aus einem vorgegebenen Bereich zu löschen?
Dankeschön schon im Vorraus
Matthias
Sub loeschen()
Dim shShape As Shapes
Dim inShape As Integer
For inShape = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(inShape).Top > Range("B2").Top And ActiveSheet.Shapes(inShape). _
Top Range("B2").Left _
And ActiveSheet.Shapes(inShape).Left
Bis später,
Karin