Spezialfilter/Autofilter
06.07.2018 15:33:22
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. Der unten zitierte Code löscht letzendlich alle Spalten, warum verstehe ich nicht. Code siehe im VBA-Bereich der Datei.
Vielen Dank im Voraus und viele Grüße
Sandro
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Columns("C:EZ").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$10918").AutoFilter Field:=1, Criteria1:=Array("mat9", "cat9", " _
_
usb9", "lwl9"), Operator:=xlFilterValues
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A43:B10909")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
https://www.herber.de/bbs/user/122513.xlsm