Hi,

hat jm eine Lösung wie man die "*" bei >2 reinbekommt? Also: "*" & ARR & "*"  funktioniert nicht.

If UBound(ARR) = 1 Then
    Dim s As String
    va = xlAnd: s = ARR(1)
    Workbooks("Laufende Aufträge.xlsm").Worksheets("Laufende Aufträge").Range("A1:Q1").AutoFilter _
        Field:=5, Criteria1:="*" & s & "*", Operator:=va
        
ElseIf UBound(ARR) = 2 Then
    va = xlOr
    Workbooks("Laufende Aufträge.xlsm").Worksheets("Laufende Aufträge").Range("A1:Q1").AutoFilter _
        Field:=5, Criteria1:="*" & ARR(1) & "*", Operator:=va, Criteria2:="*" & ARR(2) & "*"
        

ElseIf UBound(ARR) > 2 Then
    va = xlFilterValues
    Workbooks("Laufende Aufträge.xlsm").Worksheets("Laufende Aufträge").Range("A1:Q1").AutoFilter _
        Field:=5, Criteria1:= ARR, Operator:=va