Rectangles löschen in Excel 2010

Forumthread: Rectangles löschen in Excel 2010

25.11.2014 12:08:42

Robinson

Hallo Experten, habe in Excel 2010 - Arbeitsblättern einzelne Zellen mit "Rechtecken", die noch aus Excel 2003 (vor der Konvertierung) stammen. Die Rechtecke haben sich auf wundersame Weise vermehrt, d.h. auf der jeweiligen Zelle liegen jetzt viele gleichartige Rechtecke übereinander (Rectangle xxx bis yyy). Wie kann ich diese (alle auf einmal) entfernen?
Mit Dank im voraus
Robinson

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rectangles löschen in Excel 2010

25.11.2014 12:23:57

Rudi
AW: Rectangles löschen in Excel 2010

26.11.2014 13:16:46

Robinson

AW: Rectangles löschen in Excel 2010

25.11.2014 12:23:57

Rudi

Hallo,

Sub aaa()
Dim shp As Shape
Application.ScreenUpdating = False
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShapeRectangle Then shp.Delete
Next
End Sub

Gruß
Rudi

AW: Rectangles löschen in Excel 2010

26.11.2014 13:16:46

Robinson

Perfekt! Vielen Dank und Gruß an Rudi. Robinson

Rectangles löschen in Excel 2010

Forumthread: Rectangles löschen in Excel 2010

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread