Top 10 Auswertung

Forumthread: Top 10 Auswertung

Top 10 Auswertung

13.06.2006 21:08:18

Chrischi

Hallo Leute,
ich versuch`s nochmal. Ich möchte gern aus einer Tabelle mit zwei Spalten (Name, Betrag) die 10 betragsmäßig besten zusammenaddieren und als Top 10 auf einem andere Tabellenblatt erscheinen lassen. Wichtig ist, dass die Summen bei gleichem Namen addiert werden.
vielleicht weiss ja einer wie ich dass in vba hinkriege.
p.s. ich möchte keine Pivottabelle benutzen !

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Top 10 Auswertung

13.06.2006 22:18:33

Josef
AW: Top 10 Auswertung

13.06.2006 22:33:22

Uduuh
AW: Top 10 Auswertung

13.06.2006 22:37:40

Josef
Obwohl!

13.06.2006 22:42:43

Josef
AW: Top 10 Auswertung

13.06.2006 22:56:09

Uduuh
Falsche Antwort! ;-((

13.06.2006 22:24:07

Josef
VBA

13.06.2006 22:49:51

Josef

AW: Top 10 Auswertung

13.06.2006 22:18:33

Josef

Hallo Chrischi!
Mal ohne VBA.

Tabelle1

	A	B	C	D	E	F
1	Name	Wert		Name	Summe grösste >	10
2	a	4.000,00		a	37.000,00
3	b	7.000,00		b	51.000,00
4	a	3.500,00
5	a	1.000,00
6	b	6.500,00
7	b	7.000,00
8	a	6.000,00
9	b	6.000,00
10	a	1.000,00
11	a	9.000,00
12	a	2.000,00
13	b	5.000,00
14	a	3.500,00
15	b	4.000,00
16	a	1.000,00
17	b	1.500,00
18	a	2.500,00
19	b	1.500,00
20	b	1.500,00
21	a	9.500,00
22	b	6.000,00
23	b	1.500,00
24	a	5.500,00
25	b	4.500,00
26	b	5.500,00
27	b	9.500,00
28	a	1.500,00
29	a	2.500,00
30	a	1.000,00
31	b	4.500,00
32	a	6.500,00
33	a	5.000,00
34	b	4.500,00
35	a	1.500,00
36	b	9.000,00
37	a	6.000,00

Formeln der Tabelle

E2 : =SUMMENPRODUKT(($A$2:$A$37=D2)*($B$2:$B$37>=KGRÖSSTE($B$2:$B$37;$F$1));$B$2:$B$37)
E3 : =SUMMENPRODUKT(($A$2:$A$37=D3)*($B$2:$B$37>=KGRÖSSTE($B$2:$B$37;$F$1));$B$2:$B$37)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Gruß Sepp

AW: Top 10 Auswertung

13.06.2006 22:33:22

Uduuh

Hallo Sepp,
der will aber unbedingt VBA. siehe hier: https://www.herber.de/forum/messages/772727.html
Hat nach eigener Aussage keine Ahnung von Pivot-Tables (von VBA aber auch nicht). Ich persönlich würde als Schnell-Löung 'ne Pivot nehmen und die per VBA updaten, asonsten das ganze mit ein paar Arrays abwickeln. Was meinst du?
Gruß ausm Pott
Udo

AW: Top 10 Auswertung

13.06.2006 22:37:40

Josef

Hi Udo!
Dann würde ich die Liste in ein Array packen und die Summe der entsprechenden Werte ermitteln.

Gruß Sepp

Obwohl!

13.06.2006 22:42:43

Josef

Hallo nochmal!
Ich es doch per Formel machen würde;-))

Tabelle1

	A	B	C	D	E	F
1	Name	Wert			Name	Summe Top 10
2	a	4.000,00			a	58.500,00
3	b	7.000,00
4	a	3.500,00
5	a	1.000,00
6	b	6.500,00
7	b	7.000,00
8	a	6.000,00
9	b	6.000,00
10	a	1.000,00
11	a	9.000,00
12	a	2.000,00
13	b	5.000,00
14	a	3.500,00
15	b	4.000,00
16	a	1.000,00
17	b	1.500,00
18	a	2.500,00
19	b	1.500,00
20	b	1.500,00
21	a	9.500,00
22	b	6.000,00
23	b	1.500,00
24	a	5.500,00
25	b	4.500,00
26	b	5.500,00
27	b	9.500,00
28	a	1.500,00
29	a	2.500,00
30	a	1.000,00
31	b	4.500,00
32	a	6.500,00
33	a	5.000,00
34	b	4.500,00
35	a	1.500,00
36	b	9.000,00
37	a	6.000,00

Formeln der Tabelle

F2 : {=SUMME(KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(1:10)))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Gruß Sepp

AW: Top 10 Auswertung

13.06.2006 22:56:09

Uduuh

Hallo,
exakt das meinte ich. Dürfte von der Performance her das schnellste sein, aber eben nicht gerade unaufwändig. Ich arbeite in letzter Zeit fast nur noch mit Arrays. Das ist zwar erheblich mehr Code als wenn man im Blatt arbeitet, aber viiiieeeeel schneller.
Gruß ausm Pott
Udo

Falsche Antwort! ;-((

13.06.2006 22:24:07

Josef

Hallo Chrischi!
Hab die Frage zuerst falsch verstanden.

Tabelle1

	A	B	C	D	E	F
1	Name	Wert			Name	Top 10
2	a	4.000,00			a	9.500,00
3	b	7.000,00				9.000,00
4	a	3.500,00				6.500,00
5	a	1.000,00				6.000,00
6	b	6.500,00				6.000,00
7	b	7.000,00				5.500,00
8	a	6.000,00				5.000,00
9	b	6.000,00				4.000,00
10	a	1.000,00				3.500,00
11	a	9.000,00				3.500,00
12	a	2.000,00
13	b	5.000,00
14	a	3.500,00
15	b	4.000,00
16	a	1.000,00
17	b	1.500,00
18	a	2.500,00
19	b	1.500,00
20	b	1.500,00
21	a	9.500,00
22	b	6.000,00
23	b	1.500,00
24	a	5.500,00
25	b	4.500,00
26	b	5.500,00
27	b	9.500,00
28	a	1.500,00
29	a	2.500,00
30	a	1.000,00
31	b	4.500,00
32	a	6.500,00
33	a	5.000,00
34	b	4.500,00
35	a	1.500,00
36	b	9.000,00
37	a	6.000,00

Formeln der Tabelle

F2 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A1))}
F3 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A2))}
F4 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A3))}
F5 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A4))}
F6 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A5))}
F7 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A6))}
F8 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A7))}
F9 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A8))}
F10 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A9))}
F11 : {=KGRÖSSTE(WENN($A$2:$A$37=$E$2;$B$2:$B$37);ZEILE(A10))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Gruß Sepp

VBA

13.06.2006 22:49:51

Josef

Hallo Chrischi!
Auf mein Beispiel bezogen, geht's z.B. so.

MsgBox Evaluate("SUM(LARGE(IF($A$2:$A$37=$E$2,$B$2:$B$37),ROW(1:10)))")

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Forumthread: Top 10 Auswertung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread