ein bestimmtes Wort ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jenny,
total einfach, das geht easy ohne VBA.
diese Formel nach B2 und dann runter kopieren:
"{=WENN(WENN(LINKS(WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"");2)="" "";WECHSELN(GLÄTTEN(WENNFEHLER(LINKS(WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"");FINDEN("" #"";WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"")));""""));""¹"";"""");"""")="""";"""";RECHTS(WENN(LINKS(WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"");2)="" "";WECHSELN(GLÄTTEN(WENNFEHLER(LINKS(WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"");FINDEN("" #"";WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"")));""""));""¹"";"""");"""");MATCH("" "";LINKS(RECHTS(WENN(LINKS(WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"");2)="" "";WECHSELN(GLÄTTEN(WENNFEHLER(LINKS(B2;FINDEN("" #"";WECHSELN(WECHSELN(A2;"" "";"" "");"".."";""#"")));""""));""¹"";"""");"""");SPALTE(2:2));1);0)-1))}
"
Natürlich mit STRG+SHIFT+ENTER abschließen!
Nein es war natürlich nicht total einfach :-)
Ich lade dir meine Datei hoch, in der ich die Formel mit Hilfsspalten darstelle (und am schluß die Zusammengefahrene Monsterformel aus den Hilfsspalten.
Ich habe mit "wechseln" erstmal die Code(160) gegen echte Leerzeichen getauscht, das sieht in der Formel natürlich aus als hätte ich sinnlos Leerzeichen gegen Leerzeichen getauscht! Dann habe ich ".." (nur 2! nicht "...") mit wechseln gegen "#" getauscht, um mit "#." einen eindeutigen Platzhalter zu finden der NICHT von Excels Autokorrektur getötet wird.
Hier die Datei:
https://www.herber.de/bbs/user/86079.xlsx
Tolle Knobelaufgabe, das hat Spaß gemacht.
Grüße,
Klaus M.vdT.

Hi Jenny,
hier in Spalte F noch ein Vorschlag (in F2 als Matrixformel, dann nach unten kopieren):

	A	D	E	F
1	Directed by	Last Name	Monsterformel	Erich
2	xxx abc ... xxx xcx			abc
3	abc ... pro	#NV	#NV	abc
4	abc
5	abc...			abc
6	abc...			abc
7	abc...			abc
8	...
9	... xxx
10	#DIV/0!	#DIV/0!	#DIV/0!
11	Producers
12	Jason Beckman ... executive producer	Beckman	Beckman	Beckman

Formeln der Tabelle

Zelle	Formel
D2	{=WENN(C2="";"";RECHTS(C2;VERGLEICH(" ";LINKS(RECHTS(C2;SPALTE(2:2)); 1); 0)-1))}
E2	{=WENN(WENN(LINKS(WECHSELN(WECHSELN(A2;" ";" "); "..";"#"); 2)=" ";WECHSELN(GLÄTTEN(WENNFEHLER(LINKS(WECHSELN(WECHSELN(A2;" ";" "); "..";"#"); FINDEN(" #";WECHSELN(WECHSELN(A2;" ";" "); "..";"#"))); "")); "¹";""); "")="";"";RECHTS(WENN(LINKS(WECHSELN(WECHSELN(A2;" ";" "); "..";"#"); 2)=" ";WECHSELN(GLÄTTEN(WENNFEHLER(LINKS(WECHSELN(WECHSELN(A2;" ";" "); "..";"#"); FINDEN(" #";WECHSELN(WECHSELN(A2;" ";" "); "..";"#"))); "")); "¹";""); ""); VERGLEICH(" ";LINKS(RECHTS(WENN(LINKS(WECHSELN(WECHSELN(A2;" ";" "); "..";"#"); 2)=" ";WECHSELN(GLÄTTEN(WENNFEHLER(LINKS(B2;FINDEN(" #";WECHSELN(WECHSELN(A2;" ";" "); "..";"#"))); "")); "¹";""); ""); SPALTE(2:2)); 1); 0)-1))}
F2	{=WENNFEHLER(WECHSELN(WECHSELN(WECHSELN(TEIL(LINKS(A2;FINDEN("...";A2)-1); 1+MAX((TEIL(LINKS(A2;FINDEN("...";A2)-2); SPALTE(2:2); 1)=" ")*SPALTE(2:2)); 999); " ";""); "¹";""); ZEICHEN(160); ""); "")}
A10	=1/0

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Eine Bemerkung zu "zweitens" - auch wenn du das inzwischen sicher richtig machst:
Du musst die Matrixformel in eine einzelne Zelle eintragen, dann kopieren.
@Klaus:
"Wenn du die Formel zB in C2 einfügst, darfst du sie danach kopieren und bei C3:C100 einfügen.
NICHT bei C2:C100, denn damit würdest du das Array ändern :-)"
Das stimmt nicht. Wenn man die Formel in C2 eingefügt hat, darf man sie auch auf C2:C100 kopieren.
C2 ist kein Array.
Wenn man eine Formel in ein Array C2:C5 einträgt (also diese Zellen vor der Formeleingabe markiert),
kann man die Formel in C2 (oder die in C4 oder ...) nicht mehr einzeln ändern. Dafür der Fehlerhinweis.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread