Option Explicit
Sub Test()
Dim x As Variant
Dim i As Long
With Range("B2:B12")
.Formula = "=RANDBETWEEN(1,100)"
.Value = .Value
x = WorksheetFunction.Max(.Value)
i = WorksheetFunction.Match(x, .Value, 0)
Debug.Print "{" & Join(WorksheetFunction.Transpose(.Value), ", ") & "}"
Debug.Print "=> max value is " & x & " at index " & i
End With
End Sub
{53, 4, 51, 50, 40, 71, 10, 43, 43, 37, 53}
=> max value is 71 at index 6
Grüße
|