Excel Spezialfilter
06.07.2018 13:49:47
Sandro
mit dem Makrorecorder habe ich die unten stehenden Vorgänge aufgezeichnet. Allerdings möchte ich nach mehr als nur den 2 Kriterien "mat9" und "cat9" suchen sondern möchte insgesamt 4 Kriterien ("mat9", "cat9", "usb9", "lwl9") nutzen (was der einfache Autofilter ja nicht beherrscht). Ich habe gelesen, dass ich das mit einem Array lösen kann, allerdings bin ich mit Arrays sehr unbeholfen und weiß nicht so recht wo ich den in diesem Code dann einbauen sollte.
Vielen Dank im Voraus und viele Grüße
Sandro
' Autofilter Makro
Columns("C:F").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Cut
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Selection.AutoFilter
ActiveSheet.Range("$B$1:$B$10918").AutoFilter Field:=1, Criteria1:= _
"=*mat9*", Operator:=xlOr, Criteria2:="=*cat9*"
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A43:DF10909")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Anzeige