ich möchte aus allen Blättern (ca. 150 Stk.) in Zelle H44 den kompletten Inhalt (Grafik 53/Gerader Verbinder 54) löschen.
Danke für Eure Unterstützung vorab.
Code:Sub Test() Dim oObj As Object, WSh As Worksheet For Each WSh In ThisWorkbook.Worksheets For Each oObj In WSh.Shapes With WSh.Range("H44") If oObj.Top >= .Top And oObj.Top < (.Top + .Height) And _ oObj.Left >= .Left And oObj.Left < (.Left + .Width) Then oObj.Delete End If End With Next oObj Next WSh End Sub
Option Explicit
Sub GrafikenLoeschen()
Dim lWksCount&
For lWksCount = 1 To Sheets.Count
With Sheets(lWksCount)
.Shapes.Range(Array("Grafik 53")).Delete
.Shapes.Range(Array("Gerader Verbinder 54")).Delete
End With
Next lWksCount
End Sub
Servus