Zwei Makros werden bei diesen zwei Checkboxen ausgeführt.
'Macro 1
Private Sub CheckBox18_Click()
Dim MyIndex As String
MyIndex = "E32"
If NoEvents = False Then
Call SetFilterFunction(MyIndex, CheckBox18.Value)
End If
End Sub
'Macro 2
Private Sub CheckBox19_Click()
Dim MyIndex As String
MyIndex = "E33"
If NoEvents = False Then
Call SetFilterFunction(MyIndex, CheckBox19.Value)
End If
End Sub
Da werden für mich zwei Filterbereiche bzw. Arrays ("E32", "E33") angesteuert, die ich nach und nach austauschen oder erweitern möchte. Ich finde allerdings die Inhalte des Arrays selber nicht und bin etwas am verzweifeln. Die Checkliste19 soll sich um "E32" erweitern.