Makro, welches das 1. vorkommendes Wort rauskopieren

[Tolikk1995]

Guten Tag :19: ,

ich habe folgendes Problem : Ich habe eine bestimmte Wortgruppe : [X, Y , Z...]

Und dann habe ich verschiedene Texte, in denen diese Wörter in verschiedener Reihenfolge vorkommen.

Ich brauche jetzt ein Makro, dass mir bei jedem Text immer das Wort wiedergibt, welchen in dem Text als erstes vorkommt und weiss nicht,

wie ich das in die Tat umsetzen soll.

Im Anhang ist eine Beispieldatei. Ist sowas generell machbar ?

Vielen Dank im Vorraus für die Hilfe!

Grüße

Tolikk

[Kuwer]

Hallo,

Sub aaa()
 ActiveCell.Value = Mid(Split(ActiveCell.Value, ",")(0), 2)
End Sub

und als Formel zB: =TEIL(B2;4;SUCHEN(",";B2)-4)

Gruß Uwe

[Tolikk1995]

Hallo,

danke für die Antwort, das ist aber nicht exakt, was ich suche, da dies nicht funktioniert, wenn ich einen Fließtext habe.

Bräuchte eher sowas wie: Das erste Wort, welches im Text vorkommt aus einer gegebenen Liste von Wörtern, soll ausgegeben werden.

Ist sowas machbar ?

Grüße

Tolik

[Kuwer]

Hallo Tolik,

zeige bitte konkrete Beispiele entsprechend Deiner Frage und bitte als xlsx-Datei.

Gruß Uwe

[Tolikk1995]

Habe die Datei etwas bearbeitet vielleicht ist es dann verständlicher :)

[Kuwer]

Habe die Datei etwas bearbeitet vielleicht ist es dann verständlicher :)

keine Ahnung, da es keine xlsx-Datei ist.

Gruß Uwe

[Tolikk1995]

Habs geändert, sry  :19:

[Kuwer]

Habs geändert, sry  :19:

es ist aber keine Exceldatei! Nur die Endung ändern hätte ich auch hinbekommen.

Gruß Uwe

[Tolikk1995]

Oh man tut mir leid !  :20:

Jetzt müsste es stimmen :19:

[Tolikk1995]

Okay, hat sich erledigt, trotzdem danke für Deine Zeit :)

also falls das jemanden irgendwann interessiert:

1.) Mit dem Finden-Befehl nach den Wörtern suchen , dies gibt die Position der Zeichenfolge im Text an
2.) Min-Funktion, zur bestimmung der Kleinsten Zahl, was gleichbedeutend damit ist, dass dieses Wort als erstes im Text vorkommt

3) =WENN( 1.) = 2.);"das Wort"; " ")

etwas umständlich aber es funktioniert :19: