Office: Shapes mit Anfangsnamen "Rechteck" löschen

4feetsmaller · 13. August 2016

Hallo zusammen,

ich weiß aktuell nicht mehr weiter und wende mich daher an euch.

Ich benötige ein Makro, was alle Shapes mit den Anfangsbuchstaben "Rechteck" entfernt. Also egal welche Zahl Excel dem Rechteck gibt, alle sollen entfernt werden. Irgendwie komm ich aber mit dem Leerzeichen zwischen Rechteck und der Zahl nicht klar. Mein Code sieht wie folgt aus:

Code:

Sub Alle_loeschen()

Dim shpShape As Shape
Dim shWorksheet As Worksheet

For Each shWorksheet In ActiveWorkbook.Worksheets
For Each shpShape In ActiveSheet.Shapes
If shpShape.name Like "Rechteck*" Then
shpShape.Delete

End If
Next
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Geht aber nicht, da das Leerzeichen wahrscheinlich falsch ausgelesen wird.

Wie könnte der Code korrekt aussehen?

Vielen Dank für eure Hilfe,

Danny.

:)

R J · 14. August 2016

Hi Danny,

Code:

if instr(1,shpShape.name,"Rechteck") > 0 Then shpShape.Delete
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xlph · 14. August 2016

Code:

Sub Alle_loeschen()

Dim shpShape As Shape
Dim shWorksheet As Worksheet

For Each shWorksheet In ActiveWorkbook.Worksheets
For Each shpShape In shWorksheet.Shapes
If shpShape.name Like "Rectangle*" Then
shpShape.Delete

End If
Next
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V) · 14. August 2016

Oder:
Code:

If shpShape.AutoShapeType = msoShapeRectangle Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

4feetsmaller · 15. August 2016

WOW!

Vielen Dank für eure zahlreichen Hilfestellungen. War war viel hilfreiches dabei!

*Smilie

Office: Shapes mit Anfangsnamen "Rechteck" löschen

Shapes mit Anfangsnamen "Rechteck" löschen

Shapes mit Anfangsnamen "Rechteck" löschen

Shapes mit Anfangsnamen "Rechteck" löschen

Shapes mit Anfangsnamen "Rechteck" löschen - Similar Threads - Shapes Anfangsnamen Rechteck

Shapes löschen

VBA Shapes Type ändern/zuweisen

Shapes aus bestimmten Bereich löschen

Replace a shape in a SmartArt graphic

Userform shapes ansprechen

Alle Shapes löschen, bis auf...

alle Shapes entfernen