Wörter in String suchen und ausgeben

Hallo liebe VBAler :)
ich benötige ein wenig Hilfe, da ich nach langer Suche auf nichts gestoßen bin, das mir richtig weiterhilft.
Ich würde gerne eine Liste von Begriffen (Spalte A) in einem Array speichern und anschließend längere Strings, Zeile für Zeile, durchgehen und die jeweiligen Matches rechts daneben schreiben. Gibt es mehrere Matches, soll dies in die nächste freie Spalte geschrieben werden.
Ich habe dafür mal ein ganz einfaches Beispiel gebaut inkl. dem, was am Ende rauskommen soll: https://www.herber.de/bbs/user/125293.xlsx
Die richtige Liste wird mit mehreren 100 Einträgen und auch mehreren 100 Strings bedeutend länger und aufgrund der Ausgabe in unterschiedlichen Spalten sollte es mE eine VBA Lösung sein.
Ich bedanke mich rechtherzlich im Voraus!
Viele Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…eine der kürzeren ist (auch, wenn man sie „Mai-Baum-fähig“ anlegt), Steven,
könnte ich dir einen Kompromiss zwischen Fml und VBA anbieten (nein, nicht Fmln mit VBA eintragen, was auch ginge!) → UDF-Verwendung in einer zeilenweisen pluralen MatrixFml (nebenbei, WFs ist singular!). Mit gleich 3 UDFs sähe die dann so aus (falls #NV vermieden wdn soll):
E8:K8[;E9:K11]: {=VSplit(VJoin(WENN(VLike(" "&D2&" ";"* "&MTRANS($A$2:$A$7)&"[ ,.]*");MTRANS($A$2:$A$7);"");;-1)&
WIEDERHOLEN(" ";7))}
Ohne die UDF VLike wäre sie deutlich länger, auch länger als die von WF. Ich zeige sie trotzdem, weil hierin eine interessante Anwendung von VERGLEICH steckt (Lupo hatte neulich wohl mal etwas Ähnliches gezeigt):
E2:K2[;E3:K5]: {=VSplit(VJoin(WENN(ISTNV(VERGLEICH("* "&MTRANS($A$2:$A$7)&" *";INDEX(" "&WECHSELN(WECHSELN($D$2:$D$5;",";);".";)&" ";
ZEILE(A1));0));"";MTRANS($A$2:$A$7));;-1)&WIEDERHOLEN(" ";7))}
Mit einem Xl-Abo (365) könntest du nach neuestem Stand möglicherweise beide verbliebenen UDFs durch neue Xl-Standard-Fktt ersetzen.
Ansonsten ging's mir bei der 2.Fml darum, zu zeigen, dass es in Xl nicht nur Fktt gibt, die skalare Tensoren* zurückliefern wie bspw ZEILE und SPALTE, sondern auch welche, die zwingend zumindest einen solchen verlangen (deshalb auch noch INDEX, denn sonst hätte der jeweilige modifizierte) Wert ja gereicht, ein einfacher Verweis auf eine EinzelZelle tut's ja auch). Bei INDEX ist das klar, denn hier muss aus Matrix/(Ko-)Vektor gewählt wdn, bei VERGLEICH aber nicht so eindeutig. Auf diese Weise könnte man auch Platzhalter nutzen (VERGLEICH erlaubt das!) und auch alle Auftreten eines Begriff(teil)s in einem (Ko-)Vektor feststellen.
(Ggf schreibe ich dazu demnächst noch etwas mehr…)
* Kein wirklicher Einzelwert (Skalar), sondern ein (skalarer) 0Tensor mit nur einem Element → Typ(0,0)-Tensor. Ein weiterer Beweis dafür, dass viele alte Xl-Fktt tensor-basiert arbeiten — in der Pgmmrg zumeist durchaus üblich.
Feedback nicht unerwünscht! Morhn, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Beliebteste Forumthreads (12 Monate)

Wörter in String suchen und ausgeben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wörter in String suchen und ausgeben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread