Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und Tabellenblatt