Gruppierte CheckBoxen deaktivieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub GruppeÄndern() Call grpCbx("Gruppe1", False) End Sub Sub grpCbx(tGrpName As String, Optional bState As Boolean = False) Dim ctrl As Object For Each ctrl In ActiveSheet.OLEObjects If ctrl.OLEType = 2 Then If ctrl.Object.GroupName = tGrpName Then ctrl.Object.Value = bState End If Next ctrl End Sub

Vielen Dank Renée,
leider funktioniert das nicht bei mir. Der Code läuft sauber durch, die Checkboxes werden allerdings nicht deaktiviert. Ich habe den Code wie folgt umgestellt und angepasst:


Private Sub loeschPro()
Dim ws1 As Worksheet
Dim ctrl As Object
Set ws1 = Sheets("Protokoll")
tGrpName = "Tabelle1"
bState = False
ws1.Activate
''Kopfdaten zurücksetzen
ws1.Cells(1, 8).Value = ""
ws1.Cells(2, 6).Value = ""
ws1.Cells(3, 6).Value = ""
ws1.Cells(3, 12).Value = ""
''Checkboxen deaktivieren
For Each ctrl In ws1.OLEObjects
If ctrl.OLEType = 2 Then
If ctrl.Object.GroupName = tGrpName Then ctrl.Object.Value = bState
End If
Next ctrl
''Seriennummern-Eintrag zurücksetzen
For x = 23 To 41
ws1.Cells(x, 21).Value = ""
Next x
End Sub

Wenn ich mir das Schrittweise im Debugger anschaue, dann findet er keine OLEObjetcts!
In den Eigenschaften wird für CheckBox6 allerdings der GroupName "Tabelle1" angezeigt. In Excel selbst wird das ganze "Gruppe 1" genannt (habe ich allerdings auch schon ausprobiert) und in der Eingabezeile von Excel steht "=EINBETTEN("Forms.CheckBox.1";"")"
Stehe momentan gerade hart auf'm Schlauch...
Danke schon mal im Voraus...
lg
Haegarle

Hallo Renée,
ich habe die Checkboxes nochmal angeschaut und bei GroupName war hier "Tabelle1" eingetragen.
Die Zeichnungsobjekte wurden bei der Erstellung gruppiert, nicht die Checkboxes selbst (wußte nicht dass das einen Unterschied macht, sorry).
Ich habe nochmal die Gruppierung aufgehoben, die Checkboxes dann im Eigenschaftenfenster gruppiert um dann zu sehen, ob das Script so durchläuft. Leider bekomme ich dann Fehler 438 (Objekt unterstützt Methode oder Eigenschaft nicht".
Wenn ich dann wieder die Checkboxes und ein Label zusammen gruppiere, erkennt VBA keine OLEObjects mehr...
Durch das neue Gruppieren der Checkboxes kann ich nun allerdings wieder direkt auf die Kameraden zugreifen z.B. mit CheckBox1.value=false.
Hab' hier den Sachverhalt noch nicht so ganz durchblickt. Hast Du oder jemand anderes eine Idee, wo ich da anfangen sollte mit dem Nachlesen und Nachvollziehen?
Danke schon mal... bin jetzt ein Stück weiter... :)

Sub grpCbx(tGrpName As String, Optional bState As Boolean = False) Dim ctrl As Object For Each ctrl In ActiveSheet.OLEObjects If Left(ctrl.Name, 8) = "CheckBox" Then If ctrl.Object.GroupName = tGrpName Then ctrl.Object.Value = bState End If Next ctrl End Sub

Beliebteste Forumthreads (12 Monate)

Gruppierte CheckBoxen deaktivieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gruppierte CheckBoxen deaktivieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread