Private Sub CommandButton7_Click()
With Worksheets("MSG-Boxes")
.CheckBox1.Value = False
.CheckBox2.Value = False
.CheckBox3.Value = False
.CheckBox4.Value = False
.CheckBox566.Value = False
End With
End Sub
Gruß Micha
Private Sub CommandButton7_Click()
With Worksheets("MSG-Boxes")
.CheckBox1.Value = False
.CheckBox2.Value = False
.CheckBox3.Value = False
.CheckBox4.Value = False
.CheckBox566.Value = False
End With
End Sub
Private Sub CommandButton1_Click()
For x = 1 To 566
ActiveSheet.OLEObjects("CheckBox" & CStr(x)).Object.Value = False
Next x
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen