Office: im Tabellenblatt alle Checkboxen im Value auf False setzen

Guten morgen werte Excelianer,

ich möchte in einem Tabellenblatt alle Checkboxen (ActiveX-Steuerelemente) aus meinem VB-Code heraus (Button auf Userform) auf False setzen.

Mein Ansatz war:

Private Sub Reset_Click()
Dim ctL As Control
For Each ctL In Worksheets("FWU").Controls
If TypeName(ctL) = "CheckBox" Then ctL = False
Next

aber das funzt nicht ... hab die Routine für alle einzelnen (with ..) zwar fertig, aber das ist lang und unschön. Geht das nicht auch eleganter?

das wäre sonst die Alternative..

With Worksheets("FWU")
.kat1.Value = False
.kat2.Value = False
.typ1.Value = False
.typ2.Value = False
.typ3.Value = False
.typ4.Value = False
.typ5.Value = False
.erg1.Value = False
.erg2.Value = False
.erg3.Value = False
.erg4.Value = False
.ers1.Value = False
.ers2.Value = False
.ers3.Value = False
.ers4.Value = False
.ers5.Value = False
.ers6.Value = False
.ers7.Value = False
.ers8.Value = False
.ers9.Value = False
.ers10.Value = False
.auss1.Value = False
.auss2.Value = False
.auss3.Value = False
.en1.Value = False
.en2.Value = False
.nw1.Value = False
.nw2.Value = False
.nw3.Value = False
.nw4.Value = False
.a1j.Value = False
.a2j.Value = False
.a3j.Value = False
.a4j.Value = False
.a5j.Value = False
.a1n.Value = False
.a2n.Value = False
.a3n.Value = False
.a4n.Value = False
.a5n.Value = False
.anbn.Value = False
.anbn1.Value = False
.anbn2.Value = False
.anbj.Value = False
.vern.Value = False
.verj1.Value = False
.verj2.Value = False
.mitnun.Value = False
.mitnuj.Value = False
.mitbj.Value = False
.mitbn.Value = False
.gern.Value = False
.gerj.Value = False
.germj.Value = False
.germn.Value = False
.gkdg1.Value = False
.gkdg2.Value = False
.gkdg3.Value = False
.netto.Value = False
.brutto.Value = False
End With

:)

 

Hi,

siehe

http://www.ms-office-forum.net/forum...54&postcount=6

 

Hallo Chris,

KLASSE, ein Traum! Vielen Dank. Da wäre ich so nie drauf gekommen!

Viele Grüße
Lars