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
Anzeige