Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen

VBA-Code "alle Checkboxen deaktivieren"

Betrifft: VBA-Code "alle Checkboxen deaktivieren" von: Wolfango
Geschrieben am: 19.08.2014 14:45:09

Hallo Experten,

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

  

Betrifft: AW: VBA-Code "alle Checkboxen deaktivieren" von: Rudi Maintaire
Geschrieben am: 19.08.2014 15:12:17

Hallo,

oCbx.Enabled = oCbx.ProgID <> "Forms.CheckBox.1"

Gruß
Rudi


  

Betrifft: AW: VBA-Code "alle Checkboxen deaktivieren" von: Wolfango
Geschrieben am: 19.08.2014 16:38:45

Vielen Dank, das passt!


 

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code "alle Checkboxen deaktivieren""