Alle CheckBox Objekte in Tabellenblatt löschen
27.01.2003 22:41:17
Michael
Private Sub CommandButton6_Click()
Set Mappe = Workbooks("Lager.xls")
Set STABI = Mappe.Worksheets("Stabilisatoren")
Dim i As Integer
For i = 1 To STABI.OLEObjects.Count
If Mid((STABI.OLEObjects(i).Name), 1, 8) = "CheckBox" Then
OLEObjects(i).Select
Selection.Delete
End If
Next i
End Sub
Danke für eure Hilfe