Hallo Gast 40018!
Warum denn sorry für gestern? Ohne dich hätte ich fast nichts von den Umsetzungen auf die Reihe bekommen, seien wir doch mal ehrlich... Ich versuche nochmal das Problem zu schildern. Hier nochmal der Link zur Datei, das hilft ja immer ganz gut, wenn man das Problem visaulisieren kann.
https://www.dropbox.com/s/9f62sx69cr4e5zx/RMT-Test%20Version.xlsm
Habe 3 Spalten, in denen jeweils Risk Cause Drivers (mit den Ausprägungen Internal, External, Combination) angegeben werden können, dann Risk Events (mit den Ausprägungen Financial, Infrastructure, Reputational, Market) und dann noch eine letzte Spalte mit Risk Effect Level (mit den Ausprägungen). Das filtern mit mehreren Ausprägungen funktioniert auch, allerdings immer nur für den einzelnen "Strang". Sobald ich irgendwas kombiniere, z.B. einen Filter bei Risk Cause Drivers und noch einen bei Risk Events klappt das leider nicht mehr. Vllt. war meine jetzige Erklärung auch grad überflüssig, aber sicher ist sicher :)
Wie du bereits richtig dargelegt hast, habe ich jedem Shape (außer den Parent Shapes, diese werden nicht zum Filtern genutzt) ein Makro zugewiesen. Die Bedeutung des Select Case verstehe ich mittlerweile auch nicht mehr, ich glaube dass ich das ursprünglich zur Differenzierung der Spalten genutzt habe, damit auch klar ist, wo der Filter gesetzt werden soll. MyText habe ich dann immer als Kriterium angegeben. Das ist nachträglich betrachtet natürlich Quatsch, weil ich dann lediglich ein Kriterium pro Strang selektieren kann. Achso, und was vllt. noch wichtig ist: Diese Struktur (oder Organigramm) mit den ausgefüllten Kästchen ist fest und soll auch nicht geändert werden. Lediglich die weißen Shapes sollen dynamisch hinzugefügt werden, aber das ist ja ne ganz andere Baustelle...
Die Transferarbeit, also die Anpassung deines Codes an meine Bedürfnisse, kann ich leider heute Abend nicht mehr leisten. Aber eines muss ich noch anmerken: Das bisschen Auseinandersetzen mit VBA hat meinen sowieso großen Respekt vor dem, was ein Programmierer leistet, noch größer werden lassen. Ich finde es unheimlich schwierig, sich zu überlegen, welche Funktionen sinnvoll für den Anwender sind. Ich bin Betriebswirtin und habe eigentl. mit sowas nichts am Hut, aber diese kleinen Problemchen, auf die ich immer wieder getoßen bin, lassen mich erahnen welche Leistung dahinter steckt.
In diesem Sinne: Danke schön & noch einen angenehmen Abend!
Beste Grüße
|