ich habe in 100 Variablen Werte eigelesen und möchte nun die fünf höchsten Werte ermitteln. Habt Ihr eine Idee, wie ich das in VBA schlank hinbekommen kann?
Dim ast(1 To 100) As Integer ' das sind meine Werte
Viele Güße
dim fünfMax
dim ast(1 to 100)
with Cells(1, 1).resize(ubound(ast), 1)
.Value = Worksheetfunction.Transpose(ast)
.Sort Key1:=.Cells(1, 1), order1:=xlascending, Header:=xlno
fünfMax = .Cells(1, 1).Resize(5, 1).value
.Clearcontents
end with
du brauchst hier halt eine freie Spalte der Tabelle.