Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoFilter mehrere Kriterien ausfiltern

Forumthread: AutoFilter mehrere Kriterien ausfiltern

AutoFilter mehrere Kriterien ausfiltern
19.03.2015 15:17:06
Matthias

Hallo Excellenten,
ich habe in Excel 2010 ein Problem mit dem AutoFilter unter VBA, ich habe bereits das gesamte Forum durchstöbert
finde jedoch keinen passenden Eintrag. Hoffentlich kann mir jemand von euch weiterhelfen.....
Ich möchte mehr als 2 Kriterien per VBA ausfiltern
z.B. möchte ich in Spalte A die Werte 1, 3, 5 und 7 ausfiltern wie könnte ich dies per VBA realisieren???
Gibt es vielleicht mit VBA eine Möglichkeit mehr als 2 Kriterien auszufiltern?
Ich möchte z.B. in Spalte A die Werte 1, 3, 5, und 7 ausfiltern ????
Bei diesem Beispiel ist immer nur das zuletzt aufgerufene Filterkriterium aktiv
Range("A1:A100").AutoFilter field:=1, Criteria1:="<>1 ", Operator:=xlFilterValues
Range("A1:A100").AutoFilter field:=1, Criteria1:="<>3 ", Operator:=xlFilterValues
Range("A1:A100").AutoFilter field:=1, Criteria1:="<>5 ", Operator:=xlFilterValues
Range("A1:A100").AutoFilter field:=1, Criteria1:="<>7 ", Operator:=xlFilterValues
Dieses Beispiel führt zu einer Fehlermeldung
Range("A1:A100").AutoFilter field:=1, Criteria1:=Array( _
"<>1 ", "<>3 ", "<>5 ", "<>7 "), Operator:=xlFilterValues
Danke für eure Hilfe

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoFilter mehrere Kriterien ausfiltern
19.03.2015 15:22:24
Hajo_Zi
benutze den Makrorecorder.

AW: AutoFilter mehrere Kriterien ausfiltern
19.03.2015 15:32:48
Matthias
Hallo Hajo,
danke für deine schnelle Antwort. Der Makrorecorder bringt mich an dieser Stelle nicht weiter. Der benutzerdefinierte AutoFilter kann nur 2 Kriterien verarbeiten, mehr als zwei sind leider nicht möglich.

Anzeige
AW: AutoFilter mehrere Kriterien ausfiltern
19.03.2015 16:10:31
Hajo_Zi
Bei mir im Autofilter werden alle Einträge angezeigt, ich kann alle abwählen und die relevanten auswählen und das zeichnet der Recorder auch auf.
Gruß Hajo

AW: AutoFilter mehrere Kriterien ausfiltern
19.03.2015 15:51:41
Daniel
Hi
bei mehr als Zwei bediungungen musst du ein Array erstellen, welches alle Werte enthält die angezeigt werden müssen und dieses als Filterkriterium verwenden
Sub test()
Dim arr1, arr2
Dim Z As Long
arr1 = Range("A1:A100").Value
ReDim arr2(1 To UBound(arr1, 1)) As String
For Z = 2 To UBound(arr1)
Select Case arr1(Z, 1)
Case 1, 3, 5, 7
Case Else
arr2(Z) = CStr(arr1(Z, 1))
End Select
Next
Range("$A$1:$A$100").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues
End Sub
Gruß Daniel

Anzeige
AW: AutoFilter mehrere Kriterien ausfiltern
19.03.2015 15:57:42
Matthias
Hallo Daniel,
ja für mehr als zwei Kriterien die angezeigt werden sollen ist dies richtig.
Ich möchte jedoch das z.B. der Wert 1,3,5 und 7 nicht angezeigt werden jedoch alle anderen Werte die in der Spalte vorhanden sind. Dies ist meine Problemstellung.
Hoffe dafür hast du auch eine Lösung....
Danke Gruß Matthias

Anzeige
AW: AutoFilter mehrere Kriterien ausfiltern
19.03.2015 16:15:25
Daniel
hab ich doch.
mein Makro macht genau das was du willst.
der Autofilter kann im Prinzip auch jetzt nur 2 Bediungungen verarbeiten.
Man hat aber die Möglichkeit, im als eine Bediungung ein Array anzubieten, welches alle Werte enthält, die angezeigt werden sollen.
Dieses Array muss man dann in einer kleinen Schleife öber die Werte erstellen und das macht mein Beispielcode.
Das Filterarray enthält alle Werte der Filterspalte ausser 1, 3, 5 und 7
Du solltest dich etwas mehr mit den Antowrten beschäftigen, bevor zu was schreibst.
Gruß Daniel

Anzeige
AW: AutoFilter mehrere Kriterien ausfiltern
20.03.2015 07:26:41
Matthias
Hallo Daniel,
vielen Dank für deine super schnelle Unterstützung das Makro funktioniert perfekt,
ich hatte nur noch einen Fehler drin.
Gruß Matthias

;

Forumthreads zu verwandten Themen

Filter nach mehr als 2 Kriterien unter VBA
Stephan

Jetzt brauch ich doch Hilfe!
Hab schon im Forum gepostet doch leider keine gewünschte Lösung gefunden.
Ich benötige eine einfach Art und Weise unter VBA nach mehr als 2 Kriterien in einer Spalte zu filtern. Dieser Filter benötigt keine Variablen sondern kann fest (Spalte, Kriterium) def...
02.12.2009 11:38:03
Thread-ID: 1121317
2 Beiträge
Anhand Kriterien Filtern(mehere Kriterien) VBA
chris

Hallo und guten morgen VBA Experten und Forumsbesucher,
ich habe eine frage und bitte euch um Hilfe.
ich habe mir eine Userform erstellt.
in dieser Userform kann ich mit Hilfe einer Combobox Daten auswählen.
Einmal "Kriterium1"und in der anderen Spalte Kriterium2.
Ich habe f...
05.02.2010 09:21:08
Thread-ID: 1135994
3 Beiträge
Anzeige
VBA Autofilter Kriterienlimitierung aufheben
alex

Hallo alle miteinander.
gibt es eine möglichkeit über VBA die Kriterienlimitierung des benutzerdefinierten autofilter von 2 auf 3 oder 4 zu erhöhen?
hab es mal so versucht, aber ohne erfolg. bekomme einen laufzeitfehler wenn ich mehr als 2 kriterien angebe
Sub test Selection.AutoFil...
15.03.2010 16:01:55
Thread-ID: 1145973
4 Beiträge
Anzeige
VBA:Mehrere Kriterien in Menu lesen können.
Karen

Hallo Forum,
ich benötige eine Hilfestellung bezgl. folgendem Problem:
Ich möchte per Menue Daten eingeben, ändern und lesen können. Das klappt soweit.
Da die Daten nicht alle in einer Zeile stehen, kann ich bisher nur die erste Zeile in dem Menu lesen. Ich erinnere mich, daß es...
31.08.2010 12:55:22
Thread-ID: 1174980
3 Beiträge
Anzeige
Filter mit mehreren Kriterien
Kurt

Guten Morgen,
habe folge Filterung:
Selection.AutoFilter Field:=35, Criteria1:="D0"
ich möchte aber jetzt mehrere Filtern:
Selection.AutoFilter Field:=35, Criteria1:="00+99+B0,F0"
geht sowas ?
mfg
Kurt P
21.12.2010 09:25:38
Thread-ID: 1192306
12 Beiträge
Autofilterkriterien / mehr als 2
Toumas

Hallo zusammen,
ich wollte mir per Aufzeichung ein Makro erstellen, welches mir einen Benutzerdefinierten Filter setzt.
Das Problem ist, dass er mir nur zwei Kriterien annimmt, sobald ich das dritte von Hand einfügen möchte (Operator:=xlAnd, Criteria2:="*56**")
Bringt er mir eine Fe...
26.04.2013 10:28:24
Thread-ID: 1310588
6 Beiträge
Anzeige
Nach mehr als 2 Kriterien pro Spalte filtern?
Kasimir

Hallo Leute!
Ich benötige mal wieder Eure Hilfe. Ich möchte nach mehr als 2 Kriterien in einer Spalte filtern. Ich habe hier in der Recherche auch einige Lösungsansätze gefunden, allerdings beziehen die sich immer nur auf Spalten, in denen nur ein Wort in der Zelle steht. Bei mir ist es all...
07.02.2014 07:16:36
Thread-ID: 1348441
9 Beiträge
Filterung nach mehreren Kriterien
Conelius

Hallo ihr VBA-Spezialisten
ich habe eine Tabelle bei der in Spalte A unterschiedliche Bezeichnungen eingetragen sind. Folgende Beispiele zu Beginn der Bezeichnung sind möglich:
M02_xy
M111_xyz
M3012_muster
M21a_test
Sie entsprechen also alle dem folgenden Platzhalter-Sch...
28.08.2015 16:19:39
Thread-ID: 1444903
2 Beiträge
Peter, Autofilteranzeige,mehr als 2. Krtierium
Peter

Hallo zusammen
Ich habe unten stehenden Code aus dem Netz, dieser funktioniert jedoch nur wenn nicht mehr als zwei Filterkriterien selektiert wurden. Es wird mit bedingter Formatierung angezeigt in welcher Spalte ein Filter aktiv ist.
Wie müsste ich den Code anpassen, damit dieser auch...
10.03.2016 10:16:44
Thread-ID: 1481115
3 Beiträge
Mit VBA Daten auslesen nach mehreren Kriterien
Thomas

Hallo Zusammen,
ich bin noch neu im ganzen Thema und seit Tagen fleißig am programmieren und probieren.
Mein Projekt sieht gerade so aus, dass ich für meine Freundin (Lehrerin) ein Programm schreibe zur Fehltage und Notenverwaltung. Das mit den Fehltagen hat soweit geklappt, jetzt hänge...
18.05.2016 14:03:47
Thread-ID: 1493935
7 Beiträge
VBA - Mehrere Suchkriterien und Datensatz überschr
SvenW

Hallo Excel-Freunde,
ich als Laie habe ein Problem, bislang konnte ich mir alles herleiten, doch das funktioniert jetzt leider nicht mehr... =(
Mein Problem:
Ich habe ein Tabellenblatt "Datenbank" und ein Tabellenblatt "Änderung". In "Änderung" werden mir unterschiedliche Tätigkeite...
10.10.2016 16:33:30
Thread-ID: 1518961
5 Beiträge
Problem mehrere Autofilter per VBA setzen
Matthias

Hallo Liebe VBA Profis,
ich habe bei der Umsetzung eines Makros, um Autofilter in mehreren Spalten zu setzen, ein Problem.
Hintergrund:
Es geht darum in einer Tabelle mit vielen Materialien, denen Eigenschaften zugeordnet sind, per Makro vergleichbare Materialien zu finden.
Dazu...
24.10.2016 19:07:56
Thread-ID: 1521450
2 Beiträge
Anzeige

Infobox / Tutorial

AutoFilter in Excel: Mehrere Kriterien ausfiltern

Schritt-für-Schritt-Anleitung

Um mehrere Kriterien im AutoFilter von Excel per VBA auszuwählen, kannst du die folgende Schritt-für-Schritt-Anleitung verwenden. Dies funktioniert in Excel 2010 und neueren Versionen.

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf dein Projekt im Projektfenster und wähle Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Sub FilterMultipleCriteria()
   Dim arr1, arr2
   Dim Z As Long
   arr1 = Range("A1:A100").Value
   ReDim arr2(1 To UBound(arr1, 1)) As String
   For Z = 2 To UBound(arr1)
       Select Case arr1(Z, 1)
           Case 1, 3, 5, 7 ' Werte, die nicht angezeigt werden sollen
           Case Else
               arr2(Z) = CStr(arr1(Z, 1))
       End Select
   Next
   Range("$A$1:$A$100").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues
End Sub

  4. Führe das Makro aus: Gehe zurück zu Excel, drücke ALT + F8, wähle FilterMultipleCriteria und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: „Automatisierung Fehler“: Dieser Fehler kann auftreten, wenn die Filterkriterien nicht korrekt definiert sind. Stelle sicher, dass die Werte im Filterarray ordnungsgemäß gespeichert sind.
  • Problem: Nur das letzte Filterkriterium wird angezeigt: Wenn du versuchst, mehr als zwei Kriterien zu filtern, vergewissere dich, dass du ein Array verwendest, um alle Werte zu speichern, die angezeigt werden sollen.
  • Mit dem benutzerdefinierten Filter arbeiten: Wenn du versuchst, mehr als zwei Kriterien mit einem benutzerdefinierten Filter zu verwenden, beachte, dass dies in Excel nicht direkt möglich ist. Stattdessen musst du die oben beschriebene Methode mit einem Array verwenden.

Alternative Methoden

  1. Verwenden des AutoFilters über die Benutzeroberfläche: Du kannst auch manuell den AutoFilter in Excel verwenden, um mehrere Kriterien auszuwählen. Klicke auf den Dropdown-Pfeil in der Spaltenüberschrift und wähle die gewünschten Werte aus.
  2. Excel-Formeln: Eine andere Möglichkeit besteht darin, Hilfsspalten zu verwenden, um zu kennzeichnen, welche Werte gefiltert werden sollen, und dann den Autofilter anzuwenden.

Praktische Beispiele

  • Beispiel 1: Wenn du die Werte 1, 3, 5 und 7 in Spalte A ausblenden möchtest, kannst du das oben genannte Makro verwenden. Es erstellt ein Filterarray, das alle anderen Werte enthält und somit die gewünschten Ergebnisse liefert.
  • Beispiel 2: Um Daten in einer Tabelle zu filtern, die mehr als zwei Kriterien enthält (z.B. verschiedene Produktkategorien), kannst du das Array mit den jeweiligen Kategorien anpassen.

Tipps für Profis

  • VBA optimieren: Optimiere dein Makro, indem du die Application.ScreenUpdating und Application.Calculation Eigenschaften deaktivierst, bevor du das Filter-Makro ausführst. Dadurch wird die Ausführung schneller.

    Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' Dein Filtercode hier
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

  • Debugging: Nutze Debug.Print, um die Werte deines Arrays während der Ausführung auszugeben. So kannst du einfach überprüfen, ob die richtigen Werte gefiltert werden.

FAQ: Häufige Fragen

1. Kann ich den AutoFilter auch in früheren Excel-Versionen verwenden?
Ja, die meisten VBA-Funktionen sind ab Excel 2007 verfügbar, aber einige Funktionen können in Excel 2003 oder älteren Versionen Einschränkungen haben.

2. Was, wenn ich mehr als 10 Kriterien filtern möchte?
Die Methode mit dem Array kann auch für mehr als 10 Kriterien verwendet werden. Achte darauf, dass du alle gewünschten Werte im Array speicherst, um die Ausgabe zu steuern.

3. Gibt es eine Möglichkeit, den Autofilter über Access zu steuern?
Ja, es gibt auch VBA-Methoden für Access, die ähnlich funktionieren wie in Excel. Hierbei kannst du die Access VBA Filter-Funktionen verwenden, um mehrere Kriterien zu setzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige