VBA-Code "alle Checkboxen deaktivieren"
19.08.2014 14:45:09
Wolfango
nachstehendes Makro macht leider nicht ganz was es soll.
Beim Setzen des Häkchens in "Checkbox 15" sollen einige Zellen entsperrt werden.
Das funktioniert auch.
Gleichzeitig sollen alle sämtliche anderen Checkboxen inaktiv werden (so dass dort keine Häkchen mehr gesetzt werden können).
Und das funktioniert leider nicht :-(
(...habe mir den Code aus Recorder und Minimalwissen zusammengestrickt....und ich hatte es auch mal so, dass alle anderen Checkboxen inaktiv waren....bekomme es aber nun nicht mehr hin...)
Ich gehe davon aus, dass die letzten drei Zeilen meinen Wunsch erfüllen sollten....tun sie aber leider nicht...
Danke und Gruß,
Wo
Hier der Code:
Private Sub CheckBox15_Click()
ActiveSheet.Unprotect "xxx"
ActiveWindow.SmallScroll Down:=12
Range("E27:F50").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=-3
Range("D23:F24").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True
ActiveSheet.Protect "xxx"
Dim oCbx As OLEObject
For Each oCbx In Sheets(1).OLEObjects
oCbx.Enabled = TypeName(oCbx) = "Checkbox"
Next
End Sub
Anzeige