UF mit Checkboxen
25.03.2008 13:24:00
Petra
ich habe eine UF mit 20 Checkboxen.
Für jede Checkbox habe ich immer den gleichen Code mit jeweils geringfügigen Änderungen (fett)
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("Liste").Cells(2, 1) = 1
Else
Sheets("Liste").Cells(2, 1) = ""
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Sheets("Liste").Cells(3, 1) = 2
Else
Sheets("Liste").Cells(3, 1) = ""
End If
End Sub
usw. wie bereits gesagt, für 20 Checkboxen,
meine Frage: geht das nicht kürzer zu programmieren?
Liebe Grüße Petra