in text 6 Grossbuchstaben finden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Johannes,
... nachfolgend mein Formellösungsvorschlag. Nachfolgende Monsterformel in C2 kann man mit Hilfe von benannten (Teil-)Formel noch strukturieren, so dass sie dadurch etwas verständlicher lesbar ist. So würde ich es jedenfalls tun, wenn ich sie anwenden müsste. Hab dies aber hier (noch) nicht getan.
Die Formel müsste und könnte noch etwas erweitert werden, wenn der Datenwert in C8 (mit innen liegenden Ziffern) nicht gefunden werden soll. Momentan sind auch noch Zeichen mit einem ZeichenCODE größer 90 möglich, könnten durch Formelerweiterung auch noch unberücksichtigt bleiben.
Meine Beispieltexte in A3:A12 sind natürlich willkürliche Testtexte. Die Zeichenkette "ABCKCAB" in A9 ist länger als 6 Zeichen und wird geäß Deiner Vorgabe nicht als Ergebniswert ermittelt.
Die Formel C2 ist einfach nach unten kopiert:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	Text		gefunden
2	98005_theTrendTrader MT4 Balance Forex DailySame EURJPY M5 Leverage100 FixedLots TrendH1 GMT0		EURJPY
3	UaUZx2x ABCCBA nZo		ABCCBA
4	FEDCBA n6Zo		FEDCBA
5	1234BB ECBAGZ		ECBAGZ
6	a AB1234_DCBBCT_h		DCBBCT
7	irgendwas_US100 und		US100
8	1234aAhj45_FE44BA_a		FE44BA
9	UK1234 ABCKCAB nZo
10	a_F12345 EEEDBA h		EEEDBA
11	und sonst noch DAX40		DAX40
12	AB_ZHJU_alles nix

Zelle

Formel

=WENNFEHLER(GLÄTTEN(TEIL(" "&WECHSELN(A2;"_";" ")&" ";AGGREGAT(15;6;ZEILE($1:$999)/(IDENTISCH(TEIL(" "&WECHSELN(A2;"_";" ");ZEILE($1:$999);7);GROSS(TEIL(" "&WECHSELN(A2;"_";" ");ZEILE($1:$999);7))))/(CODE(TEIL(A2;ZEILE($1:$999);1))&gt57)/(CODE(TEIL(A2;ZEILE($6:$999);1))&gt57)/(TEIL(" "&WECHSELN(A2;"_";" ")&" ";ZEILE($8:$999);1)=" ")/(TEIL(" "&WECHSELN(A2;"_";" ")&" ";ZEILE($1:$999);1)=" ");ZEILE($1:$999));8));WENN(ISTZAHL(FINDEN("US100";A2;1));"US100";WENN(ISTZAHL(FINDEN("DAX40";A2;1));"DAX40";"")))

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Gruß Werner
.. , - ...

…Johannes,
die eine eigene Fkt (VBA-basierte UDF) enthält und sowohl das 1. als auch die beiden von dir genannten Sonderkriterien erfüllt resp diese Texte liefert. Dabei handelt es sich um eine singulare MatrixFml, die je nach Xl-Version einen speziellen FmlAbschluss erfordert oder eben nicht (deshalb nur mit führendem + gekennzeichnet):
+GLÄTTEN(TEIL(A1;MAX(VLike(A1;"*"&WAHL({1.2.3};WIEDERHOLEN("[A-Z]";6);"US100";"DAX40")&"*";-1));6))
Voraussetzung ist, dass nur eines der genannten 3 Suchworte pro Text auftritt. Anderenfalls oder falls ein solches Wort mehrfach auftritt, wird wg MAX stets das letzte gefunden.
Morhn, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Sub Grossbuchstaben_auflisten() Dim lz1 As Long, z As Long With Worksheets("Suchtabelle") 'LastZell in Suchspalte ermitteln lz1 = .Cells(Rows.Count, "A").End(xlUp).Row z = 2 '1.Zeile zum auflisten 'Schleife um alle inträge zu prüfen For Each AC In .Range("A2:A" & lz1) Select Case AC.Value Case "EURJPY", "XXXYYY", "uuuZZZ" 'Ergebnis in beliebiger Spalte auflisten (gleiche Sheet!) '** Worksheets("Zieltabelle").Cells(z, "B") = AC.Value .Cells(z, "B") = AC.Value z = z + 1 End Select Next AC End Sub

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread