How to find a max value in an array?

Hi

Is it possible to find a max value in a to dimensional array using worksheetfunction.max?

Or this there any other simple vay instead of using loops?

thank you

Troels Isaksen

Hi Troelsi,
Welcome to VBAX.
The Max function should work

Code:

---

Sub FMax()
Dim arr
arr = Range("Data").Value
MsgBox Application.WorksheetFunction.Max(arr)
End Sub

---

thanks for you answer.

what if Im looking for a max value along one of the dimension only.

Code:

---

redim p(t+1,n)
For j = 0 To T
For k = 1 To N
p(j, k) = Range("b6").Offset(j, k)
Next
Next
For k = N To 1 Step -1
x(N) = WorksheetFunction.Max(p(for j = 0 to T, k))
Next

---

This doesn't work for me, what should i replace the "for j= to T" with?

thank you

Troels Isaksen

Code:

---

ReDim x(1 To N)
For k = 1 To N
    x(k) = Application.Max(Application.Transpose(Range("B6").Offset(0, k).Resize(T + 1)))
Next

---

Thanks for your answer, that's a nice sollution.

But I'm looking for a more general sollution. If I don't want to use the range method, how can I then do it?

Best regards

Troels Isaksen

Quote:

---

Originally Posted by troelsi

Thanks for your answer, that's a nice sollution.

But I'm looking for a more general sollution. If I don't want to use the range method, how can I then do it?

Best regards

Troels Isaksen

---

Elaborate by what you mean by not wanting to use the Range method, and why not.

At the bottom of this code I want to find the max value for all k's in fst(i,k) for values of i = 1. Is that possible to do without transforming it into a one-dimensional array?

Code:

---

For i = N To 1 Step -1
For j = 0 To T
For k = j To T
f(i, j, k) = p(j, i) + fst(i + 1, k - j)
If f(i, j, k) >= fst(i, k) Then
fst(i, k) = f(i, j, k)
x(i, k) = j
End If
Next
Next
Next
For k = 0 To T
arr(1) = fst(1, k)
Next
fstar(1) = Application.Max(arr())

---