Clever-Excel-Forum

Normale Version: Makro, welches das 1. vorkommendes Wort rauskopieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
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
Hallo Tolik,

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

Gruß Uwe
Habe die Datei etwas bearbeitet vielleicht ist es dann verständlicher :)
(18.10.2017, 14:03)Tolikk1995 schrieb: [ -> ]Habe die Datei etwas bearbeitet vielleicht ist es dann verständlicher :)

keine Ahnung, da es keine xlsx-Datei ist.

Gruß Uwe
Habs geändert, sry  :19:
(18.10.2017, 14:29)Tolikk1995 schrieb: [ -> ]Habs geändert, sry  :19:

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

Gruß Uwe
Oh man tut mir leid !  :20:

Jetzt müsste es stimmen :19:
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: