wieder einmal ein Problem bei dem ihr mir vielleicht helfen könnt.
Ich habe ein Blatt mit mehreren CommandButtons am oberen Rand. Ab Zeile 14 werden in der Spalte G bis L über ein Makro bis weit über 2000 OptionButtons erstellt.
Über ein Weiteres Makro möchte ich nun gerne das Blatt "reseten" und die OptionButton löschen. Habe es zunächst über:
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.OptionButton.1" Then
obj.Delete
End If
Next obj
probiert, doch das dauert viel zu lange, oft reagiert excel danach auch nicht mehr.
Jetzt hab ich eine neue Lösung gefunden:
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes
If Not Application.Intersect(myShape.OLEFormat.Object.TopLeftCell, _
Range("G14:L65500")) Is Nothing Then myShape.Delete
Next
Hier bekomme ich allerdings immer die Fehlermeldung:
"Die TopLeftCell-Eigenschaft des Dropdown-Objektes kann nicht zugeordnet werden"
Weiß jemand vielleicht, was ich falsch mache, oder kennt jemand eine andere, schnelle Variante zum OptionButton löschen?
Gruß
Uli