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

Forumthread: VBA meherer Filter in einer Spalte

VBA meherer Filter in einer Spalte
19.06.2023 17:14:07
Frank

Hallo,

ich habe ein Problem und brauch eure Hilfe.

ich versuche per VBA in einer Spalte nach mehreren Kriterien zu Filter.
doch leider mit mäßigen Erfolg

ich habe Tabelle1 eine Werte nach dem ich Filtern will - "A1:A12"
in Tabelle2 versuche ich jetzt in Spalte 5 ("E") nach diesen Werten in Tabelle1 zu Filtern.

leider bin ich zu doof dafür, dass ich ein Bereich definier und nach allen Kriterien dann Filter.

wenn ich alles mit der Hand eingebe, dann funktioniert es

.Range.AutoFilter Field:=3, Criteria1:=Array("8975", "78564", "2345", "123"), Operator:=xlFilterValues


kann mir jemand danach helfen, dass das auch mit einem definierten Bereich funktioniert


danke euch

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA meherer Filter in einer Spalte
19.06.2023 17:20:55
Daniel
Hi

Da musst du erstmal in einer Schleife über die gefilterten Zellen in der ersten Tabelle das Filterarray zusammenstellen.
das geht am einfachsten, wenn man einen Text erstellt, den man dann aufsplittet. dabei bekommt man dann das erforderliche eindimensionale Array
dim Zelle as Range
dim txt as string
dim FilterArray

for each Zelle in Sheets("Tabelle1").Range("A1:A12").SpecialCells(xlcelltypevisible)
    txt = txt & vblf & Zelle.Value
next
txt = mid(txt, 2)
FilterArray = Split(txt, vblf)

.Range.AutoFilter Field:=3, Criteria1:=FilterArray, Operator:=xlFilterValues
gruß Daniel


Anzeige
AW: VBA meherer Filter in einer Spalte
21.06.2023 10:04:06
Frank
Hallo Daniel,

vielen Dank dafür,

funktioniert super

Frank

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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