wenn ich z.B.: criteria1:=arr1(1,1) schreibe dann funktioniert es!
'test
UserForm1.Controls("CheckBox" & 4).Value = True
UserForm1.Controls("CheckBox" & 6).Value = True
a = 1
ReDim arr1(1, a)
For i = 1 To 13
Select Case UserForm1.Controls("CheckBox" & i).Value
Case Is = True
arr1(1, a) = arr(i - 1)
a = a - 1
Case Is = False
a = a
End Select
Next i
Range("B7:FV98").Autofilter Field:=3, Criteria1:=arr1, Operator:=xlFilterValues