Zwei unterschiedliche Worte in Zelle finden und auslesen – ergänzende Anfrage

[Stephan]

Hallo, ihr freundlichen Helfer im Forum,

vor einigen Tagen wurde dazu schon mal eine Anfrage gestellt, und ich hab da noch eine ergänzende Frage, die eigentlich in der Fragestellung auch schon vorhanden war.

 Ich möchte in folgenden Zellen (A2 bis A9) die Buchstabenkombinationen "DFI" und "DASH" suchen und pro Zeile auslesen. 
 
Je nachdem welches der Worte in der Zelle ist soll dieses gefunden und in eine neue Zelle eingefügt werden.
Zeile A2: "DFI" in A2 ->"DFI" soll in B2 eingetragen werden
Zeile A3: "DFI" in A3 ->"DFI" soll in B3 eingetragen werden
Zeile A4: "DASH" in A4 ->"DASH" soll in B4 eingetragen weden
 
Ergänzt um der Fragestellung gerecht zu werden:
(bleibe ich mal bei den Vorgaben)
Zeile 5: „DASH“ und „DFI“ in A5 -> „DASH DFI“ soll in B5 eingetragen werden
                (natürlich) in der Reihenfolge des Auffindens (oder umgekehrt – falls einfacher).
                (Kann natürlich auch, falls noch einfacher nach Zelle B5 und C5 ausgegeben werden.)


Welche Lösung (mit oder ohne VBA) gäbe es dafür?

Freundliche Grüße
Stephan

[steve1da]

Hola,
so?

Code:

=WENN(ISTZAHL(FINDEN("DASH";A2));"DASH";"")&" "&WENN(ISTZAHL(FINDEN("DFI";A2));"DFI";"")

Gruß,
steve1da

[Stephan]

Hallo Steve1da,

ok, soweit war ich im Prinzip ja auch schon. Mit den getrennten Zellen war natürlich Quatsch, da kommt in jede Zelle die Abfrage (beim Schreiben nicht nachgedacht). Aber wo ich nicht weiterkomme, ist die Reihenfolge des Auftretens beizubehalten. Ich dachte zur Vermeidung eines Bandwurms, würde es eine kürzere Formel denn ein Monster geben.

Freundlichen Gruß
Stephan

[shift-del]

Moin

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G
1							DFI
2	DFI	DFI					DASH
3	gtz DFI	DFI
4	DASH 771	DASH
5	DASH dfdggh DFI	DASH DFI
6	DFI 887 DASH	DFI DASH

Zelle	Formel
B2	=TEXTVERKETTEN(" ";WAHR;WENNFEHLER(INDEX($G$1:$G$2;VERGLEICH(XMLFILTERN("<y><z>"&WECHSELN(A2;" ";"</z><z>")&"</z></y>";"//z");$G$1:$G$2;0));""))

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[Stephan]

shift-del, danke schön.

Als ich den Lösungsvorschlag sah, sagte ich wow, wäre ich nie drauf gekommen.
Aber in der Praxis komme ich damit doch noch nicht klar, siehe angehängte Datei, wenn der gesuchte Text nicht am Anfang oder Ende steht.

Vielleicht gibt es doch noch eine, auch für mich, nachvollziehbare Lösung.
Trotzdem schon mal Dank, dir und Steve1da.

Freundlichen Gruß
Stephan

[shift-del]

Entferne das @ aus der Formel.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I
1					steve1da		DASH		shift-del
2	Im winter hat DASH wenig Lust auf DFI				DASH DFI		DFI		DASH DFI
3	I have DASH				DASH				DASH
4	DFI ist nicht unser Ding				DFI				DFI
5	DFI ist nicht unser Ding				DFI				DFI
6	DASH ist nicht unser Ding				DASH				DASH
7	nicht mit DFI				DFI				DFI
8	Mit DFI muss DASH nichtszu tun haben				DASH DFI				DFI DASH
9	Wer DASH nicht nutzt, weiß nicht was DASH leistet				DASH				DASH DASH
10	Mit DASH muss DFI nichtszu tun haben				DASH DFI				DASH DFI

Zelle	Formel
E2	=WENN(ISTZAHL(FINDEN("DASH";A2));"DASH";"")&" "&WENN(ISTZAHL(FINDEN("DFI";A2));"DFI";"")
I2	=TEXTVERKETTEN(" ";WAHR;WENNFEHLER(INDEX($G$1:$G$2;VERGLEICH(XMLFILTERN("<y><z>"&WECHSELN(A2;" ";"</z><z>")&"</z></y>";"//z");$G$1:$G$2;0));""))

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[Stephan]

shift-del, ich danke dir für die Antwort,

aber leider hilft sie nicht weiter (ist ja die gleiche Formel wie in deinem vorigen Beitrag), deshalb vermute ich, dass es so mit Excel 2016 bzw. 2019 nicht zu lösen ist.

Außerdem, wo soll ich den Klammeraffen (@) entfernen, sehe ihn in keiner Formel.
Vielleicht gibt es für das Betriebssystem (oder für einen der nichts findet) doch eine entsprechende Lösung.

Hoffe doch noch auf eine VBA-freie Lösung.

Freundlichen Gruß
Stephan

[shift-del]

Dann probiere mal die Formel mit STRG-UMSCHALT-ENTER einzugeben.

[Stephan]

Hallöchen,
hatte ich auch schon probiert.

Werde noch einen  anderen Rechner probieren, vielleicht mag dieser (inzwischen 2019) einfach nur nicht die Formel (bzw. den Inhalt (xlmfiltern).
Hätte nicht gedacht, dass das eine so schwere Geburt sein könnte.

Freundlichen Gruß
Stephan

[Gast 123]

Hallo

ich habe mal eine einfache VBA Lösung hochgeladen.  Dem Makro ist es egal wie gross der Bereich in Spalte A ist. Das kann 1 Million Zeilen prüfen!

mfg Gast 123

---

Sorry vergessen:   ausgelöst wird es durch Maus Doppeklick in der Tabelle.  In jeder beliebigen Zelle.