Trick bei vielen CheckBoxen ?
04.03.2004 10:45:17
Steve
ich habe folgendes Makro:
Private Sub CheckBox1_Click()
With Sheets("Berechnungen").Range("B2")
If CheckBox1.Value = True Then
.Value = 1
Else
.Value = ""
End If
End With
End Sub
Wenn ich nun nicht eine sondern ca. 100 solcher Checkboxen habe, gibt es einen Trick, mit dem ich im Editor nicht jedes einzelne Makro manuell ändern muß ?
(Also aus "B2" im nächsten Makro "B3" machen usw..)
Vielen Dank schonmal
Steve
Anzeige