Alle Checkboxen in Tabelle abwählen
01.02.2008 11:59:11
Mirco
ich habe ein Problem, dass ich nicht lösen kann. Ich habe eine sehr große Exceltabelle mit über 40 Checkboxen. Es kommen permanent immer wieder welche hinzu. Nun möchte ich via Button alle Checkboxen auf einmal abwählen. Der Code, den ich mir überlegt hat sieht so aus:
Private Sub CommandButton1_Click()
Dim mycntrl As OLEObject
Dim sht As Worksheet
Set sht = ActiveSheet
For Each mycntrl In sht.OLEObjects
If TypeOf mycntrl Is CheckBox Then
mycntrl.Value = 0
End If
Next mycntrl
End Sub
Er funktioniert aber nicht, ich weiß nicht warum. Jemand, der mir helfen kann?
Anzeige