Filterfunktion für einzelne Wörter

[IchBinIch]

Hi,

Du kannst sie entweder in Spalte C lassen und die restlichen Spalten dahinter einfügen oder ich passe den Code so an, dass er mit der Spalte N arbeitet. It's up to you. 
Technische ist es möglich mehrere Wörter in der CB auszuwählen, ob diese auch korrekt übergeben würden, muss ich mir erst anschauen. Da bin ich momentan offen gestanden etwas überfragt.
Diese Aufgabenstellung weicht jedoch von der eingangs beschriebenen ab. 

... Ich möchte nun aber nach den einzelnen Schlagworten filtern, ...

Ich schaue es mir aber gerne an.

Gruß 
Ich

[IchBinIch]

Ich muss meine Aussage oben etwas revidieren. Machbar ja aber mit einem recht hohen Aufwand.
Wenn Du mehrere Wörter selektieren willst, würde ich das anders lösen.

[xandyxoxox]

Hallo

Falls es keinen zu grossen Aufwand macht, dann wäre die Spalte "N" praktischer für mich, da dies die ursprüngliche Anordnung der Spalten war. Titel und Jahr waren ursprünglich auch in anderen Spalten, aber ich nehme an, dass das keine Rolle spielt, da für die Combobox lediglich die Spalte der Schlagwörter relevant ist, oder? Ansonsten kann ich nochmals eine angepasste Excel-Tabelle mit den korrekten Spaltenanordnungen heraufladen.

Du hast Recht, ich hatte am Anfang geschrieben, nur einzelne Schlagwörter auszuwählen; jetzt habe ich aber gemerkt, dass es doch noch praktisch wäre, mehrere auswählen zu können. Falls dies aber nicht möglich ist, ist es auch nicht so schlimm! Du hast ja wirklich schon sehr viel gemacht und ich bin dir wirklich dankbar für all deine Hilfe und Geduld!

Liebe Grüsse
Sandra

[Gast 123]

Hallo Sandra,

ich bin neu im Thread und habe noch nicht alles verstanden, finde die Aufgabe faszinierend. Offenbar Historie der Stadt Zürich.  Was genau willst du mit den Schlagwörtern erreichen, was bezweckst du damit? Zeilen ausblenden wie bei Autofilter? Oder sollen bestimmte Daten woanders aufgelistet werden?. 

Bei ComboBox ist meines Wissens ein Multiselect nicht möglich. Ist das für dich erwünscht/ erforderlich?? Ich habe mir alle Beispieldateien angesehen, sehe ComboBox bei IchbinIch, habe aber noch nicht verstanden was du damit genau bezweckst. Für schnellere Auswahl könnte man über ein Listenfeld gehen. Schau dir mal den Thrad  "MensaMenü Monatlich" an. Das ist meine Arbeit. Man sieht das ich drei Versuche brauchte um die Aufgabe zu verstehen, bis zum Schluss ein verblüffend ei,nfaches Ergebnis für die Praxis herauskam. Der Frage bekommt seine Listen ja auf Hollaendisch und muss daruas eine Liste in Deutsch machen.  Ich bevorzuge aber normale Blatt Objekte, keine Aktiven Steuerlemente!  Die normalen sind für mich einfacher zu programmieren. 

Zuerst müsste ich aber verstehen was genau die ComBox oder ein Listenfeld machen soll?  Und wenn wir zum Filtern für Autofilter eine Hilfsspalte benötigen welche Spalte das sein soll?  Andere Frage, wieviele Daten sind es ungefaehr.  Bis 10.000, oder mehr?  Verlaengert nur die Rechenzeit.  Bis dann...

mfg  Gast 123

[xandyxoxox]

Hallo Gast 123

Vielen Dank schon mal für deinen Input. Ich habe mir deine Thread kurz angesehen, allerdings denke ich nicht, dass es sich damit um das gleiche Problem wie bei mir handelt. Ich erkläre dir kurz, für was ich das Dropdown-multiselect bei den Schlagwörtern benötige: Und zwar habe ich eine Excel Liste mit ca.l 1200 Mandaten (=frühneuzeitlichen "Gesetzen") von Zürich, die jeweils verschiedene Metadaten pro Mandat (=Zeile) beinhalten: Titel, Datum, Archivstandort, Inhalt, Schlagwörter etc. Da ich nun von diesen 1200 Mandaten ca. 300 auswählen muss (und dies u.a. anhand von inhaltlichen Kriterien), wäre es super praktisch, wenn ich bei den Schlagwörtern einzelne auswählen kann (im Dropdown Menu) und dann eben nur diese Mandate sichtbar sind, die genau diese Schlagwörter beinhalten. Bei bis zu 2 Schlagwörtern kann ich das Ganze mit dem Textfilter ("enthält") lösen, aber eben nur bis zwei Schlagwörter.
Weisst du, was ich meine?

Liebe Grüsse Sandra

[Gast 123]

Hallo Sandr,

ich habe es verstanden, bin ein alter Excel Praktiker, mit eigenen Ideen. Die Profis manchmal milde belaecheln.
Ich handele gerne nach der  Devise:  der Weg zum Ziel ist mir wurscht,  Hauptsache ich komme am Ziel an!

Was hälst du von der Idee für dein spezielles Problem eine eigene Hilsspalte einzurichten mit z.B. "ok" und nur nach diesem "ok" zu filtern. Es ist dann die Aufgabe des Makros per DropDown oder Listenfeld alle Werte in der Tabelle zu suchen, und überall wo das Schlagwort vorkommt ein "ok" einzufügen. Die Hilfsspalte muss natürlich vor dem Start gelöscht werden. Dann brauchst du nur nach dem Text "ok" zu filtern.  Ist das eine Alternative für dich??

Wenn ja müsste ich zum programmieren wissen in welchen Spalten Schlagwörter vorkommen, und in welcher Spalte "ok" stehen soll. Wenn du DropDown benutzt waere mir ein normales lieber, ist leichter zu programmieren. Vielleicht ein ungewöhnlicher Vorschlag von mir, aber wenn es so klappt - Why Not ??

mfg  Gast 123

[IchBinIch]

Hallo Gast,

schau Dir mal die Spalte C in der letzten von Sandra hochgeladenen Datei an. Wobei in Sandras Originaldatei die Schlagworte in Spalte N stehen.
Dort stehen mehrere Schlagworte pro Zelle bzw. pro Mandat. Diese müssen also zunächst separiert und da sie zu mehreren Mandaten vorliegen können,
anschließend aus diesen eine Unikatsliste erstellt werden.
Nachdem Sandra schrieb, Sie wolle mehrere Schlagworte auswählen können, dachte ich auch spontan an eine Lösung via Listenfeld, hatte aber
irgendwie im Hinterkopf, dass ein Multiselct auch bei einem Dropdown möglich sei. Nunja - irren ist männlich :32:.
Ich habe auch bereits eine Lösung mit einem Listenfeld vorbereitet, allerdings tat ich mich gestern zu vorgerückter Stunde etwas schwer, die
Auswahl an den Filter zu übergeben.

Gruß
Ich

[Gast 123]

Hallo IchbinIch

ich will deiner Arbeit nicht in die Quere kommen und warte erst mal deine  Lösung ab und was Sandra dazu sagt.
Habe noch andere Threads offen, werde zuerst da weitermachen und abwarten .  Danke für deine Mitteilung.

mfg  Gast 123

[snb]

@IbI

Diese Code reicht (und ist viel schneller).

Code:

Private Sub Workbook_Open()
  sn = Split(Join(Application.Transpose(Tabelle2.Columns(1).SpecialCells(2).Offset(, 2)), ","), ",")
 
  With CreateObject("system.collections.sortedlist")
    For j = 1 To UBound(sn)
      If Trim(sn(j)) <> "" Then .Item(Trim(sn(j))) = ""
    Next
    
    ReDim sp(.Count - 1)
    For j = 0 To .Count - 1
      sp(j) = .getkey(j)
    Next
    
    Sheets("Zürcher Mandate (chronologisc)").ComboBox1.List = sp
  End With
End Sub

[xandyxoxox]

Hallo ihr beiden

Erstmals danke für eure Inputs und Hilfe mit "meinen" Mandaten.
@Ichbinich, denkst du es ist technisch möglich (und nicht extrem aufwendig) so einen Filter für die Schlagwörter zu konstruieren, dass alle Schlagwörter einzeln aufgelistet sind (also wie du das schon gestern bemerkenswerterweise gelöst hast), aber wo ich dann auch mehrere Schlagwörter auswählen kann?

Liebe Grüsse
Sandra