Office: (Office 2019) automatische Auflistung anhand Markierung in einer Spalte

Guten Morgen zusammen,

ich habe zwei Listen.

Liste 1 (Tabelle1)
In dieser Liste steht jeder Name nur einmal. Hinter den Namen steht ein x um anzuzeigen, dass der Name ausgewählt ist, oder nicht wenn eben kein x daneben steht.

Liste 2 (Tabelle2)
In dieser Liste können dieselben Namen mehrmals auftauchen. Daneben steht dann irgendein Text.

Ziel
Wird der Button "Texte generieren | cmdTexte" gedrückt, so soll das Makro in Spalte C von Tabelle 1 schauen ob dort ein x steht und wenn ja den Namen in Spalte B von Tabelle 1 mit dem Namen in Spalte B von Tabelle 2 vergleichen.
Anschließend soll der Text von jedem Treffer beispielsweise in Zeile 36 der Tabelle 1 ausgegeben werden.

Ich habe in der hochgeladenen Datei schon angefangen eine Lösung zu erarbeiten, komme jedoch nicht weiter.

Hat jemand eine Idee, wie ich da vorgehen könnte?

Vielen Dank im Voraus!

 

Hallo,

das funktioniert auch ohne VBA.
Datei liegt bei.

 

Vielen Dank für deinen Lösungsvorschlag.

Dazu habe ich Fragen bzw. Anmerkungen:

1. Wenn ich nachträglich ein x setze, sprengt das leider die Formeln. Liegt es daran, dass es Matrixformeln sind? So ist es zumindest leider nicht umsetzbar für mich.
2. Da ich nicht weiß wie viele Zeilen in Tabelle 2 Texte enthalten müsste der Ausgabebereich dynamisch sein.

Ich denke eine VBA Lösung könnte dynamischer reagieren, oder sehe ich das falsch?

 

Hallo,

ja es handelte sich um Matrixformeln. Ich habe zu spät bemerkt, dass du Excel2019 hast und damit dynamische Array-Formeln noch nicht funktionieren.
Ich habe dir deswegen das Ganze in PowerQuery erstellt.
Wenn du in der Tabelle "tbNamenAuswahl" deine x-Liste eingibst und dann anschließend unten in die grüne Tabelle "tbTexte" einen Rechtsklick ausführst und den Befehl "Aktualisieren" ausführst, wird eine aktualisierte Texte-Tabelle erstellt.

 

Das funktioniert gut! Danke.

Darf ich fragen, wie du grob vorgegangen bist um das Ganze besser zu verstehen?

 

Hallo,

ich habe dir in der Zwischenzeit ein VBA-Makro eingefügt, das ereignisgesteuert reagiert.
Das heißt, nur wenn in der Tabelle "tbNamenAuswahl" in der Spalte "Auswahl" ein "x"-Zeichen eingegeben oder entfernt wird, aktualisiert sich die Tabelle "tbTexte" automatisch.
Dieses Makro befindet sich im Codemodul des Arbeitsblattes "Tabelle1".

Die Tabelle "tbTexte" kann dabei in 2 Formaten angezeigt werden: Ist in der benannten Zelle "TrennZeichen" (z.Zt. E15) ein Trennzeichen enthalten (z.Zt. ein ";"), erscheinen die Texte zeichengetrennt mit diesem Trennzeichen als nur eine Zeichenkette.
Ist die Zelle "TrennZeichen" jedoch leer, erscheinen die Texte spaltengetrennt - also jeder Text in einer separaten Spalte.

Enthalten ist immer noch die Abfrage mittels PowerQuery. Sie reagiert so, als ob in der Zelle "TrennZeichen" stets ein ";" stehen würde. Der Abfragestring sieht wie folgt aus. Ich möchte darauf nicht näher eingehen - ist etwas zu umfangreich, wird aber ziemlich sicher noch zu vereinfachen sein.

let
Quelle = Excel.CurrentWorkbook(){[Name="tbNamenAuswahl"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Namen", type text}, {"Auswahl", type text}}),
#"Gefilterte Zeilen" = Table.SelectRows(#"Geänderter Typ", each ([Auswahl] = "x")),
#"Zusammengeführte Abfragen" = Table.NestedJoin(#"Gefilterte Zeilen", {"Namen"}, tbNamenTexte, {"Namen"}, "tbNamenTexte", JoinKind.LeftOuter),
#"Entfernte Spalten" = Table.RemoveColumns(#"Zusammengeführte Abfragen",{"Auswahl"}),
#"Erweiterte tbNamenTexte" = Table.ExpandTableColumn(#"Entfernte Spalten", "tbNamenTexte", {"Namen", "Texte"}, {"tbNamenTexte.Namen", "tbNamenTexte.Texte"}),
#"Gruppierte Zeilen" = Table.Group(#"Erweiterte tbNamenTexte", {"Namen"}, {{"Details", each Text.Combine([tbNamenTexte.Texte],"; "), type nullable text}})
in
#"Gruppierte Zeilen"

 

Das ist großartig!

Vielen Dank. :)