Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autofilter ändern

Forumthread: Autofilter ändern

Autofilter ändern
07.02.2023 12:43:34
Thomas
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter ändern
07.02.2023 16:03:47
snb
Schau mal:
https://www.snb-vba.eu/VBA_Autofilter_en.html#L_3
In Deinem Beispiel, verwende:
Sub M_snb()
    Tabelle1.Cells(4, 1).CurrentRegion.AutoFilter 1, Array("ew", "fr"), 7
End Sub

Anzeige
AW: Autofilter ändern
07.02.2023 19:43:42
Thomas
Hallo snb,
besten dank das du dir dies mal angeschaut hast.
Wenn ich die so mache, kann ich aber meine
Kriterien nicht mehr in der Zelle a1 eingeben.
Dim a
a = Range("a1")
Tabelle1.Cells(4, 1).CurrentRegion.AutoFilter 1, Array(a), 7
Funktioniert leider nicht.
Könnt ihr nochmal schauen?
mfg thomas
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige