Hallo,
stimmt, da ist noch ein Fehler im Makro (hatte nicht nur mit einem Wert getestet
):
lösche im Code bei
Select Case arrFilter(f, 1)
Case Is = 1
.UsedRange.Autofilter Field:=f, Criteria1:=arrFilter(f, 3) , Operator:=arrFilter(f, 2)
und
Select Case arrFilter(f, 1)
Case Is = 1
.ListObjects(1).Range.Autofilter Field:=f, Criteria1:=arrFilter(f, 3), Operator:=arrFilter(f, 2)
jeweils den Teil , Operator:=arrFilter(f, 2) so dass der Codeteil dann so aussieht:
Case Is = 1
.UsedRange.Autofilter Field:=f, Criteria1:=arrFilter(f, 3)
bzw.
Case Is = 1
.ListObjects(1).Range.Autofilter Field:=f, Criteria1:=arrFilter(f, 3)
Gruß
M.O.