Gruppe
Dialog
Bereich
Tabellenblatt
Thema
Steuerelemente aus Tabellenblatt löschen
Problem
Es sollen Steuerelemente aus Tabellenblättern gelöscht werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn zwei Schaltflächen zu.
StandardModule: Modul1
Sub DeleteAll()
Worksheets("Tabelle2").OLEObjects.Delete
Worksheets("Tabelle2").Select
End Sub
Sub DeleteCBOs()
Dim oOle As OLEObject
For Each oOle In Worksheets("Tabelle3").OLEObjects
If TypeName(oOle.Object) = "ComboBox" Then
oOle.Delete
End If
Next oOle
Worksheets("Tabelle3").Select
End Sub