VBA zusammenhängende Filter über mehrere Spalten
07.05.2018 15:38:55
MArc
wie schaffe ich es mittels VBA nach mehreren Spalten zu filtern ohne das die vorhergehende wieder vergessen wird? Ich möchte erst alles nach spalte D5 sortieren (Datum), in Spalte E5 soll dann alles nach Kunden sortiert werden und danach in spalte F5 nach deren Produkt. Aber irgendwie haut das mit meinem Code nicht hin es wird alles durcheinander geworfen. Wieso? Kann mir da wer weiterhelfen?
ActiveWorkbook.Worksheets("blatt1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("blatt1").AutoFilter.Sort.SortFields.Add _
Key:=Range("D5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
ActiveWorkbook.Worksheets("blatt1").AutoFilter.Sort.SortFields.Add _
Key:=Range("E5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
ActiveWorkbook.Worksheets("blatt1").AutoFilter.Sort.SortFields.Add _
Key:=Range("F5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
ActiveWorkbook.Worksheets("blatt1").AutoFilter.Sort.SortFields.Add _
Key:=Range("G5"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("blatt1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply