Private Sub loeschen()
Dim i As Integer
For i = 1 To ActiveSheet.Shapes.Count
Shapes(i).Delete
Next i
End Sub
Sub Loesche()
Dim bild As Shape
For Each bild In ThisWorkbook.Worksheets("Tabelle1").Shapes()
bild.Delete
Next bild
End Sub
Private Sub loeschen()
Dim i As Integer
On Error GoTo nochmal
nochmal:
For i = 1 To Shapes.Count
Shapes(i).Delete
GoTo nochmal
Next
End Sub
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