Find MAX in Array

Status
Niet open voor verdere reacties.

VBAn00b

Gebruiker
Lid geworden
22 feb 2008
Berichten
17
Beste forumleden,

Ik ondervind wat problemen bij het vinden van de max. waarde in de array. In excel is het niet zo moeilijk want daar valt de volgende code te gebruiken:

Code:
x = WorksheetFunction.Max(Range("$E$20:$E$20000"))

In de VBA array werkt dit echter niet!

Ik heb al uitgebreid gegoogled en kan geen begrijpelijke code vinden die ervoor zorgt dat ik in de array de max waarde vind (zonder te sorteren!)

Weet iemand van jullie misschien een goede code die mij verder op weg kan helpen?
 
Oke we zijn verder op weg en hebben de onderstaande code tot nu toe:

Code:
Dim y As Integer

Dim Maximum As String

Maximum = 0

For y = 1 To UBound(vtresult)

    If vtresult(y, a, 0, 1) > Maximum Then

        Maximum = vtresult(y, 0, 0, 1)

    End If

Next

Range("K5") = Maximum

De a staat voor het aantal bedrijven waarvan de max gevonden moet worden. Zoals te zien is hebben we dit aantal al variabel gemaakt. Echter de a moet nog gedefineerd worden in VBA en de max moet met een loop in een nieuwe array gezet worden. Wij zitten helaas vast in de code en weten niet meer hoe nu verder te gaan.

Kan iemand ons weer op weg helpen?
 
het ubound vind het maximum van een bepaalde dimensie die geef je niet op.
Weet je zeker dat het vier(!!!) dimensies moeten zijn? In theorie kan het wel. Maar in de praktijk ben ik hem nog niet tegengekomen ook heb ik het nog nooit nodig gevonden er een aan te maken met meer dan twee dimensies

Of is je vraag al beantwoord?
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan