Excel VBA - Filter ein Element abwählen

[Allan Sche Sar]

Hallo ihr,

ich sitze gerade dabei mir einen Filter zu bauen. Dieser muss von einem Makro gesteuert werden.
Der Filter selbst soll alle Zeilen mit einem Minus (Zeichen: -) filtern, damit man nur noch die Namen der für die Auswertung benötigten Personen sieht und damit weiter arbeiten kann.

Aber ich bekomme es nur hin, dass ich alle Namen einzeln eintrage und nicht als Kriterium das - abwählen kann.

Wie müsste ich dafür vorgehen?

 

[Snooty]

Als Filterkriterium das '-' in Sternchen setzen, Bsp für einen Filter in Spalte A:

Range("A:A").AutoFilter Field:=1, Criteria1:="=*-*"

 

[Allan Sche Sar]

Wieder etwas sehr sehr nützliches gelernt.

DANKE Snooty

 

[Snooty]

Sowas kann man auch sehr gut mit dem Makro-Rekorder herausfinden.

Aufzeichnung starten, Filter setzen, Aufzeichnung stoppen. Dann bekommst du genau die eine Zeile Code, die du suchst.

 

[Allan Sche Sar]

Eben leider nicht. Die Aufzeichnung hat mir alle 25 Kriterien aufgezählt und nicht das eine, welches abgewählt wurde.

 

[Snooty]

Achso, du willst, dass alle Zeilen die ein '-' enthalten ausgeblendet werden?

Dann ist mein Code aber auch nicht korrekt. Korrekt ist es dann so:

Criteria1:="<>*-*"

Egal wie, beide Varianten spuckt auch der Makrorekorder aus.

 

[Allan Sche Sar]

Macht er eben nicht. Ich habe es nun Mehrfach versucht. Eine Negation wurde nie ausgespuckt.
Also was machst du, damit dir eine Negation ausspuckt wird.

Was bei der Aufzeichnung raus kommt, habe ich dir einmal in der Testdatei abgespeichert (natürlich habe ich den Code nicht geschrieben, sondern aufgezeichnet).

 

[Snooty]

Ich gehe auf die Option Textfilter und suche dann nach dem Zeichen, dass (nicht) enthalten sein soll

 

[Allan Sche Sar]

mhhh, ich bin still.

Ergänzung (10. April 2016)

Snooty ich greife das ganze noch einmal auf, da sich eine Anschlussfrage ergeben hat.
Ich habe nun eine Funktion mit der ich den gesetzten Filter auslesen kann.

Aber gibt es eine Möglichkeit alle möglichen Filterkriterien ausgeben zu lassen, also auch die, die nicht gesetzt sind?

 

[Snooty]

Du meinst alle Optionen, die der Autofilter einem anbietet?

Am einfachsten: jeden Filter bei laufendem Mkrorekorder einmal aktivieren.

 

[Allan Sche Sar]

Ja, ich meine alle Optionen (die mit einem Haken versehen werden können), die der Autofilter einem bietet.
Im Makrorekorder habe ich diese aufgezeichnet. Doch das Hilft mir nur für den Moment. Wenn sich morgen ein Kriterium ändert, dann wird dies nicht erfasst.

Mein Wunsch ist es also alle Kriterien beim Ausführen des Makros auszulesen.

 

[Snooty]

Du meinst, es ist irgendein Filter aktiv, und du willst sehen, welche Filterkriterien aktuell gesetzt sind?

 

[Allan Sche Sar]

Nein ich meine den ganz allgemeine Fall.
Kein Filter gesetzt und ich will sehen, welche Filter möglich wären (nur in einer Spalte versteht sich).

Jetzt verstanden, worauf ich hinaus will?

 

[Snooty]

Aber dann ist es doch das:

Du meinst alle Optionen, die der Autofilter einem anbietet?

Es sind ja alle Filter möglich

 

[Allan Sche Sar]

Natürlich sind alle Filter möglich, aber wie lese ich diese aus. Also das die Filter mir auf ein separates Tabellenblatt geschrieben werden (zum Beispiel).

 

[Snooty]

So?

Am einfachsten: jeden Filter bei laufendem Mkrorekorder einmal aktivieren.

Das musst du ja nur ein einziges Mal machen; es ändert sich ja nichts an den Filtermöglichkeiten.

 

[Allan Sche Sar]

Natürlich ändert sich etwas an den Filtermöglichkeit, wenn in der entsprechenden Spalte neue Einträge hinzukommen.
Wenn dies zum Beispiel eine Spalte mit Mitarbeiternamen wäre und es kommt ein neuer hinzu, dann ändert sich dies schon.

Solch ein ähnlicher Fall ist es bei mir. Hier ändert sich alle 2-3 Wochen etwas in den Filterkriterien.

 

[Snooty]

Wieso ändert sich dann etwas? Ich kann doch vorher nach xy filtern und hinterher genau so; da spielt es doch keine Rolle ob neue Elemente in der Liste hinzukommen.

Vermutlich reden wir nur aneinander vorbei Evtl. hast du mal eine Beispieltabelle und kannst nochmal beschreiben, was du darin vorhast.

 

[Allan Sche Sar]

Da war ich gerade dabei sie zu erstellen.

Die Einträge in Spalte A sollen in einer zweiten Tabelle eingetragen werden. Jedoch nur jeder Eintrag einmal.
Wie du erkennst habe ich als Beispiel nur

="Name" & AUFRUNDEN(ZUFALLSZAHL();1)

eingefügt. Damit sind die Filterkriterien immer anders, wenn ein Eintrag geschieht. Und somit muss das Makro den Filter doch immer wieder auslesen können.

Jetzt verständlich war ein statischer Eintrag nicht genügt?

 

[Snooty]

Du meinst das Filterkriterium ändert sich, weil du in der Liste nach xyz filtern willst, bei einem neuen Eintrag aber meinetwegen nach abc?

Grundsätzliche Frage: willst du Filter (die du zuvor ausgelesen hast) irgendwo erneut per VBA setzen, oder nur auslesen, was gerade gesetzt ist?

Das Setzen passiert ja wie oben schon geschrieben:

Range("A:A").AutoFilter Field:=1, Criteria1:="=*abc*"

Und hier meinte ich, dass sich das ja nicht ändert - natürlich ändert sich der Suchstring abc, aber nicht der Filter an sich =*...*.

Wenn du das aktuelle Kriterium auslesen willst, geht das mit:

Worksheets("Tabelle1").AutoFilter.Filters(1).Criteria1

Maximal gibt es 2 Kriterien, das zweite bekäme man entsprechend mit ...Criteria2.