VBA Klasse für alle CheckBoxen
enrico
ich beschäftige mich seit einer Woche mit VBA.
Ich habe nun folgende Frage:
Wie kann ich für alle Checkboxen in einem Sheet den gleichen Code benutzen...
Am Beispiel:
Public Sub CheckBox_1_1_1_0_0_0_Click()
If CheckBox_1_1_1_0_0_0.Value = True Then
chkboxstatus = True
namechkbox = CheckBox_1_1_1_0_0_0.Name
Call Modul1.ZeileBestimmen1(namechkbox, chkboxstatus)
ElseIf CheckBox_1_1_1_0_0_0.Value = False Then
chkboxstatus = False
namechkbox = CheckBox_1_1_1_0_0_0.Name
Call Modul1.ZeileBestimmen1(namechkbox, chkboxstatus)
End If
End Sub
Jede Checkbox soll diesen Code bekommen, der sich lediglich in der Nummer abhängig vom Checkbox-Namen verändert...Mit einer Klasse müsste dies doch zu realisieren sein, oder!?
Ich habe aber leider gar keine VBA-Kenntnisse und konnte durch Eigenrecherche auch noch keine Lösung finden.
Für eure Hilfe sage ich schon mal DANKE! :-)
Gruß
Enrico