ALso habe nochmal getestet. Falls kein Wert in E1 stand, kam hier auch der Fehler. Habe das mal noch behoben. Wenn in E1 nix steht, kommt kein Filter.
Sub Autofilter2()
Dim suche
suche = Split(Worksheets(1).Cells(1, 5), ";")
If UBound(suche) = -1 Then End
If UBound(suche) = 0 Then
Worksheets(1).Range("C:G").AutoFilter Field:=3, Criteria1:="=*" & Worksheets(1).Cells(1, 5) & "*"
Else
Worksheets(1).Range("C:G").AutoFilter Field:=3, Criteria1:="=*" & suche(0) & "*", Operator:=xlOr, Criteria2:="=*" & suche(1) & "*"
End If
End Sub
|