Eine Sub für mehrere events?
13.02.2003 13:33:08
Tim
Ich habe ein UserForm mit 20 Checkboxen. Die Checkboxen Sollen bei jedem klick die Hintergrundfarbe ändern und wenn der Command Button geklickt wird, soll für jede aktivierte Checkbox ein Event ausgefürt werden.
Ist es nun möglich den umständlichen Code zu umgehen, der entsteht wenn ich für jede Checkbox eine _Click() Sub schreibe und für jede CheckBox prüfe, ob Sie aktiv ist oder nicht?
Ich denke da an irgendwas wie:
Sub [irgendeine Checkbox]_Click([Checkboxname])
[Checkboxname].Background = ...
End Sub
und für den CommandButton
For Each Checkbox in UserForm
if Checkbox.Value=True Then ...
...
...
Next
Hab schon ewig rum probiert, aber irgendwie klappt das nicht..
Gruß, Tim.