find the element number of an array

[kotzo]

Hi,

I find the 2nd largest element of an array

a = WorksheetFunction.Large(plantvalue(), 2)

How can I determine the coresponding element number
of that array ?

( plantvalue(?) )



Regards

 

[pgc01]

Hi

Try:

Sub Test()
Dim PlantValue As Variant
Dim lVal As Long, lInd As Long
 
PlantValue = Array(3, 4, 7, 1, 2, 9)
 
With Application.WorksheetFunction
    lVal = .Large(PlantValue, 2)
    lInd = .Match(lVal, PlantValue, 0)
End With
 
MsgBox "lVal: " & lVal & ", lInd: " & lInd
End Sub

Remark: if Match() returns a result 3 it means that it's the third element in the array. The vba index may not be the same, as the array in vba can for ex. be base 0.