kann mir vielleicht jemand sagen was man bei folgendem code hinzufügen muß damit der filter nicht immer bis ans ende (momentan Zeile 32050)filtert sondern nur bis zur letzten beschriebenen zeile?
Range("F20").Select
Range("F20:I32050").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("E20").Select
Danke