Office: (Office 365) Shapes löschen

Hallo ihr wissende!!
Ich brauche schon wieder eure Hilfe.

Wie kann ich ein shape mit einem Button löschen? Der Button ist in der Tabelle positioniert.
Diesen Code habe ich bereits drinnen aber es kommt immer die Fehlermeldung: Anwendungs oder Objektdef. Fehler beim Schritt -->shapes(selection.Name)

Private Sub btnAuswahl_loeschen_Click()

'<<<ausgewählte Shapes löschen>>>
ThisWorkbook.Sheets("Planung").Unprotect
With ActiveSheet
.Shapes (Selection.Name)
Selection.Delete
End With
ThisWorkbook.Sheets("Planung").Protect

End Sub


Danke im Voraus

 

Moin!
Sobald Du den Button betätigst, hat er den Fokus.
(schließlich ist Dein Formularsteuerelement auch ein shape!)
Nimm einen ActiveX-Button und weise ihm die TakeFocusOnClick-Eigenschaft False zu.
Deinen Code trägst Du ins Ereignismakro des Buttons in der Tabelle ein:

Code:

Private Sub CommandButton1_Click()
On Error GoTo Mistake
Shapes(Selection.Name).Delete
Exit Sub
Mistake:
MsgBox "Es wurde kein Shape, sondern ein " & TypeName(Selection) & " ausgewählt!"
End Sub

(den Sinn des Ganzen hinterfrage ich besser nicht)

Gruß Ralf

 

Hallo RPP63
1000 Dank es funktioniert perfekt. :)