Einzelne Wörter aus Satz ziehen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Aber Lupo,
es gibt doch auch noch UDFs! ;-]
Was mich allerdings verwundert ist, dass Deine doch sehr komplexe Fml als normale Fml (oder war's doch 'ne singulare MatrixFml?) fktioniert. Wenn ich nämlich TEXTVERKETTEN durch die UDF VJoin ersetze, benötige ich eine duale MatrixFml (also Auswahl von 2 Zellen). Unter Zuhilfenahme von WAHL (um den überflüssigen Wert zu eliminieren) sähe Deine Fml dann so aus:
{=WAHL({1.2};"";VJoin(WENNFEHLER(INDEX(B$2:B$12;VERGLEICH(GLÄTTEN(TEIL(WECHSELN(A2;" ";
WIEDERHOLEN(" ";199));SPALTE(A1:Z1)*199-198;199));B$2:B$12;0));"");",";-1))}
Aber das ist mir natürlich zu umständlich und aufwendig, weshalb ich andere Ansätze bevorzuge, zB mit der UDF VSplit als singulare MatrixFml:
{=VJoin(MTRANS(WENN(VSplit(A2)=B$2:B$12;B$2:B$12;""));",";-1)}
MTRANS dient hier iW dazu, die gewünschte Reihenfolge zu erzielen.
Aber es geht auch noch anders, ohne Splitten, falls die Reihenfolge auch an der Liste orientiert sein darf (alles singulare MxFmln):
{=VJoin(WENN(VLike(KLEIN(A2);"*"&KLEIN(B$2:B$12)&"*");B$2:B$12;"");",";-1)}
{=VJoin(WENN(ISTZAHL(VERGLEICH("*"&B$2:B$12&"*";A2;0));B$2:B$12;"");",";-1)}
{=VJoin(WENN(ISTZAHL(SUCHEN(B$2:B$12;A2));B$2:B$12;"");",";-1)}
…und auch mit 3 UDFs:
{=TEIL(VJoin(DataSet("";NoErrRange(B$2:B$12;;ISTZAHL(SUCHEN(B$2:B$12;A2)));;;1); ",");2;99) }
Aber das ist denn doch zu umständlich und mit folgd normalen Fml inkl 3 UDFs eleganter gelöst, allerdings wieder mit Splitten, dafür aber in der WunschReihenfolge:
=VJoin(DataSet(VSplit(A2);B$2:B$12;1);",";-1)
Da kommt wohl keine Fml aus Xl-Fktt mehr mit…! ;-)
Die verwendeten UDFs sind alle im Archiv zu finden und zigmal auch dort verlinkt. Wer daran Interesse hat, mitteilen. Dann setze ich die (aktuellen) Links hier noch nach.
Morhn, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

"einfach" gibt es in diesem Fall nicht
Excel ist ist als Tabellenkalkulation nicht sonderlich gut mit Textverarbeitungsfunktionen ausgestattet.
Das von dir gewünschte ist mit "einfachen" Standardexcel nur mit hohem manuellen Aufwand lösbar.
Nur in Office365 und OfficeMobile ist Funktionen vorhanden, die die Aufgabe direkt per Formel lösbar machen.
Eine mögliche Lösung für Excel365 hat dir Lupo1 gezeigt.
In älteren Excelvarianten bleibt dir dann nur VBA als Lösungsweg. Mit VBA lässt sich die Aufgabe wiederum recht leicht lösen, da hier die notwendigen Funktionen vorhanden sind.
Da wurden dir drei verschiedene Ansätze gezeigt:
- als direkte Makrobearbeitung per Knopfdruck
- Erstellung einer selbstgeschriebenen Funktion in zwei Varianten.
a) als speziell auf das Problem zugeschnittene Funktion mit sehr kurzem, einfachen und leicht verständlichen VBA, welches auch von Laien erstellt und gewartet werden kann
b) mit selbstgeschriebenen allgemeinen Funktionen, die die bisher fehlenden Funktionen nachbilden.
Problem ist hier, dass der Code für diese allgemeinen Funktionen deutlich komplizierter ist und die fertige Formel dann auch noch aus mehreren solcher Funktionen zusammengesetzt werden muss.
b) ist also deutlich komplexer als a), würde aber den Vorteil bieten, dass du ggf auch an andere Stelle für andere Aufgaben einsetzten könnest, sofern du versteht, was sie alles können und wie sie parametrisiert werden müssen (das musst du aber alleine herausfinden, da der Autor dieser Funktionen dur zwar gerne den Code bereit stellt, aber sein weiterer Support insbesondere der Erklärung wie diese Funktionen denn genau funktionieren erfahrungsgemäß eher spärlich ist.
Gruß Daniel

A	B	C
Ab morgen wird alles besser	heute	ab, morgen, besser
Dieser Test ist zufällig	morgen	Test, zufällig
	zufällig
	ab

Ab morgen wird alles besser

heute

ab, morgen, besser

Dieser Test ist zufällig

morgen

Test, zufällig

zufällig

A	B	C
Ab morgen wird alles besser	heute	=wortsuche(A2)
Dieser Test ist zufällig	morgen	=wortsuche(A3)
	zufällig
	ab

Ab morgen wird alles besser

heute

=wortsuche(A2)

Dieser Test ist zufällig

morgen

=wortsuche(A3)

zufällig

Function wortsuche(Satz As String) Dim celltext As String Dim Wörter_arr As Variant Dim i As Long Wörter_arr = Split(Satz, " ") For i = 0 To UBound(Wörter_arr) Set gef = Range("B:B").Find(Wörter_arr(i)) If Not gef Is Nothing Then celltext = celltext & ", " & gef Next i wortsuche = Mid(celltext, 3, Len(celltext)) End Function

Beliebteste Forumthreads (12 Monate)

42
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

183 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einzelne Wörter aus Satz ziehen

42 Beiträge zum Forumthread Beiträge zu diesem Forumthread

183 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

42
Beiträge zum Forumthread

Beiträge zu diesem Forumthread