|
Hallo.
Ich möchte nochmal den Beitrag neu eröffnen, da mein Problem noch nicht gelöst wurde. Ich bin immer noch auf der Suche, wie ich Change-Events bzw subs von checkboxen zusammen fassen kann.
Folgende Möglichkeit hat nicht funktioniert. Hier ist ja ebenfalls der Fall das ich den Code in jedes Change-Event kopieren muss. Das möchte ich mir ja grade sparen.
Sub OptionButtons_Abfragen(ByVal strName As String)
Dim ObjBox As OLEObject
Set ObjBox = ActiveSheet.OLEObjects(strName).Object
MsgBox ObjBox.Name & " wurde Betätigt!"
Set ObjBox = Nothing
End Sub
Private Sub CheckBox1_Change()
Call OptionButtons_Abfragen("CheckBox1")
End Sub
Ich möchte im Prinzip einen Code haben, mit einer Schleife, der alle Change-Subs zusammenfasst:
For i = 0 to 100
Sub ("checkbox" & i )_change
...code
End sub
Dieser Code funkioniert natürlich nicht :D ...
Hinzuweisen ist noch, dass ich Active-Steuerelemente habe..
|