Makro auf viele Checkboxen anwenden
20.10.2014 13:58:34
Björn
ich habe Checkboxen, die sich je nach Status verfärben.
Private Sub checkbox1_click()
If CheckBox1.Value = True Then
CheckBox1.BackColor = RGB(0, 255, 0)
Else: CheckBox1.BackColor = RGB(255, 0, 0)
End If
End Sub
Jetzt ist das aber ziemlich zeitaufwändig, um das für viele Checkboxen zu machen. Ich habe was von "zu Klassen zusammenfassen" gelesen, habe es bis jetzt jedoch nicht hinbekommen. Geht das vielleicht auch anders? Das ich vielleicht das gleiche, für eine zweite Checkbox mache und diesen Vorgang sozusagen auf alle folgenden automatisch übertrage? Das sich das Schema sozusagen gemerkt wird?
https://www.herber.de/bbs/user/93246.xlsm
Grüße,
Björn
Anzeige