Checkboxes+Schleife+Fehler
SteffenS
Ich habe mir folgendes Makro gebastelt:
Sub checkboxes_value_vis()
Dim WS1 As Worksheet
Set WS1 = Workbooks("boncalcasw.xls").Sheets("boncalc_asw")
For i = 1 To WS1.CheckBoxes.Count
On Error Resume Next
If WS1.CheckBoxes("Box_" & i).Value = True Then
WS1.CheckBoxes("Box_" & i).Visible = False
End If
Next i
End Sub
Es sollen je nach Abfrage alle Checkboxen im aktuellen Blatt ausbgeblendet werden, nur leider passiert bei mir gar nichts!
Was mache ich falsch?
Danke Euch schonmal
Steffen Schmerler