Automatisches Selektieren

Hallo,
ich habe folgendes Problem:
Und zwar habe ich eine Excel-Liste, die für ca. 200 Produkte den Preis und die Lieferzeit für verschiedene Lieferanten anzeigt.
Nun soll ich herausfinden welcher Lieferant Folgendes im Hinblick auf alle Produkte bietet:
1) Am Öftesten den besten Preis
2) Am Öftesten den zweitbesten Preis
3) Am Öftesten die kürzeste Lieferzeit
4) Am Öftesten die zweitkürzeste Lieferzeit
5) Am Öftesten den schlechtesten Preis
6) Am Öftesten den zweitschlechtesten Preis
7) Am Öftesten die längste Lieferzeit
8) Am Öftesten die zweitlängste Lieferzeit
Der erste Schritt ist getan: Ein Makro färbt mir das gewünschte Feld für das gesuchte Kriterium ein und dann sieht meine Excel-Datei in etwa so aus:
https://www.herber.de/bbs/user/115332.xlsx
Ich hätte nun gerne eine automatische Auswertung wie in der Beispiel-Datei zu sehen. Und zwar soll Excel die gefärbten Felder nach Kriterium "zählen". Dadurch kann ich am Ende die Lieferanten für die gesuchten Kriterien (1-8) finden.
Das ist etwas schwer zu erklären, am besten mal in die Beispiel-Datei gucken. Habe mir echt Mühe gemacht, dass es verständlich ist.
Freue mich über jede Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marie,
... und einen Hilfsspaltenbereich (Hier K:R) können die "Besten" ermittelt werden. Wenn die "Schlechtesten" wirklich ermittelt werden sollen, dann analog mit max. weiteren drei Matrixfunktion(alität)sformel die keines spez. Formelabschluss wie klassische Matrixformel benötigen.
- Formel K3 nach rechts bis N und nach unten (hier) bis Zeile 8 kopieren
- Formel B11 nach rechts (hier) bis Spalte I und nach unten bis Zeile 14 kopieren.
- Formel J11 nach unten und wenigsten eine nach rechts (falls zwei Anbieter die gleiche Anzahl an Bewertung aufweisen)
Nachfolgende Anwendung der Formeln zeigt auch auf, dass Deine VBA-Formatierung zum "Zweitbester Preis" für YY und YZ in F4 und H4 nicht korrekt ist.

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1	Anbieter	XY		XX		YY		YZ
2	Produkt	Preis	Lieferzeit	Preis	Lieferzeit	Preis	Lieferzeit	Preis	Lieferzeit		Bester Preis	Zweitbester Preis	Kürzeste Lieferzeit	Zweitkürzeste Lieferzeit
3	1	2	10	1	5	8	2	100	100		1	2	2	5
4	2	1	9	8	7	6	5	5	8		1	5	5	7
5	3	7	6	8	3	10	22	9	10		7	8	3	6
6	4	99	5	7	6	6	8	50	18		6	7	5	6
7	5	0,5	11	5	12	17	15	7	150		0,5	5	11	12
8	6	22	100	5	11	4	9	7	90		4	5	9	11
9
10										Anbieter
11	Bester Preis	3		1		2		0		XY
12	Zweitbester Preis	1		4		0		1		XX
13	Kürzeste Lieferzeit		2		1		3		0	YY
14	Zweitkürzeste Lieferzeit		1		5		0		0	XX
15	Schlechtester Preis

Formeln der Tabelle

Zelle	Formel
K3	=AGGREGAT(15;6;$B3:$I3/(RECHTS($B$2:$I$2;5)=RECHTS(K$2;5)); ZÄHLENWENN($K$2:K$2;"*"&RECHTS(K$2;5)))
B11	=WENN(RECHTS($A11;5)=RECHTS(B$2;5); SUMME(INDEX(($B$3:$I$8=INDEX($K$3:$T$8;;VERGLEICH($A11;$K$2:$T$2;0)))*(SPALTE($B1:$I1)=SPALTE()); )); "")
C11	=WENN(RECHTS($A11;5)=RECHTS(C$2;5); SUMME(INDEX(($B$3:$I$8=INDEX($K$3:$T$8;;VERGLEICH($A11;$K$2:$T$2;0)))*(SPALTE($B1:$I1)=SPALTE()); )); "")
J11	=WENNFEHLER(INDEX($1:$1;AGGREGAT(15;6;SPALTE($B11:$I11)/($B11:$I11=MAX($B11:$I11)); SPALTE(A1))-(RECHTS($A11;4)="Zeit")); "")

Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread