Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA-Code "alle Checkboxen deaktivieren"
19.08.2014 14:45:09
Wolfango
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code "alle Checkboxen deaktivieren"
19.08.2014 15:12:17
Rudi
Hallo,
oCbx.Enabled = oCbx.ProgID "Forms.CheckBox.1"
Gruß
Rudi

AW: VBA-Code "alle Checkboxen deaktivieren"
19.08.2014 16:38:45
Wolfango
Vielen Dank, das passt!
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige