Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Filterbereich festlegen

Filterbereich festlegen
04.07.2016 19:21:04
Markus
Liebes Forum,
ich möchte meinen für meinen Filter, der sich auf Spalte A bezieht, einen Wertebereich festlegen.
In Spalte A stehen diverse Modelle diverser Automarken.
Z.B.: A1, A2, A8, E-Klasse, S-Klasse ...
Nun möchte ich durch eine Schaltfläche alle Audi-Modelle herausfiltern.
Folgender Code funktioniert aber nur mit 2 Filterkriterien:
Sub Filtern()
Dim Bereich As Range
Set Bereich = Tabelle1.UsedRange
Bereich.AutoFilter Field:=1, Criteria1:="A1", Operator:=xlOr, Criteria2:= "A2"
End Sub
Ich habe es auch mit xlAnd probiert, aber bei Criteria3 kommt immer eine Fehlermeldung.
Vielen Dank!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filterbereich festlegen
04.07.2016 19:24:18
Hajo_Zi
warum nicht
Criteria1:="A*",
mal als Vermutung.

AW: Filterbereich festlegen
04.07.2016 19:30:27
Markus
Hallo Hajo,
ich möchte auf gut Deutsch einfach bestimmte Werte zu einer Marke zuordnen.
Also, wenn in Spalte A die Werte A1, A2, Q7 vorkommen, dann gehören sie zu Audi.
Wenn beispielsweise die Werte E-Klasse, S-Klasse vorkommen, dann gehören die Werte zu Mercedes.
Die Werte würde ich im Voraus manuell in den Code einfügen. Also eigenständig einen Wertebereich erstellen.
Danke dir.

AW: Filterbereich festlegen
04.07.2016 19:33:37
Hajo_Zi
zeichne es mit dem Makrorecorder auf.
Option Explicit
Sub Makro3()
' Makro3 Makro
ActiveSheet.Range("$A$21:$A$75").AutoFilter Field:=1, Criteria1:=Array( _
"a10", "a11", "a12", "a13", "a14", "a15", "a16", "a17", "a18", "a19", "a2", "a20", "a21" _
, _
"a22", "a23", "a24", "a25", "a26", "a27", "a28", "a29", "a3", "a30", "a31", "a32", "a33" _
, _
"a34", "a35", "a36", "a37", "a38", "a39", "a4", "a40", "a41", "a42", "a43", "a44", "a45" _
, _
"a46", "a47", "a48", "a49", "a5", "a50", "a51", "a52", "a53", "a54", "a55"), Operator:=  _
_
xlFilterValues
End Sub
Gruß Hajo

Anzeige
AW: Filterbereich festlegen
04.07.2016 19:47:11
Markus
Hallo Hajo,
Perfekt - Dankeschön!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige