Gruppe
Dialog
Problem
Es sollen Steuerelemente aus Tabellenblättern gelöscht werden.
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