VBA Problem (Einteilung) !!!!
15.07.2005 12:39:33
Thomas
Ich habe ein Problem im VBA und brauch eure hilfe, und zwar:
Ich habe eine Datenreihe welche ich per Array sortiere (variable Anzahl). Nun möchte ich die besten 10% zusammenfassen, danch die zweiten 10%, danach die dritten 10% usw. usw.
Hat jemand eine Idee was ich machen könnte.
Danke für eure Hilfe
Thomas
Ps.: Anbei den Code den ich bis jetzt erstellt habe:
Sub Percentilen()
Dim x As Single, y As Single, z As Single, r As Single, p As Single
Dim Percentilen(), Werte()
x = ActiveSheet.UsedRange.Rows.Count - 1
y = InputBox("Wieviele Einheiten (Percentilen) sollen erstellt werden?", , 10)
z = WorksheetFunction.RoundDown(x / y, 0)
ReDim Percentilen(1 To y), Werte(1 To x), von(1 To y), bis(1 To y)
For p = 1 To x
For r = 2 To x + 1
If WorksheetFunction.Rank(Cells(r, 2), Range(Cells(2, 2), Cells(31, 2))) = p Then
Werte(p) = Cells(r, 2)
End If
Next r
Next p
End Sub