CheckBoxen
21.10.2007 19:05:00
Ernst
Kann mir jemand behilflich sein und den untenstehenden Code vereinfachen.
mfg
Ernst Dunkel
Sub cbDeaktivieren()
Sheets("U-Werte").CheckBox1.Value = False
Sheets("U-Werte").CheckBox2.Value = False
Sheets("U-Werte").CheckBox3.Value = False
Sheets("U-Werte").CheckBox4.Value = False
Sheets("U-Werte").CheckBox5.Value = False
Sheets("U-Werte").CheckBox6.Value = False
Sheets("U-Werte").CheckBox7.Value = False
Sheets("U-Werte").CheckBox8.Value = False
End Sub