AutoFilter
11.03.2020 09:46:31
Torsten
folgende Aufgabe:
In einem Tabellenblatt sollen Autofilter mit bis zu 100 Kriterien gesetzt werden.
Mit VBA habe ich begonnen, jedoch scheitere ich im Aufbau des Arrays - es werden keine Kriterien übernommen.
Wie kann man das am einfachsten umsetzen?
Vielen Dank für Eure Mühe - dieses Forum ist klasse!
Grüße, Torsten
Blatt "Quelle" enthält die zu filternde Tabelle.
Blatt "Hilfe" enthält die Tabelle mit den Kriterien.
Sub Selektion_1()
Dim wert(100), kriterium As Integer
Dim ergebnis As String
Sheets("Hilfe").Select
'Field Spalte
kriterium = Cells(4, 2)
'Criteria1 Filter
wert(1) = Cells(5, 2)
wert(2) = Cells(6, 2)
'wird noch automatisch erweitert bis zum letzten Kriterium
'Criteria1:=Array
ergebnis = Chr(34) & wert(1) & Chr(34) & ", " & Chr(34) & wert(2) & Chr(34)
Sheets("Quelle").Select
ActiveSheet.Range("$A$1:$S$50000").AutoFilter Field:=kriterium, Criteria1:=Array( _
ergebnis), Operator:= _
xlFilterValues
End Sub