Für die Hilfe danke ich jetzt schon im Voraus.
Folgenden Code habe ich erstellt:
Sub löschen()
' löschen Button wenn ein x beliebigen Wert in Zelle D6 eingeben wird
Range("D6").Select
ActiveCell.FormulaR1C1 = "6500003"
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Range("D6").Select
End Sub
Freundliche GrüsseRené Hürzeler