SVerweis mit Semikolon

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

	B	C
6	Nr.	Values
7	A-001-A1	mus1;hztt6
8	A-001-A2	res85
9	A-001-A3	Ob 2;gff45
10	B-001-A1	gff45
11	B-001-A2	k34
12	B-001-A5	ffd4555
13	Formel-Ergebnis
14	A-001-A1	mus1;gff45;ddasd
15	A-001-A2	Ob 2;res85
16	A-001-A3	ka 21
17	A-001-A4	od15
18	B-001-A1	l34
19	B-001-A2	k34;hztt6
20	B-001-A3	fhf25;wsde
21	B-001-A4	125
22	B-001-A5	ffd4555;45584
23	B14:B22: {=MTRANS(VSplit(VJoin(Input!B5:B19;;-1)))}
24	C14[:C22]: {=VJoin(WENN(Input!B5:B19=Result!B14;Input!C5:C19;"");";";-1)}

Nr.

Values

A-001-A1

mus1;hztt6

A-001-A2

res85

A-001-A3

Ob 2;gff45

B-001-A1

gff45

B-001-A2

k34

B-001-A5

ffd4555

Formel-Ergebnis

A-001-A1

mus1;gff45;ddasd

A-001-A2

Ob 2;res85

A-001-A3

ka 21

A-001-A4

od15

B-001-A1

l34

B-001-A2

k34;hztt6

B-001-A3

fhf25;wsde

B-001-A4

125

B-001-A5

ffd4555;45584

B14:B22: {=MTRANS(VSplit(VJoin(Input!B5:B19;;-1)))}

C14[:C22]: {=VJoin(WENN(Input!B5:B19=Result!B14;Input!C5:C19;"");";";-1)}

Hallo Luc,
Übrigens, Franz hat eine reine FktsProzedur ohne irgendeinen Zusatz eingestellt.
Was für Zusätze fehen denn?
Ich hätte evtl. noch ein paar Kommentarzeilen mit Erläuterung zu den 3 Variablen einfügen können.
Das sieht für mich nach UDF für ZellFmlEinsatz aus,
Ja dafür ist sie hier gedacht. Etwas anderes ist ja auch nicht notwendig.
noch dazu nach einer nicht-universellen Lösung
Nach einer eierlegenden Wollmilchsau war hier ja auch nicht gefragt.
in neuerer MS-Xl-Tradition (nicht in der alten, die allen FmlKünstlern erst ihr Hobby ermöglicht)!
Was ist denn "neuerer MS-Xl-Tradition"?
Daran stört mich nicht nur der Pseudo-UN-Zusatz zum FktsNamen, den man bei keiner xlStandardFkt findet (bei meinen UDFs auch nicht)!
Wenn dir der Name nicht gefällt, dann kannst du ihn ja umbenennen in fncSVERWEIS_mehr_als_einer oder fncVLOOKUP_more_than_one, damit es auch schön anglophil klingt.
Man sollte den End-User nicht mit internen PgmmierungsAspekten und PgmmiererGewohnheiten konfrontieren!
Bevor ich mich bei einem Programm-Code von 8 Zeilen auch noch mit allen pragmatischen und religiösen Aspekten von Programmierergewohnheiten rumschlage, erlaube ich mir die Konfrontation mit dem evtl. nicht allen Konventionen der Programmier-Kunst entsprechenden Code-Schnippsel.
Ich wußte auch nicht, dass zu den Nebenwirkungen der neueren MS-XL-Traditon die Verwendung der Buchstabenfolge "Pg" für "Progra" gehört und dass beim Zusammenfassen mehrerer Substantive zu einem Wort die Großschreibung beibehalten wird.
Außerdem wird durch die ArgumentDeklaration As Range hier zwar die Verwendung der Range-Methode .Find[Next] ermöglicht, aber die hat Grenzen und die EinsatzVorteile überwiegen nicht die -Nachteile.
Ich hätte die Variablen natürlich auch als Variant deklarieren können. Dann wäre aber erst einmal eine Prüfung der übergeben Werte erforderlich (Einzelwert, Zellbereich, Daten-Array) bevor man die eigentliche Auswertung starten kann.
Shame on me, dass ich hier nicht an die ggf. etwas schnelleren Methoden Find und FindNext gedacht hab, sondern nur die lahme For-Next-Schleife eingebaut hab. So verliert der arme Levon bei jeder Neuberechnung seiner Datei möglicherweise noch ein paar 1/10 Sekunden seiner kostbaren Arbeitszeit.
Ich ziehe jedenfalls meine UDF(s) vor. ;-)
Wenn deine UDFs so tolle Namen haben den neuesten Traditionen der MS-XL-Programmierung folgen, dann hättest du doch hier auch deine UDF-Lösung zu diesem kleinen Problem als Musterbeispiel der Programmierkunst präsentieren können.
Dann könnte ich als Ingenieur der Verfahrenstechnik mit dem "Hobby" VBA-Programmierung für die letzten 3 bis 5 Jahre meines Berufslebens doch noch etwas lernen.
LG
Franz

…zu einer AW an dich, Franz;
na, da hast du dich ja wohl auf den Schlips getreten gefühlt, was nicht unbedingt meine Absicht war… ;-)
Aber d(ein)er Reihe nach:
1. Mit Zusätzen war eine kleine SubProzedur gemeint, aus der ich hätte entnehmen können, dass deine UDF nicht primär für den ZellFmlEinsatz gedacht war, da Luschi anscheinend so etwas vermutete. Es fehlt also lt meiner Vermutung und deiner Bestätigung nichts!
2. Damit hast du recht!
3. Ich hatte 2 Fml-Bspp mit UDFs, die im Archiv bereits vorhanden sind, eingestellt. Darauf habe ich in der Vergangenheit so oft verlinkt, dass sie per RECHERCHE leicht zu finden sein dürften. Bei einer davon kann alternativ auch eine Schleife genutzt wdn. Von eierlegender Wollmilchsau war nie die Rede, sondern von universeller bzw allgemeiner Einsetzbarkeit. Wenn UDFs, die auch für ähnliche, aber komplexere Aufgaben eingesetzt wdn können, bereits existieren, warum dann eine spezielle nur für einen relativ eingeschränkten Fall?
4. Neuere Ms-Xl-Tradition ist die Einschränkung der Anwendbarkeit nur auf ZellBereiche. Das mag hierbei der häufigste Fall sein, es sind aber auch Datenfelder aus Ausdrücken (TeilFmln als Argument) vorstellbar. So wurden die Standard-Xl-Fktt ursprünglich auch konzipiert, woran man sich später nicht mehr gehalten hat (Deklaration As Range lässt nur ZellBereiche zu!). Bei Herber hatte ich mich hierzu auch schon geäußert (vgl aber auch mein Statement unter dem Link in meiner AW an Luschi!).
5. Das hast du missverstanden! Mich stört nur der unnötige Namenszusatz fnc (in der vermeintlichen Tradition der sog Ungarischen Notation). Nenne mir nur eine einzige MS-Xl-Fkt, die damit anfängt (gesehen habe ich das bei MS wohl auch schon mal, aber woanders)! UDFs wdn automatisch ohnehin der FktsKategorie benutzerdefiniert zugeordnet, da müssen sie nicht auch noch alle mit dem gleichen Kürzel anfangen! So etwas macht man mitunter in GroßProjekten, an denen mehrere arbeiten, wenn das zuvor in den NamensKonventionen so festgelegt wurde. Diese Fktt wdn (bzw sollten wdn) dann aber nur pgm-intern verwendet. Dass ich engl FktsNamen und dt ArgumentNamen verwende, hat andere Gründe. Dahingegen wirkt die Verwendung von UN-Kürzeln auf mich (und einige Andere) als gewolltes Erwecken des Eindrucks von Professionalität, was du sicher nicht nötig hast… ;-]
6. Prg, Prog bzw Pgm sind gängige Abkürzungen für Programm, die ich schon seit mindestens 40 Jahren kenne. Die interne Großschreibung ersetzt einen Bindestrich. JavaScript macht das bspw mit - in HTML-Namen, weil die in dessen Namen verboten sind. Ich habe das als nette Alternative empfunden, deutsche Bandwurmwörter lesbarer zu gestalten… ;-)
7. Was du intern anwendest, war mir nicht wichtig (ich verwende die genannten in UDFs auch kaum mal). Mir ging's, wie bereits erwähnt, um As Range. Natürlich hätte das etwas mehr Arbeit bedeutet, aber das ist immer so, wenn man keine „Eintagsfliegen“ bzw perspektivisch für den Papierkorb produzieren will. Du darfst das natürlich, aber umso schwerer wiegt es, wenn sich die MS-Profis darum häufig auch nicht sorgen…
8. Wie gesagt, meine UDFs sind in ausreichender Zahl im Archiv vertreten, du hättest also schon längst „etwas lernen“ können. Habe ich ja auch einst von dir, indem ich deine UDF Feiertag zu meiner Holiday erweiternd umgebaut habe, was ich dir seinerzeit auch mitgeteilt hatte. Mein Berufsleben liegt allerdings schon hinter mir.
Nix für ungut, Luc :-?

Beliebteste Forumthreads (12 Monate)

	B	C
6	Nr.	Values
7	A-001-A1	mus1;gff45;ddasd
8	A-001-A3	ka 21
9	B-001-A1	l34
10	B-001-A2	k34;hztt6
11	B-001-A5	ffd4555;45584
12	A-001-A2	Ob 2;res85
13

	B	C	D
4	Nr	Source	Hilfsspalte
5	A-001-A1	mus1	mus1;gff45;ddasd
6	A-001-A2	Ob 2	Ob 2;res85
7	A-001-A3	ka 21	ka 21
8	A-001-A4	od15	od15
9	B-001-A1	l34	l34
10	B-001-A2	k34	k34;hztt6
11	B-001-A3	fhf25	fhf25;wsde
12	B-001-A4	125	125
13	B-001-A5	ffd4555	ffd4555;45584
14	A-001-A1	gff45	gff45;ddasd
15	A-001-A2	res85	res85
16	B-001-A2	hztt6	hztt6
17	B-001-A3	wsde	wsde
18	B-001-A5	45584	45584
19	A-001-A1	ddasd	ddasd
20

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread