Hallo Excel Freunde,
ich kann mit Hilfen von diesem Makro eine Spalte nach mehreren Kriterien Filtern (Beispiel: ew; fr ). Mich stört nur ein wenig das ich diese Kriterien immer in ein extra Tabellenblatt speichern muss.
Ist es Möglich das diese Kriterien:
arrCriteria(0) = Tabelle2.Range("a2") '"a"
arrCriteria(1) = Tabelle2.Range("a3")
'arrCriteria(2) = Tabelle2.Range("a4")
arrCriteria(4) = Tabelle2.Range("a5")
'arrCriteria(5) = Tabelle2.Range("a6")
in einer Variabel zwischengespeichert werden?
'Sub AutoFilter_mehrere_Kriterien()
'** Autofilter mit mehreren Kriterien
'** in Spalte B setzen
'https://www.excel-inside.de/beispiele_vba/vba-zellen-bereiche/926-autofilter-mit-mehreren-kriterien
'** Dimensionierung der Variablen
Dim rngFilterRange As Range
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
Dim z() As String
z = Split(Tabelle2.Cells(1, 1).Value, "; ") 'spaltet dein Wert in A1 nach ; auf
Tabelle2.Cells(2, 1).Resize(3) = WorksheetFunction.Transpose(z)
'** Anzahl der Kriterien festlegen
lngCriteriaCount = 5
'** Variable neu dimensionieren
ReDim arrCriteria(0 To lngCriteriaCount - 1)
'** Filterkriterien festlegen
arrCriteria(0) = Tabelle2.Range("a2") '"a"
arrCriteria(1) = Tabelle2.Range("a3")
'arrCriteria(2) = Tabelle2.Range("a4")
arrCriteria(4) = Tabelle2.Range("a5")
'arrCriteria(5) = Tabelle2.Range("a6")
'** Objektvariable setzen
'Set rngFilterRange = ActiveSheet.Range("D4:E23")
Set rngFilterRange = ActiveSheet.Range("d4:E23")
'** Autofilter setzen/ausführen
rngFilterRange.AutoFilter Field:=5, _
Criteria1:=arrCriteria(), _
Operator:=xlFilterValues
'** Objektvariable zurücksetzen
Set rngFilter
Ich versuch mir schon seit Tagen ohne Erfolg daran.
Hat jemand von euch eine Idee wie ich dies umsetzen könnte?
https://www.herber.de/bbs/user/157694.xlsm
mfg Thomas