variabele filters via userform

[sjonnie1974]

Hallo,

Een voorbeeld bijgevoegd

Wens:
Ik heb een userform waarop ik een aantal stellingnummers kan aanklikken.
na gelang welke stellingen dit zijn, komt er een filter op mijn lijstje.
het kan zijn dat ik stelling 1 aanklik
het kan zijn dat ik stelling 1 en 2 aanklik
het kan zijn dat ik stelling 2 en 3 aanklik
enz. enz.

Het lukt mij niet een variabele filter te maken via vba.

 

[HSV]

Een mogelijkheid.

Private Sub CommandButton1_Click()
For i = 1 To 3
    With Me("checkbox" & i)
      If .Value Then
         .Tag = i
            y = y + 1
       Else
         .Tag = " "
     End If
    End With
 Next
With Sheets("sheet1")
    If .AutoFilterMode Then .Range("A1").AutoFilter
      If y > 0 Then
         .Range("A1").CurrentRegion.AutoFilter 1, Array( _
        CheckBox1.Tag, CheckBox2.Tag, CheckBox3.Tag), 7
        End If
  End With
End Sub

 

[sjonnie1974]

Hoi,

Ziet er ingewikkeld uit en das juist het problem, ik wil hem zelf kunnen bewerken, want ik heb 40 stelling nummers