ActiveX-Checkbox-Name auslesen

Hallo zusammen,
habe in einem Tabellenblatt einige ActiveX-Checkboxen, die Daten-Gruppen für Diagramme ein- und ausblenden.
Jede neue Checkbox erhält immer wieder den selben Code, wobei sich eigentlich immer nur die 2 Variablen "CheckboxNumber" und "FirstColumnGroup" ändern:


Private Sub CheckBox1_Click()
Dim FirstColumnGroup As String, CheckboxNumber As Long
CheckboxNumber = 1
FirstColumnGroup = ActiveSheet.Range("NameDerErstenSpalteDerGruppe").Value
ToggleGroups CheckboxNumber, FirstColumnGroup
End Sub

Ich würde gerne wissen, wie man den Namen der Checkbox (CheckBox1) bzw. nur die eigentliche Ziffer auslesen kann OHNE jedes mal den Namen anzupassen?
CheckBox1.Name ist damit nicht gemeint, da ich hier jedes mal ebenfalls anpassen müsste....da ist die momentane Zuweisung weniger Aufwand.
Alle Varianten im Netz haben bei mir bis jetzt nicht funktioniert.
Bei "ActiveControl.Value" bzw. "ActiveControl.Object.Value" sagt er mir "Variable nicht definiert."
Aufgerufen wird dann der eigentliche "Toggle" mit folgendem Code:


Private Sub ToggleGroups(CheckboxNumber As Long, FirstColumnGroup As String)
Application.ExecuteExcel4Macro "SHOW.DETAIL(2," & FirstColumnGroup & "," & IIf(OLEObjects("CheckBox" & CheckboxNumber).Object.Value, "True", "False") & ")"
ActiveSheet.Range("A1").Select
End Sub

Ich würde ebenfalls gerne wissen, ob der obige "Toggle"-Code inkl. Checkbox-Subs irgendwie vereinfacht werden kann (z. B. in einer Case-Abfrage)?
Je mehr Checkboxen dazu kommen, umso mehr müssen die Subs kopiert und angepasst werden....der einzige eigentliche Mehrwert dabei ist ja nur jedes Mal der "NameDerGruppe".
Bin leider kein VBA-Experte...aber würde das nicht über eine Case-Schleife irgendwie funktioneren?
Sinnbildlich, wie folgt angedeutet:


"Auslesen des Namen der auslösenden Checkbox und extrahieren der Ziffer"
"Anhand der Ziffer Anwahl des nachfolgend definierten Case i"
For i = 1 to 100
Case 1
n = "NameDerErstenSpalteDerGruppe1"
Case 2
n = "NameDerErstenSpalteDerGruppe2"
Next
Application.ExecuteExcel4Macro "SHOW.DETAIL(2," & n & "," & IIf(OLEObjects("CheckBox" & i).Object.Value, "True", "False") & ")"
ActiveSheet.Range("A1").Select

Leider fehlen mir die Infos, wie das Ganze "in Realität" mit Verlinkung zu den Checkboxen eleganter umgesetzt werden müsste.
Über Hilfe wäre ich sehr dankbar.
Grüße
Mathias

Erstmal vielen Dank für die vielen Tipps / Hinweise!
@snb
- Man könnte die Checkboxen weglassen, müsste allerdings im VBA dann wieder die Zelle definieren, die mit dem Event überwacht werden soll, daher keine Vereinfachung?
- Bzgl. Datenbank: Prinzipiell sinnvoll, würde aber wohl einen größeren "Umbau" benötigen und dafür ist die Nutzungsdauer (wie lange diese Tabelle noch benötigt wird) wahrscheinlich zu gering.
@volti / Karl-Heinz
Vielen Dank für den Hinweis und die Dateien.
Habe mein "Konstrukt" nun darauf hin aufgebaut und folgenden Code im Modul selbst:


Option Explicit
Public WithEvents coCheckBox As MSForms.CheckBox
'Execute toggle check/unchecked Checkbox ------------
Private Sub ToggleGroups(CheckboxName As String, FirstColumnGroup As String)
Application.ExecuteExcel4Macro "SHOW.DETAIL(2," & FirstColumnGroup & "," & IIf(Sheets("sortBatch").OLEObjects(CheckboxName).Object.Value, "True", "False") & ")"
ActiveSheet.Range("A1").Select
End Sub
'Select toggle all Checkboxes ------------
Private Sub ToggleAll()
Dim i As Long
If Sheets("sortBatch").CheckBox0.Value = False Then
For i = 1 To 46                                 'adjust after adding a new CheckBox
Sheets("sortBatch").OLEObjects("CheckBox" & i).Object.Value = False
Next
ElseIf Sheets("sortBatch").CheckBox0.Value = True Then
For i = 1 To 46                                 'adjust after adding a new CheckBox
Sheets("sortBatch").OLEObjects("CheckBox" & i).Object.Value = True
Next
End If
End Sub
'Select what to toggle ------------
Private Sub coCheckBox_Click()
Dim FirstColumnGroup As String, CheckboxNumber As Long, CheckboxName As String
CheckboxNumber = Val(Replace(coCheckBox.Name, "CheckBox", ""))
CheckboxName = coCheckBox.Name
Select Case CheckboxNumber
Case 0
ToggleAll
Exit Sub
Case 1
FirstColumnGroup = ActiveSheet.Range("A").Value
Case 2
FirstColumnGroup = ActiveSheet.Range("B").Value
Case 3
FirstColumnGroup = ActiveSheet.Range("D").Value
Case 4
FirstColumnGroup = ActiveSheet.Range("E").Value
Case 5
FirstColumnGroup = ActiveSheet.Range("F").Value
End Select
ToggleGroups CheckboxName, FirstColumnGroup
End Sub

Das Einzige, was mir an dieser Lösung nur aufgefallen ist, dass nach dem ich den Rechner mit geöffneter Tabelle aus dem "Ruhemodus" zurückgeholt habe oder wenn teils Fehlermeldungen aufgetreten sind (beim Anpassen des VBA-Codes), ich das File schließen und neu öffnen musste, da wohl das Array (wieso auch immer) gelöscht wurde und die Checkboxen ohne Funktion waren.
Das ist natürlich "unglücklich", dass es nicht immer funktioniert bzw. zu "Störungen" kommen kann.
@Daniel
Habe mal testweise von ActiveX auf Formular-Checkboxen umgestellt und immer die gleiche Sub aufgerufen.
Bekomme auch mit Application.Caller die Info über Checkbox:


CheckboxNumber = Val(Replace(Application.Caller, "Kontrollkästchen ", ""))

Bin dann nur in ein anderes Problem gerannt. Dieses betraff die An-/Abwahl aller Checkboxen über das "Kontrollkästchen 1".
Hier fehlt mir dann die Info von "FirstColumnGroup", welche sich im Case 2 - X befinden...:


Option Explicit
'Toggle check/unchecked Checkbox ------------
Sub ToggleG()
Dim CheckboxNumber As Long, FirstColumnGroup As String, i As Long
CheckboxNumber = Val(Replace(Application.Caller, "Kontrollkästchen ", ""))
Select Case CheckboxNumber
Case 1  'Toggle all Checkboxes
If ActiveSheet.Shapes("Kontrollkästchen 1").OLEFormat.Object.Value > 0 Then
For i = 2 To 6
ActiveSheet.Shapes("Kontrollkästchen " & i).OLEFormat.Object.Value = True
Application.ExecuteExcel4Macro "SHOW.DETAIL(2," & FirstColumnGroup & "," & IIf(ActiveSheet.Shapes("Kontrollkästchen " & i).OLEFormat.Object.Value = xlOn, "True", "False") & ")"
Next
ActiveSheet.Range("A1").Select
Else
For i = 2 To 6
ActiveSheet.Shapes("Kontrollkästchen " & i).OLEFormat.Object.Value = False
Application.ExecuteExcel4Macro "SHOW.DETAIL(2," & FirstColumnGroup & "," & IIf(ActiveSheet.Shapes("Kontrollkästchen " & i).OLEFormat.Object.Value = xlOn, "True", "False") & ")"
Next
ActiveSheet.Range("A1").Select
End If
Exit Sub
Case 2
FirstColumnGroup = ActiveSheet.Range("A").Value
Case 3
FirstColumnGroup = ActiveSheet.Range("B").Value
Case 4
FirstColumnGroup = ActiveSheet.Range("D").Value
Case 5
FirstColumnGroup = ActiveSheet.Range("E").Value
Case 6
FirstColumnGroup = ActiveSheet.Range("F").Value
End Select
ToggleGroups CheckboxNumber, FirstColumnGroup
ActiveSheet.Range("A1").Select
End Sub
'Toggle check/unchecked Checkbox ------------
Private Sub ToggleGroups(CheckboxNumber As Long, FirstColumnGroup As String)
Application.ExecuteExcel4Macro "SHOW.DETAIL(2," & FirstColumnGroup & "," & IIf(ActiveSheet.Shapes("Kontrollkästchen " & CheckboxNumber).OLEFormat.Object.Value = xlOn, "True", "False") & ")"
End Sub

Ansonsten konnte ich mit dieser Lösung die "Nachteile" von der Klassenprogrammierung von Karl-Heinz vorgeschlagen nicht beobachten (s. o.).
Allerdings werden die einzelnen Cases nicht erneut im Loop angesprochen (da anderer Aufbau).

Forumthread: ActiveX-Checkbox-Name auslesen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

ActiveX-Checkbox-Namen in Excel auslesen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)