Rang ermitteln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Lupo,
und würde auch die Nicht-Linearität der Performance-Relation besser erklären. Darauf deutet auch der verlinkte Artikel hin, der auch den initialen Leerlauf einer UDF erklärt. Allerdings lagen die alten Analyse-UDFs nicht als VBA-Code vor, sondern wohl als DLLs. Das AddIn enthielt jedenfalls keine PgmCodes, nur Namen, die wohl die Verlinkung zu den DLLs steuerten. Namenslisten scheint Xl auch intern für UDFs anzulegen. Darauf weist ihre Einbindung in klassische Xl-Anzeigen hin. Außerdem hatte ich neulich mal einen merkwürdigen Fehler in einer Datei, der das zu bestätigen scheint:
Ich sichere Dateien auf einer externen HD, die ich auch benutze, wenn ich mal am Laptop arbeiten muss. Eine so gesicherte und direkt von dieser HD auf dem Laptop bearbeitete und dann auch so dort gespeicherte Datei wies nach Rückspeicherung auf den Arbeits-PC eine UDF-NamensVerschiebung auf. Auf allen Blättern der Mappe waren die UDF-Namen (und nur diese!) nach gleichem Schema vertauscht, so dass keine UDF-haltige Fml mehr fktionierte, da ja meist schon die UDF-Argumente nicht mehr passten, weil die sich nicht verändert hatten. Hier muss folglich durch irgendeinen Fehler (die OS auf beiden PCs sind unterschiedliche Win-Versionen, 7 & 10!) eine interne und wohl mit der Datei gespeicherte Liste durcheinander gekommen sein…
Aber auch bei universellen Xl-Fktt könnte es einen Unterschied zwischen pluraler und singularer MatrixFmlForm geben, den ich bei neopas AGGREGAT-Konstrukten allerdings nicht nachweisen konnte (möglicherweise wg zu geringer TestGrößen).
Habe mir zu dem hiesigen Problem aber auch noch hybride Fmln einfallen lassen, die möglicherweise Laufzeiten zwischen den jeweiligen Varianten ergeben könnten. Falls das so ist, könnte man so ebenfalls hilfsspaltenfrei und für größere Datenmengen arbeiten, falls ein deutliches Ungleichgewicht zwischen negativen und positiven Werten besteht. Dazu folgendes KurzBsp:

Hybrid-	normale (sing Mx-)Fml		plurale Matrixformel		-Formeln	Testdaten	nur Xl-Fktt	zusätzl UDF	Auswerten	zusätzl UDF		483,5	4	4	4	4		-206,5	9	9	9	9		718,0	1	1	1	1		412,4	5	5	5	5		-326,0	7	7	7	7		359,5	6	6	6	6		-118,5	10	10	10	10		715,4	2	2	2	2		579,0	3	3	3	3		326,0	7	7	7	7		C11[:C20]:=WENNFEHLER(RANG(ABS(B11);B$11:B$20);SUMMENPRODUKT(--(-B11<ABS(B$11:B$20)))+1)						D11[:D20]: {=WENNFEHLER(RANG(ABS(B11);B$11:B$20);VRank(-B11;ABS(B$11:B$20)))}						E11:E20: {=WENNFEHLER(RANG(ABS(B11:B20);B11:B20);Alternativ)}				← Name benannter Formel (s.u.)		F11:F20: {=WENNFEHLER(RANG(ABS(B11:B20);B11:B20);VRank(;ABS(B11:B20)))}						Alternativ: =AUSWERTEN(WECHSELN("summe(--(abs(B#)<abs(B11:B20)))+1";"#";ZEILE(B11:B20)))

Wäre interessant zu wissen, ob für diese 4 Fmln die Laufzeiten günstiger ausfallen als mit der jeweiligen Alternative allein.
Gruß & schöWo, Luc :-?

…Werner,
und meine ursprüngliche Bemerkung nur für negative Werte müsste auch für alle positiven Werte gelten, die kleiner sind als der Betrag der kleinsten negativen Zahl. Folglich kann so eine HybridFml für große Datenmengen eigentlich nur eine Ausnahme sein, so wie auch diese ganze Aufgabe. Hier wäre es sicher besser, nur positive Werte zu verwenden, von denen diverse als negative formatiert sein könnten, falls dieses für andere Zwecke wichtig sein sollte. Das könnte mit einem VBA-Pgm erledigt wdn, wenn man auf Hilfsspalten verzichten muss. Genauso könnten aus den Daten aber, durch HerumSetzen einer ABS-Fml (per Pgm), auch nur positive gemacht wdn.
Und hier nun das Gewünschte, mal mit regulär geschriebenen und mal mit per UDF erzeugten diskontinuierlichen Bereichen (wie Du ja sicher noch weißt, gibt auch NoErrRange ggf, wie auch INDEX das kann, ZellBezüge zurück). Falls dabei diskontinuierliche Bereiche entstehen, was ja durch den Zweck dieser UDF quasi vorbestimmt ist, lassen die sich natürlich nicht direkt auf ein TabBlatt abbilden, so dass bei derartigen Versuchen nur #WERT! zurückgegeben würde. Aber bspw Anzahl und Summe können von diesem Bereich genauso gebildet wdn wie eben der Rang ihrer Werte. Alle Werte kann man ansonsten nur noch mit Standard-SortierFktt wie KGRÖSSTE/KKLEINSTE wiedergeben. Mit INDEX geht das ggf nur, wenn alle TeilBereiche gleich groß sind, wobei man dann idR auch noch die Matrix, die entstehen soll, entsprd den QuellZeilen, -Spalten und -TeilBereichen in den Argumenten 2…4 genau vorbilden muss, zB so:
J37:K42: {=INDEX((J45:K46;K47:L48;J49:K50);{1.1;2.2;1.1;2.2;1.1;2.2};{1.2;1.2;1.2;1.2;1.2;1.2};{1.1;1.1;2.2;2.2;3.3;3.3})}
Demggüber gibt die UDF DataSet die Daten in der natürlichen Xl-ZellReihenfolge Spalte-vor-Zeile, zu einem Vektor komprimiert, zurück.

Bsp1: Quelldaten		normale Formeln		plurale Mat	rixformeln	61		5		5	61	82	← 1.Bereich	3	← 1.Bereich	3	82	9		9		9	9	90		2		2	90	92	23	1	7	1	92		59		6	7	23	2.Bereich →	63	2.Bereich →	4	6	59		10		8	4	63		4		10	8	10	*Zellformeln:*			mit UDF →	10	4	E31[:E35]:=RANG(C31;($C$31:$C$35;$D$35:$D$39))			F35[:F39]:=RANG(D35;($C$31:$C$35;$D$35:$D$39))			G31:G40: {=RANG(MTRANS(VSplit(VJoin($C$31:$C$35)&" "&VJoin($D$35:$D$39);;1));($C$31:$C$35;$D$35:$D$39))}						H31:H40: {=MTRANS(VSplit(VJoin($C$31:$C$35)&" "&VJoin($D$35:$D$39);;1))}				← Hilfsformel für Quelldatenansicht		Bsp2: Quelldaten		singulare Matrixformeln		plurale Mat	rixformeln	24	66	7	2	7	24	10	47	#NV	4	2	66	72	xyz	1	#NV	4	47	12	45	8	5	1	72	abc	39	#NV	6	8	12	11		9	#NV	5	45	6	59	#NV	3	6	39	Anmerk: NoErrRange gibt hier einen diskontinuierlichen Bereich* zurück,				9	11	*Zellformeln:*		DataSet bildet den Gesamtvektor.		3	59	E45[:F51]: {=RANG(WENN(ISTZAHL(C45);C45);NoErrRange($C$45:$D$51;;ISTZAHL($C$45:$D$51)($C$45:$D$51>10)))}*						G45[:H51]: {=RANG(MTRANS(DataSet(NoErrRange($C$45:$D$51;;ISTZAHL($C$45:$D$51)($C$45:$D$51>10));"";2;;1));*						NoErrRange($C$45:$D$51;;ISTZAHL($C$45:$D$51)($C$45:$D$51>10)))}*					(Hilfsfml f.QD-Ansicht)	H45[:I51]: {=MTRANS(DataSet(NoErrRange($C$45:$D$51;;ISTZAHL($C$45:$D$51)($C$45:$D$51>10));"";2;;1))}*						* Diskontinuierlicher Bereich zu 6 Teilen:			(C45:D45;D46;C47:C48;D48:D49;C50;D51)

Im 1.Bsp habe ich nicht DataSet zur Bildung des VglsVektors benutzt, sondern ein VSplit-VJoin-Konstrukt, das iW dem entspricht, was auf der zuvor erwähnten WebSite so euphorisch für TEXTVERKETTEN (+Trivial-UDF) begrüßt wurde. DataSet erspart diesen Umweg, falls es nicht gleich über mehrere Blätter gehen soll (mit TEXTVERKETTEN!)…
Morrn, Luc :-?
ANHANG - UDF-Links:
DataSet → https://www.herber.de/forum/archiv/1504to1508/t1507939.htm#1508954
NoErrRange → https://www.herber.de/forum/archiv/1508to1512/t1508209.htm#1508215
VJoin & VSplit → https://www.herber.de/bbs/user/99024.xlsm (BspDatei)

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich	N/A
A1:A6	=RANG(C1;$C$1:$C$6)
C1:C6	=ABS(B1)

31 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread