Spezielle RANG-Ordnung

Werte Xl-Gemeinde, liebe UDF-Freunde & verehrte Formel-Cracks & -Freaks;
ich habe mich vor einigen Wochen mal mit dem beschäftigt, was MS ab Xl14/2010 aus der „guten“ alten RANG-Fkt gemacht hat, und mir überlegt, was hier wirklich benötigt würde. Das Ergebnis dieser Überlegungen ist im 1.Abschnitt der unten gezeigten Tabelle dargestellt. Hierbei habe ich einerseits die Ergebnisse der beiden neuen Abkömmlinge dieser Fkt und andererseits das dargestellt, was ich an Neuem erwartet hätte. Daneben zeige ich, wie man mit anderen Xl-Standard-Fktt (und ggf UDFs) zu gleichen Ergebnissen bzw dem von mir erwarteten Neuen kommen kann, dem ich im Stil der MS-„Dotterei“ treffende(re) Bezeichnungen gegeben habe. Denn, was sollen uns die MS-Namen, denen die dt Übersetzung diesmal genau entspricht, eigentlich sagen?
&bullet; Was ist an RANG.GLEICH (Rank.eq) eigentlich gleich? Es ist doch nur die alte RANG-Fkt, deren ggf „lückenhafte“ Ergebnisse ja nur auf der Sortierung und der Auswahl des 1.Treffers beruhen, wie man unschwer anhand der ErsatzFml nachvollziehen kann!
&bullet; Wieso soll RANG.MITTELW (Rank.avg) eigentlich ein Durchschnitt sein, ist doch der Mittelwert von zB 3× Rang2 auch nur 2, hier aber 3? Es ist tatsächlich ein Durchschnitt, aber der der Ränge 2…4! Die ausgelassenen Ränge wdn also in die Ermittlung einbezogen. Das kann zum kuriosen Ergebnis führen, dass 3 gleiche beste Werte nur den Rang2 bekommen → es gibt dann keinen Rang1!
&bullet; Wenn hier der mittlere von 3en herauskommt, warum sollte es dann nicht auch eine RangVariante geben, die den jeweils letzten Rang verwendet? Wie man das bei Bedarf erreichen kann, habe ich per Fml gezeigt.
&bullet; Aber viel gefragter sind doch lückenlose Ränge. Warum hat MS nicht auch eine RANG-Variante spendiert, die genau das tut? Sicher kann man das mit Fmln und auch noch universeller als nur mit ZellBereichen erreichen, wie ich es hier zeige und excelformeln.de ohnehin, aber warum nicht auch mit einer RANG-Variante?
&bullet; Und wenn es nun schon einen RANG.MITTELW gibt, warum nicht auch einen lückenlosen Rang, der alle gleichrangigen Ergebnisse durchnummeriert?
&bullet; Dazu kommt natürlich noch meine StandardFrage an MS, warum nur für ZellBereiche, nicht auch für Datenfelder aus Ausdrücken (expressions) als Argument?
Wie ich mir eine solche Rang-Fkt vorstelle, zeige ich anhand dieser 5 ErgebnisKategorien in den unteren TabellenBlöcken, die diverse Ergebnisse meiner UDF VRank zeigen. Deren Entwicklung ist zwar (vorläufig) abgeschlossen, könnte aber noch etwas verändert bzw erweitert wdn, zB RANG.Zähle (Rank.count) von einfachem Durchzählen auf generelle AnteilErmittlung als Dezimale, aber das kann man quasi auch über die %-Schiene erreichen (dazu später mehr).
Vorerst möchte ich an dieser Stelle meine (einleitenden) Ausführungen beenden. Es folgt die angekündigte Darstellung:

	A	B	C	D	E	F	G	H	I	J	K
1	a: Punkte	RANG.ERSTE ¹	·> Vergleich·Kgrösste	RANG.MITTE ²	·> Rang·Zählenwenn	RANG.LETZTE	·> Rang·Zählenwenn	RANG.FOLGE	(do. plural)	RANG.ZÄHLE	(do. plural)
2	25	4	4	4,5	4,5	5	5	4	4	4,1
3	13	7	7	8	8	9	9	6	6	6,1
4	28	3	3	3	3	3	3	3	3	3
5	40	2	2	2	2	2	2	2	2	2
6	13	7	7	8	8	9	9	6	6	6,2
7	22	6	6	6	6	6	6	5	5	5
8	25	4	4	4,5	4,5	5	5	4	4	4,2
9	41	1	1	1	1	1	1	1	1	1
10	13	7	7	8	8	9	9	6	6	6,3
11	B2[:B10]:=RANG.GLEICH(A2;A$2:A$10)			D2[:D10]:=RANG.MITTELW(A2;A$2:A$10)				F2[:F10]:=ZEILEN(A$2:A$10)+1-RANG(A2;A$2:A$10;1)
12	C2[:C10]: {=VERGLEICH(A2;KGRÖSSTE(A$2:A$10;ZEILE(L$1:L$9));0)}				E2[:E10]:=RANG(A2;A$2:A$10)+(ZÄHLENWENN(A$2:A$10;A2)-1)/2				G2[:G10]:=RANG(A2;A$2:A$10)+ZÄHLENWENN(A$2:A$10;A2)-1
13	H2[:H10]: {=VERGLEICH(RANG(A2;A$2:A$10);KKLEINSTE(VSplit(VJoin(RANG(A$2:A$10;A$2:A$10);;-1);;1);ZEILE(L$1:L$9));0)}									¹ RANK.EQ
14	I2:I10: {=VERGLEICH(RANG(A2:A10;A2:A10);KKLEINSTE(VSplit(VJoin(RANG(A2:A10;A2:A10);;-1);;1);ZEILE(L1:L9));0)}										² RANK.AVG
15	J2[:J10]: {=VERGLEICH(RANG(A2;A$2:A$10);KKLEINSTE(VSplit(VJoin(RANG(A$2:A$10;A$2:A$10);;-1);;1);ZEILE(L$1:L$9));0)+WENN(ZÄHLENWENN(A$2:A$10;A2)>1;ZÄHLENWENN(A$2:A2;A2);)/10}
16	a: Punkte	RANG.Erste ·> VRank 0±0		RANG.Mitte ·> VRank 0+1		RANG.Letzte ·> VRank 0+2		RANG.Folge ·> VRank 0-2		RANG.Zähle ·> VRank 0-1
17	25	4	4	4,5	4,5	5	5	4	4	4,1	4,1
18	13	7	7	8	8	9	9	6	6	6,1	6,1
19	28	3	3	3	3	3	3	3	3	3,1	3,1
20	40	2	2	2	2	2	2	2	2	2,1	2,1
21	13	7	7	8	8	9	9	6	6	6,2	6,2
22	22	6	6	6	6	6	6	5	5	5,1	5,1
23	25	4	4	4,5	4,5	5	5	4	4	4,2	4,2
24	41	1	1	1	1	1	1	1	1	1,1	1,1
25	13	7	7	8	8	9	9	6	6	6,3	6,3
26	b: Points	RANK.first ·> VRank 1±0		RANK.midst ·> VRank 1+1		RANK.last ·> VRank 1+2		RANK.set ·> VRank 1-2		RANK.count ·> VRank 1-1
27	25	5	5	5,5	5,5	6	6	3	3	3,1	3 (1. 50%)
28	13	1	1	2	2	3	3	1	1	1,1	1 (1. 33%)
29	28	7	7	7	7	7	7	4	4	4,1	4 (1. 100%)
30	40	8	8	8	8	8	8	5	5	5,1	5 (1. 100%)
31	13	1	1	2	2	3	3	1	1	1,2	1 (2. 33%)
32	22	4	4	4	4	4	4	2	2	2,1	2 (1. 100%)
33	25	5	5	5,5	5,5	6	6	3	3	3,2	3 (2. 50%)
34	41	9	9	9	9	9	9	6	6	6,1	6 (1. 100%)
35	13	1	1	2	2	3	3	1	1	1,3	1 (3. 33%)
36	c: Punkte	RANG.Erste ·> VRank 1±0		RANG.Mitte ·> VRank 1+1		RANG.Letzte ·> VRank 1+2		RANG.Folge ·> VRank 1-2		RANG.Zähle ·> VRank 1-1
37	25	5	5	5,5	5. (6.: 2)	6	6	3	3	3,1	3,1
38	13	1	1	2	2. (3)	3	3	1	1	1,1	1,1
39	28	7	7	7	7. (1)	7	7	4	4	4,1	4,1
40	40	#NV	#NV	#NV	#NV	#NV	#NV	#NV	#NV	#NV	#NV
41	13	1	1	2	2. (3)	3	3	1	1	1,2	1,2
42	22	4	4	4	4. (1)	4	4	2	2	2,1	2,1
43	25	5	5	5,5	5. (6.: 2)	6	6	3	3	3,2	3,2
44	41	#NV	#NV	#NV	#NV	#NV	#NV	#NV	#NV	#NV	#NV
45	13	1	1	2	2. (3)	3	3	1	1	1,3	1,3
46	d: Points	RANK.first ·> VRank 0±0		RANK.midst ·> VRank 0+1		RANK.last ·> VRank 0+2		RANK.set ·> VRank 0-2		RANK.count ·> VRank 0-1
47	(25)	2	2	2. (-½ 50%)	2 (3: 2)	3	3	2	2. (50%)	2 (1 × 50%)	2 [(1)2]
48	(13)	5	5	6. (33%)	6 (3)	7	7	4	4. (33%)	4 (1 × 33%)	4 [(1)3]
49	(28)	1	1	1. (100%)	1 (1)	1	1	1	1. (100%)	1 (1 × 100%)	1 [(1)1]
50	(13)	5	5	6. (33%)	6 (3)	7	7	4	4. (33%)	4 (2 × 33%)	4 [(2)3]
51	(22)	4	4	4. (100%)	4 (1)	4	4	3	3. (100%)	3 (1 × 100%)	3 [(1)1]
52	(25)	2	2	2. (-½ 50%)	2 (3: 2)	3	3	2	2. (50%)	2 (2 × 50%)	2 [(2)2]
53	(13)	5	5	6. (33%)	6 (3)	7	7	4	4. (33%)	4 (3 × 33%)	4 [(3)3]
54	e: Punkte	RANG.Erste ·> VRank 1±0		RANG.Mitte ·> VRank 1+1		RANG.Letzte ·> VRank 1+2		RANG.Folge ·> VRank 1-2		RANG.Zähle ·> VRank 1-1
55	(25)	2. (2)	2. (PG 50%)	2. (3.: 2)	2. (-½ 50%)	3. (2)	3 [2]	2. (2)	2 [2 ges.]	2 (1/50%)	2 [1 v. 2]
56	(13)	5. (3)	5. (PG 33%)	6. (3)	6. (33%)	7. (3)	7 [3]	4. (3)	4 [3 ges.]	4 (1/33%)	4 [1 v. 3]
57	(28)	1. (1)	1. (PG 100%)	1. (1)	1. (100%)	1. (1)	1 [1]	1. (1)	1 [1 ges.]	1 (1/100%)	1 [1 v. 1]
58	(13)	5. (3)	5. (PG 33%)	6. (3)	6. (33%)	7. (3)	7 [3]	4. (3)	4 [3 ges.]	4 (2/33%)	4 [2 v. 3]
59	(22)	4. (1)	4. (PG 100%)	4. (1)	4. (100%)	4. (1)	4 [1]	3. (1)	3 [1 ges.]	3 (1/100%)	3 [1 v. 1]
60	(25)	2. (2)	2. (PG 50%)	2. (3.: 2)	2. (-½ 50%)	3. (2)	3 [2]	2. (2)	2 [2 ges.]	2 (2/50%)	2 [2 v. 2]
61	(13)	5. (3)	5. (PG 33%)	6. (3)	6. (33%)	7. (3)	7 [3]	4. (3)	4 [3 ges.]	4 (3/33%)	4 [3 v. 3]
62	B17[:B25]:=VRank(A17;A$17:A$25)		D17[:D25]:=VRank(A17;A$17:A$25;;1)		F17[:F25]:=VRank(A17;A$17:A$25;;2)		H17[:H25]:=VRank(A17;A$17:A$25;;-2)		J17[:J25]:=INDEX(VRank(A$17:A$25;A$17:A$25;;-1);ZEILE(A1))
63	C17:C25: {=VRank(;A17:A25)}		E17:E25: {=VRank(;A17:A25;;1)}		G17:G25: {=VRank(;A17:A25;;2)}		I17:I25: {=VRank(;A17:A25;;-2)}		K17:K25: {=VRank(;A17:A25;;-1)}
64	B27[:B35]:=VRank(A27;A$27:A$35;1)		D27[:D35]:=VRank(A27;A$27:A$35;1;1)		F27[:F35]:=VRank(A27;A$27:A$35;1;2)		H27[:H35]:=VRank(A27;A$27:A$35;1;-2)		J27[:J35]:=INDEX(VRank(A$27:A$35;A$27:A$35;1;-1);ZEILE(A1))
65	C27:C35: {=VRank(;A27:A35;1;"first")}		E27:E35: {=VRank(;A27:A35;1;"midst")}		G27:G35: {=VRank(;A27:A35;1;"last")}		I27:I35: {=VRank(;A27:A35;1;"set")}		K27:K35: {=VRank(;A27:A35;1;"count";" (#`. ´%)")}
66	B37[:B45]: {=VRank(A37;NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));1)}*					H37[:H45]: {=VRank(A37;NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));1;-2)}*
67	C37:C45: {=VRank(A37:A45;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));1)}*					I37:I45: {=VRank(A37:A45;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));1;"Folge")}*
68	D37[:D45]: {=VRank(A37;NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));1;1)}*					J37[:J45]: {=INDEX(VRank(A$37:A$45;NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));1;-1);ZEILE(A1))}*
69	E37:E45: {=VRank(A37:A45;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));1;"Mitte";". (#)")}*					K37:K45: {=VRank(A37:A45;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));1;"Zähle")}*
70	F37[:F45]: {=VRank(A37;NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));1;2)}*
71	G37:G45: {=VRank(A37:A45;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));1;"Letzte")}*
72	B47[:B53]: {=VRank(""&ZEILE(A1);NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30)))}*					H47[:H53]: {=VRank("Z"&ZEILE(A$47)&"S"&SPALTE();NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));;"Folge")}*
73	C47:C53: {=VRank(;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30)))}*					I47:I53: {=VRank(;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));;"set";". (#%)")}*
74	D47[:D53]: {=VRank(""&ZEILE(A1);NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));;"Mitte";". (#%)")}*					J47[:J53]: {=INDEX(VRank(;NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));;"count";" (#` × ´%)");ZEILE(A1))}*
75	E47:E53: {=VRank(;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));;"midst";" (#)")}*					K47:K53: {=VRank(;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));;"count";" [(#)]")}*
76	F47[:F53]: {=VRank("Z"&ZEILE(A$47)&"S"&SPALTE();NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));;"Letzte")}*
77	G47:G53: {=VRank(;NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));;"last")}*
78	B55[:B61]: {=VRank(""&ZEILE(A1);DataSet(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));MIN(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30)));;;1);;;". (#)")}
79	C55:C61: {=VRank(;DataSet(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));MIN(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30)));;;1);;;". (PG #%)")}
80	D55[:D61]: {=VRank(""&ZEILE(A1);DataSet(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));MIN(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30)));;;1);;1;". (#)")}
81	E55:E61: {=VRank(;DataSet(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));MIN(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30)));;;1);;"Mitte";". (#%)")}
82	F55[:F61]: {=VRank(""&ZEILE(A1);DataSet(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));MIN(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30)));;;1);;2;". (#)")}
83	G55:G61: {=VRank(;DataSet(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));MIN(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30)));;;1);;"last";" [#]")}
84	H55[:H61]: {=VRank(""&ZEILE(A1);DataSet(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));MIN(NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30)));;;1);;-2;". (#)")}
85	I55:I61: {=VRank(;DataSet(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));MIN(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30)));;;1);;"Folge";" [# ges.]")}
86	J55[:J61]: {=INDEX(VRank(;NoErrRange(A$37:A$45;;(A$37:A$45>10)(A$37:A$45<30));;-1;" (#/%)");ZEILE(A1))}*
87	K55:K61: {=VRank(;DataSet(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30));MIN(NoErrRange(A37:A45;;(A37:A45>10)(A37:A45<30)));;;1);;"count";" [#` v. ´]")}

Diese Tabelle dient allein der Illustration meiner Ausführungen und der Vorstellung der UDF VRank, deren ErgebnisRealisierung in den verschiedenen Kategorien allein über ihre Argumentierung erfolgt. Dabei können auch ZusatzTexte angegeben wdn, deren Wirkung ebenfalls dargestellt wurde (vgl die Fmln im unteren Teil).
Wird sukzessive fortgesetzt!
Mit Gruß, Luc :-?
PS: Meinungen und Anregungen hierzu können nach jedem (Folge-)Beitrag kundgetan wdn.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

	A	B	C	D	E	F	G	H	I	J	K
1	Punkte	RANG.ERSTE ¹	·> Vergleich·Kgrösste	RANG.MITTE ²	·> Rang·Zählenwenn	RANG.LETZTE	·> Rang·Zählenwenn	RANG.FOLGE	(do. plural)	RANG.ZÄHLE	(do. plural)
2	25	4	4	4,5	4,5	5	5	4	4	4,1	4,1
3	13	7	7	8	8	9	9	6	6	6,1	6,1
4	28	3	3	3	3	3	3	3	3	3	3
5	40	2	2	2	2	2	2	2	2	2	2
6	13	7	7	8	8	9	9	6	6	6,2	6,2
7	22	6	6	6	6	6	6	5	5	5	5
8	25	4	4	4,5	4,5	5	5	4	4	4,2	4,2
9	41	1	1	1	1	1	1	1	1	1	1
10	13	7	7	8	8	9	9	6	6	6,3	6,3
11	B2[:B10]:=RANG.GLEICH(A2;A$2:A$10)	C2[:C10]: {=VERGLEICH(A2;KGRÖSSTE(A$2:A$10;ZEILE(L$1:L$9));0)}		¹ RANK.EQ	² RANK.AVG
12	D2[:D10]:=RANG.MITTELW(A2;A$2:A$10)	E2[:E10]:=RANG(A2;A$2:A$10)+(ZÄHLENWENN(A$2:A$10;A2)-1)/2	J2[:J10]: {=ANZAHL((A2&"")/HÄUFIGKEIT(WENN(A$2:A$10≥A2;A$2:A$10);A$2:
13	F2[:F10]:=ZEILEN(A$2:A$10)+1-RANG(A2;A$2:A$10;1)	G2[:G10]:=RANG(A2;A$2:A$10)+ZÄHLENWENN(A$2:A$10;A2)-1	A$10))+WENN(ZÄHLENWENN(A$2:A$10;A2)>1;ZÄHLENWENN(A$2:A2;A2);)/10}
14	H2[:H10]: {=ANZAHL((A2&"")/HÄUFIGKEIT(WENN(A$2:A$10≥A2;A$2:A$10);A$2:A$10))} Autor: J.Burch*	K2:K10: {=VERGLEICH(RANG(A2:A10;A2:A10);KKLEINSTE(VSplit(VJoin(RANG(A2:A10;A2:A10);;-1);;1);ZEILE
15	I2:I10: {=VERGLEICH(RANG(A2:A10;A2:A10);KKLEINSTE(VSplit(VJoin(RANG(A2:A10;A2:A10);;-1);;1);ZEILE(A1:A9));0)}	(A1:A9));0)+WENN(ZÄHLENWENN(A2:A10;A2:A10)>1;ZÄHLENWENN(A2:INDEX(A2:A10;ZEILE()-1);A2:A10);)/10}

Punkte

RANG.ERSTE ¹

·> Vergleich·Kgrösste

RANG.MITTE ²

·> Rang·Zählenwenn

RANG.LETZTE

·> Rang·Zählenwenn

RANG.FOLGE

(do. plural)

RANG.ZÄHLE

(do. plural)

4,5

4,1

6,1

6,2

4,5

4,2

6,3

B2[:B10]:=RANG.GLEICH(A2;A$2:A$10)

C2[:C10]: {=VERGLEICH(A2;KGRÖSSTE(A$2:A$10;ZEILE(L$1:L$9));0)}

¹ RANK.EQ

² RANK.AVG

D2[:D10]:=RANG.MITTELW(A2;A$2:A$10)

E2[:E10]:=RANG(A2;A$2:A$10)+(ZÄHLENWENN(A$2:A$10;A2)-1)/2

J2[:J10]: {=ANZAHL((A2&"")/HÄUFIGKEIT(WENN(A$2:A$10≥A2;A$2:A$10);A$2:

F2[:F10]:=ZEILEN(A$2:A$10)+1-RANG(A2;A$2:A$10;1)

G2[:G10]:=RANG(A2;A$2:A$10)+ZÄHLENWENN(A$2:A$10;A2)-1

A$10))+WENN(ZÄHLENWENN(A$2:A$10;A2)>1;ZÄHLENWENN(A$2:A2;A2);)/10}

H2[:H10]: {=ANZAHL((A2&"")/HÄUFIGKEIT(WENN(A$2:A$10≥A2;A$2:A$10);A$2:A$10))} *Autor: J.Burch

K2:K10: {=VERGLEICH(RANG(A2:A10;A2:A10);KKLEINSTE(VSplit(VJoin(RANG(A2:A10;A2:A10);;-1);;1);ZEILE

I2:I10: {=VERGLEICH(RANG(A2:A10;A2:A10);KKLEINSTE(VSplit(VJoin(RANG(A2:A10;A2:A10);;-1);;1);ZEILE(A1:A9));0)}

(A1:A9));0)+WENN(ZÄHLENWENN(A2:A10;A2:A10)>1;ZÄHLENWENN(A2:INDEX(A2:A10;ZEILE()-1);A2:A10);)/10}

Function RangLückenlos(VergleichsWert As Double, Wertebereich As Range, _ Optional Rang1IstKleinster As Boolean = False) Dim VZ As Long Dim Werte Dim Z As Long VZ = 2 * Rang1IstKleinster + 1 Werte = Intersect(Wertebereich, Wertebereich.Worksheet.UsedRange).Value RangLückenlos = 1 For Z = 1 To UBound(Werte, 1) If IsNumeric(Werte(Z, 1)) Then _ If Application.Match(Werte(Z, 1), Werte, 0) = Z Then _ RangLückenlos = RangLückenlos - (VZ * Werte(Z, 1) > VZ * VergleichsWert) Next End Function

Function RangXXX(VergleichsWert, Wertebereich, _ Optional Rang1IstKleinster As Boolean = False, _ Optional RangMitLücken As Boolean = True) '--- Rang-Funktion für Rangbildung mit und ohne Berücksichtigung mehrfach vorkommender Werte '--- Steuerparameter: ' Rang1IstKleinster ' Wahr: kleinster Wert hat Rang 1 ' Falsch: größter Wert hat Rang 1 ' RangMitLücken ' Wahr: bei mehrfach vorkommenden Werten nächster Rang = +Anzahl ' Falsch: bei mehrfach vorkommenden Werten nächster Rang = + 1 Dim Bearbeitet As Object Dim VZ As Long Dim Wert, VglW Dim Zähler ReDim Erg(0) Set Bearbeitet = CreateObject("Scripting.dictionary") VZ = 2 * Rang1IstKleinster + 1 If IsObject(VergleichsWert) Then Set VergleichsWert = Intersect(VergleichsWert, VergleichsWert. _ Worksheet.UsedRange) If IsObject(Wertebereich) Then Set Wertebereich = Intersect(Wertebereich, Wertebereich. _ Worksheet.UsedRange) If VarType(VergleichsWert) VZ * VglW) * (Bearbeitet(CStr(Wert)) = "" Or _ RangMitLücken) Bearbeitet(CStr(Wert)) = "x" End If Next End If If Zähler > 0 Then Erg(UBound(Erg)) = Zähler Else Erg(UBound(Erg)) = "" End If ReDim Preserve Erg(UBound(Erg) + 1) Next If UBound(Erg) > 0 Then ReDim Preserve Erg(UBound(Erg) - 1) RangXXX = Erg End If End Function

In TeilTabelle e wdn Datenfelder für Argument2 verwendet. Diese wdn hier bequemer- und vglbarerweise, wie in c und d gehabt, durch Anwendung der UDF NoErrRange auf den QuellBereich (→unzusammenhängender Bereich!) mit anschließender externer Bearbeitung durch DataSet* erzeugt (ein einfaches -- vor einer BereichsAngabe hätte auch gereicht, wenn alle QuellDaten hätten verwendet wdn sollen).
* Im Prinzip überflüssig, weil diese UDF auch intern angewendet wird. Hier soll damit aber die VRank-Reaktion auf die Angabe eines Datenfeldes (das ja durch DataSet erzeugt wird) demonstriert wdn. Die Anwendung von INDEX würde hier das Ganze nur unnötig komplizieren.
Der SchwerPkt liegt bei dieser TeilTab aber sichtbar auf der Demonstration verschiedener Möglichkeiten, den Rang in allen 5 Kategorien je nach AnwendungsZiel mit ZusatzInformationen zu versehen, wodurch das Ergebnis zu einem Text* wird.
In Argument5 wird der nahezu vollständige ZusatzText angegeben, wobei das Zeichen # eine festgelegte (Dummy-)Funktion hat. Es steht für eine zweite, in der jeweiligen Kategorie ermittelte Zahl. Das wäre im Normalfall die Anzahl ermittelter gleicher Ränge pro RangZahl. Wird zusätzlich noch das %-Zeichen angegeben, also idR #%, wird statt der Anzahl der Anteil des jeweiligen Rangs an den Rängen mit gleicher RangZahl insgesamt angegeben. Das könnte von Interesse sein, wenn bei Wettkämpfen PreisGelder geteilt wdn müssten. Dabei sind bei ungeradem Argument4 folgende Besonderheiten, die zu einer TextUmformung führen, zu beachten:
&bullet; .Mitte (+1): Ist die jeweilige Anzahl gleicher Ränge gerade, wird keine DezimalZahl ausgegeben, sondern zusätzlich …
→…vor der Anzahl (#) der nächste Rang mit vorangestelltem …, wobei eine evtl Pktierung des Ranges auch für diesen übernommen wird. Danach wird ein : gefolgt von einem Leerzeichen gesetzt.
→…bei #% der niedrigeren RangZahl ein -½ gefolgt von LeerZeichen (und Anteil) nachgestellt. Damit wird darauf hingewiesen, dass uU der halbe Abstand zur nächsten RangStufe beim PreisGeld des erstangegebenen Ranges absetzend berücksichtigt wdn müsste.
&bullet; .Zähle (-1): Hier müssen gleich 2 zusätzliche ZahlenAngaben im Text untergebracht wdn → die sonst als Dezimale erscheinende DurchNummerierung der Fälle eines gleichen Ranges und deren Anzahl bzw Anteil. Dabei ersetzt erstere das # und letzteres wird dem bzw dem ersten FolgeZeichen nach # nachgesetzt. Dadurch kann ein direkter Bezug der DurchNummerierung zu Anzahl bzw Anteil hergestellt wdn. Soll das nicht nur mit einem Zeichen, sondern einem kurzen TextEinschub erfolgen, muss dieser in `´ gesetzt wdn, wobei ` # unmittelbar folgen muss.
* Wer den Rang auch in diesem Fall als Zahl benötigt, darf Argument5 nicht für das Ergebnis verwenden, sondern muss das mit benutzerdefinierter Formatierung zu erreichen versuchen, was aber nicht so einfach ist und mitunter VBA-Unterstützung erforderte, wollte man visuell Gleiches erhalten.
Damit ist die Beschreibung der Möglichkeiten von VRank und ihrer in den TeilTabellen a-e dargestellten Ergebnisse vorerst abgeschlossen. Es folgen in Fortsetzung dessen ggf noch spezielle Hinweise und vor allem eine fktionsfähige BspDatei mit den benötigten UDFs und Enumerationen. Dabei wird wahrscheinlich die BasisTabelle fehlen, weil deren UDFs in aktueller Version noch nicht freigegeben sind. Hier reichen aber die im Archiv zu findenden bisherigen höchsten Versionen.
Luc :-?

	S	T	U	V	W
1	[sekund Werte]	gen Einordng	plur MxFml ·> sep b.NV <· norm Fml	gen Einord b.NV
2	[25]	4	4	4	4
3	[13]	7	6	6	7
4	[28]	3	3	3	3
5	[40]	2	2	2	2
6	[13]	7	6	6	7
7	[22]	6	5	5	6
8	[25]	4	4	4	4
9	[41]	1	1	1	1
10	[13]	7	6	6	7
11	24	5	-5	-5	5
12	S11:=RUNDEN(MITTELWERT(A2:A10);)
13	T2:T11: {=VRank(;DataSet(A2:A10;S11;2;;1);;-2)}
14	U2:U11: {=WENNFEHLER(VRank(DataSet(A2:A10;S11;2;;1);A2:A10;;-2);-VRank(;DataSet(A2:A10;S11;2;;1);;-2))}
15	V2[:V11]:=WENNFEHLER(VRank(S2;A$2:A$10;;-2);-VRank(S2;DataSet(A$2:A$10;S2;2;;1);;-2))
16	W2:W11: {=WENNFEHLER(VRank(S11;A2:A10;;-2);VRank(;DataSet(A2:A10;S11;2;;1);;-2))}

[sekund Werte]

gen Einordng

plur MxFml ·> sep b.NV <· norm Fml

gen Einord b.NV

[25]

[13]

[28]

[40]

[13]

[22]

[25]

[41]

[13]

-5

S11:=RUNDEN(MITTELWERT(A2:A10);)

T2:T11: {=VRank(;DataSet(A2:A10;S11;2;;1);;-2)}

U2:U11: {=WENNFEHLER(VRank(DataSet(A2:A10;S11;2;;1);A2:A10;;-2);-VRank(;DataSet(A2:A10;S11;2;;1);;-2))}

V2[:V11]:=WENNFEHLER(VRank(S2;A$2:A$10;;-2);-VRank(S2;DataSet(A$2:A$10;S2;2;;1);;-2))

W2:W11: {=WENNFEHLER(VRank(S11;A2:A10;;-2);VRank(;DataSet(A2:A10;S11;2;;1);;-2))}

Beliebteste Forumthreads (12 Monate)

	A	E
1	Punkte	Rang(Folge)
2	25	4
3	13	6
4	28	3
5	40	2
6	13	6
7	22	5
8	25	4
9	41	1
10	13	6
11	12	7
12

33 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

33
Beiträge zum Forumthread

Beiträge zu diesem Forumthread