von bis = true
13.11.2003 19:30:36
steffen
Code:
*******************
....
CheckBox7 = True
CheckBox8 = True
CheckBox9 = True
CheckBox10 = True
CheckBox11 = True
CheckBox12 = True
CheckBox13 = True
....
********************
Wie kann ich den Efizienter schreiben?
zB CheckBox1 "bis" 100 = True
das gleiche gilt hierbei:
**************************************
...
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
Range("R17").Select
ActiveCell.FormulaR1C1 = "1"
Else
Range("R17").ClearContents
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 = True Then
Range("R18").Select
ActiveCell.FormulaR1C1 = "1"
Else
Range("R18").ClearContents
End If
End Sub
...
**************************
Das würde mit extrem viel Zeit ersparen wenn mir da einer helfen könnte
Besten besten dank
Mfg Steffen D.
Anzeige