Übergreifender Abgleich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Fen() With Sheets("Raw Data") For Each c In .Columns(1).SpecialCells(2) For Each b In Sheets("Basisliste").Columns(1).SpecialCells(2) If InStr(1, c, b, vbTextCompare) > 0 Then Tx = b Next If Tx "" Then c.Offset(, 2) = Tx Else c.Offset(, 2) = "not found" End If Next c End With End Sub

Hallo Werner
vielen Dank für deine Rückmeldung.
Wie würde das Ganze den aussehen wenn wir Spalte B ignorieren.
Sprich
Kommt C1 irgendwo in der Basisliste Spalte A vor, dann gib mir die entsprechende Bezeichnung aus der Basisliste aus, sonst nichts (oder Fehler).
So wäre es dann wenn nur Test vorkommt, dass Test das Ergebnis ist und wenn "Spezialtest" vorkommt, auch Spezialtest das Ergebnis ist.
Da das Wort Test Bestandteil von Spezialtest ist stellt sich das ggf. schwierig da. Aber wir könnten an der Stelle die Basisliste "erweitern" und vor jeden Begriff ein "x " machen oder so, damit wären die Begriffe wieder unique.
Nur am Ende wird in Spalte A der Rohdaten automatisiert etwas angereiht was ich hiermit quasi durch das matchen der Basisliste einfacher bündeln möchte.
Das was hinten angereiht wird kann nicht nach Zeichenanzahl oder Sonderzeichen in der Zelle etc rausgefiltert werden. Dadurch ist das Matching mit der Basisliste und ausgabe der Bezeichnung dafür unser einziger weg.
Viele Grüße
Carina

Hallo Carina,
... jedoch Deinen letzten Satz: "Das was hinten angereiht wird kann nicht nach Zeichenanzahl oder Sonderzeichen in der Zelle etc rausgefiltert werden. Dadurch ist das Matching mit der Basisliste und ausgabe der Bezeichnung dafür unser einziger weg."
verstehe ich momentan nicht wirklich. Dieses müsstest Du noch mal am besten vielleicht an ein/zwei Beispielen konkret unterlegen.
Ohne Berücksichtigung des vorgenannten: Wie bereits geschrieben wird die Formel einfacher/kürzer, wenn nur die Texte in Spalte A von Raw Data ausgewertet werden müssen. Die Bedingung das der kürzere Suchtext in der Basisliste vor dem längeren stehen muss gilt auch hier (auch wenn es hier ein anderer Grund ist)
Nachfolgende Formel in E2 und dann nach unten kopieren:

=WENNFEHLER(VERWEIS(9;1/ISTZAHL(SUCHEN(Basisliste!A$2:A$99;A2))/(Basisliste!A$2:A$99>0); Basisliste!A$2:A$99);"")

Darin ist schon berücksichtigt, dass in der Basisliste weitere Suchtexte hinten angefügt werden können (vorbenannte Bedingung "kurz vor lang" jedoch weiterhin beachten).
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread