Hallo,
wenn ich per VBA in einer Liste etwas filtern muss, muss ich sie vorher immer erstmal sauber stellen, sonst laufe ich Gefahr, dass eine andere Spalte noch gefiltert ist:
    ActiveSheet.ShowAllData

Problem ist, wenn die Filterfunktion zwar aktiv ist aber nichts gefiltert wird, kommt es zu einem Fehler Den umgehe ich zzt. indem ich vorher einen beliebigen Wert Filter, dann den o.g. Befehl und dann richtig filter.

   ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=4, Criteria1:=KD
    ActiveSheet.ShowAllData
    ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=4, Criteria1:=KD

Problem ist nur, dass es sehr große Datenmengen sind und dies natürlich nicht performant ist.

Habt ihr einen besseren Weg?

Danke!

.