1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Option Explicit
Dim oList As ListObject
Sub Main()
Set oList = ThisWorkbook.Worksheets("db").ListObjects("Liste1")
Exemple1
Exemple2
End Sub
Sub Exemple1()
With oList.Range
.AutoFilter Field:=10, Criteria1:=Array("BMW", "VW", "Mercedes"), Operator:=xlFilterValues
End With
End Sub
Sub Exemple2()
Dim myList() As String, rng As Range, count As Integer
For Each rng In Range("tblFilter")
ReDim Preserve myList(count): myList(count) = rng: count = count + 1
Next
With oList.Range
.AutoFilter Field:=10, Criteria1:=myList, Operator:=xlFilterValues
End With
End Sub |