VBA: Durchschnitt der x-größten Werte eines Arrays

Sub Test() Dim arrTest As Variant arrTest = Array(15.52, 12.44, 19.68, 88.17, 18.48, 17.44, 19.58, 13.22, 55.44) Debug.Print AverageTopX(arrTest, 5) 'Top 5 End Sub Function AverageTopX(varArray As Variant, intBiggest As Integer) As Double Dim i As Integer For i = 1 To intBiggest AverageTopX = AverageTopX + Application.Large(varArray, i) Next i AverageTopX = AverageTopX / intBiggest End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
ich suche eine möglichst performante Lösung, aber das "Auslagern" in ein Tabellenblatt und eine Excel-Sortierung würden wesentlich mehr Systemressourcen beanspruchen. Da wäre eine Array-Sortierung mit einem intelligenten Sortieralgorithmus eher vorstellbar. Hier mal eine interessante Tabelle mit der Messung verschiedener Sortieralgorithmen im Vergleich zur Excel-Sortierung. Quicksort ist richtig schnell. Vielleicht hat Excel seinen Sortieralgorithmus zwischenzeitlich optimiert, diese Messung wurde offensichtlich unter Excel 2003 durchgeführt.
Viele Grüße
Martin

	A	B	C	D	E	F	G	H	I	J
1	Eigenschaften und Zeitaufwand der Sortiermethoden in Sekunden
2	Methode	Eigenschaften			Durchläufe (Anzahl der Elemente)
3		in-place	stabil	rekursiv	655	1000	6553	10000	65536	131072
4	ExcelSort	-	-	-	0,0469	0,0469	0,063	0,078	0,28	geht nicht
5	BucketSort (*)	nein	ja	nein	0,1406	0,1406	0,155	0,155	0,19	0,23
6	QuickSort	ja	nein	ja	0,0000	0,0000	0,016	0,031	0,25	0,58
7	HeapSort	ja	nein	nein	0,0000	0,0000	0,031	0,063	0,50	1,08
8	CombSort	ja	nein	nein	0,0000	0,0000	0,047	0,063	0,59	1,16
9	MergeSort	nein	ja	ja	0,0000	0,0000	0,047	0,078	0,63	1,33
10	ShellSort	ja	nein	nein	0,0000	0,0000	0,031	0,063	0,63	1,55
11	SplitSort	nein	ja	ja	0,0000	0,0146	0,078	0,142	1,00	2,14
12	InsertionSort	ja	ja	nein	0,0156	0,0469	2,281	5,313	235,08	nicht getestet
13	MinMaxSort	ja	nein	nein	0,0166	0,0469	2,406	5,577	240,20	nicht getestet
14	MinSort	ja	nein	nein	0,0313	0,0625	2,797	6,531	283,09	nicht getestet
15	MinsertionSort	ja	nein	nein	0,0469	0,1094	4,047	9,469	409,81	nicht getestet
16	NoNetSort	ja	ja	nein	0,0469	0,0938	4,422	10,328	448,30	nicht getestet
17	BiDiBubbleSort	ja	ja	nein	0,0469	0,1104	4,890	11,515	505,63	nicht getestet
18	OetSort	ja	ja	nein	0,0615	0,1250	5,235	12,203	530,23	nicht getestet
19	BubbleSort	ja	ja	nein	0,0469	0,1250	5,266	12,313	537,30	nicht getestet
20	PositionSort	nein	ja	nein	0,0625	0,1563	6,344	14,813	644,23	nicht getestet
21	RlxSort	nein	ja	nein	0,0625	0,1563	6,516	15,188	664,56	nicht getestet
22	GnomeSort	ja	ja	nein	0,0781	0,1865	8,047	18,797	815,00	nicht getestet
23	AllocationSort	nein	ja	nein	0,0938	0,2344	10,375	24,172	1058,02	nicht getestet
24	SwirlSort	nein	nein	nein	2,7500	7,1729	n. getestet	n. getestet	n. getestet	nicht getestet
25	(*) = außer Konkurrenz, da nur bedingt verwendbar

'QuickSort, eindimensionales Array Sub QuickSort(ByRef DasArray, Optional ErsteZeile, Optional LetzteZeile) On Error Resume Next Dim UnterGrenze As Long, OberGrenze As Long Dim AktuellerWert, GemerkterWert As Variant If IsMissing(ErsteZeile) Then ErsteZeile = LBound(DasArray) End If If IsMissing(LetzteZeile) Then LetzteZeile = UBound(DasArray) End If UnterGrenze = ErsteZeile OberGrenze = LetzteZeile AktuellerWert = DasArray((ErsteZeile + LetzteZeile) / 2) Do While (UnterGrenze AktuellerWert And OberGrenze > ErsteZeile) OberGrenze = OberGrenze - 1 Loop If (UnterGrenze ErsteZeile) Then Call QuickSort(DasArray, ErsteZeile, OberGrenze) If (UnterGrenze AktuellerWert And OberGrenze > ErsteZeile) OberGrenze = OberGrenze - 1 Loop If (UnterGrenze ErsteZeile) Then Call QuickSort2(DasArray, ErsteZeile, OberGrenze) If (UnterGrenze

Beliebteste Forumthreads (12 Monate)

VBA: Durchschnitt der x-größten Werte eines Arrays

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Durchschnitt der x-größten Werte eines Arrays

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread