Hallo! ALso wenn es "nur" zwei Werte sind, dann so. wie unten. Die Namen bzw. Passagen dabei bitte mit ; (semikolon, Punkt Strich) trennen. Schönen Abend noch.
Sub Autofilter2()
Dim suche
suche = Split(Worksheets(2).Cells(1, 5), ";")
If UBound(suche) = 0 Then
Worksheets(2).Range("C:G").AutoFilter Field:=3, Criteria1:="=*" & Worksheets(2).Cells(1, 5) & "*"
Else
Worksheets(2).Range("C:G").AutoFilter Field:=3, Criteria1:="=*" & suche(0) & "*", Operator:=xlOr, Criteria2:="=*" & suche(1) & "*"
End If
End Sub
|