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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen