Office: (2007) Makro, AutoFilter: Filterbare Werte abfragen?

Hallo,

ich habe mir schon einen Wolf gegooglet, finde aber einfach keine Lösung:
In einer Datei mit mind. 20000 Zeilen muss ich per Makro eine Spalte nacheinander nach allen darin vorhandenen Namen (allgemeiner: Strings) filtern (ca. 30 verschiedene). Das Problem ist, dass ich diese Namen vorab nicht kenne, also das Autofilter-Kriterium nicht damit füttern kann.
Wie erhalte ich in meinem Makro schnell die Liste der verfügbaren Namen?
Manuell kann ich ja einfach auf den Pfeil des Autofilter klicken und erhalte ein kleines Fenster, in dem alle Namen (mit Checkbox) aufgelistet sind. Diese Liste bräuchte ich in meinem Makro, aber ich weiß nicht wie ich sie kriegen kann.
Bisher muss ich mir mit der sehr langsamen Methode behelfen, zunächst alle >20000 Einträge zu durchlaufen und mir eine Collection erstellen, in der diese Namen eingetragen werden (ohne Dubletten selbstverständlich).

Ich danke Euch für jeden hilfreichen Tip!
Rob

 

Hallo Rob,

die Liste enthält aber max. 1000 Einträge.
Liste aller Einnträge, vielleicht ist die ein Ansatz.
http://hajo-excel.de/chCounter3/getfile.php?id=156

Gruß Hajo

 

Hallo Hajo,

danke für Deine schnelle Antwort. Dass die Liste nur 1000 Einträge fasst ist nicht schlimm, ich habe ohnehin nur 20-30.
Der von Dir beschriebene Ansatz versagt leider, da ich vorab bereits andere Autofilter gesetzt habe (also mit ausgeblendeten Zeilen umgehen muss). Ich benötige also die Liste von Namen auf Basis der nicht weggefilterten Werte - entschuldigung, das hatte ich zuvor nicht erwähnt.

Gruß,
Rob

 

Wenn Du eh schon per VBA an die Sache rangehst... Der "Spezialfilter" könnte Dir da weiterhelfen. Denn die Auflistung der filterbaren Werte ist im Prinzip das gleiche, was der Spezialfilter bei "Keine Duplikate" macht.

Es wäre also eine Möglichkeit, vor dem Setzen des ersten Filters zuerst einmal die relevante(n) Spalte(n) per Spezialfilter auf eindeutige Werte ohne Dubletten zu reduzieren. Das "Zielgebiet" könnte dann ja auf einem separaten Worksheet sein.

Als ersten Ansatz könntest Du das ja mal manuell machen und dabei per Makro-Rekorder aufzeichnen. Den resultierenden Code kannst Du dann ja recht leicht anpassen bzw. erweitern.

Gruß, Michael

 

Hallo,

ich wollte nur eine kurze "Gelöst" Rückmeldung geben:
Ich habe einen anderen Ansatz erfolgreich umgesetzt:
ich kopiere alle Werte der Spalte die gefiltert werden soll in einen freien Bereich (in meinem Fall in ein neues temporäres Blatt) und führe darauf die Funktion "RemoveDuplicates" aus. Das Ergebnis entspricht der gewünschten Liste.
Ich konnte damit außerdem die Ausführungszeit von meinem initialen - schlechten - Ansatz bei ca. 24000 Zeilen von 12 Minuten auf 1,5 Minuten drücken.

Vielen Dank nochmal,
Rob