das klngt doch sehr nach einer Anwendung für den Autofilter. Hier ein Beispiel für die 1.
Private Sub CheckBox1_Click()
With ActiveSheet.Range("A1").CurrentRegion
If CheckBox1 Then
.AutoFilter Field:=1
.AutoFilter Field:=1, Criteria1:="=1", Operator:=xlAnd
Else
.AutoFilter Field:=1
End If
End With
End Sub
|