kleine aber peinliche Frage. Wie kann man aus einem Array möglichst einfach ein Minimum suchen lassen? Ich will nicht jedes mal wieder eine Schleife dafür erstellen.
Danke schon mal
Bastian
Option Explicit
Sub MinSuchen()
Dim a
a = Array(5, 1, 8, 3, 9, 2, 7, 11, 4)
MsgBox WorksheetFunction.Min(a)
End Sub
Option Explicit
Sub MinSuchen()
MsgBox ArrayMin(Array(5, 1, 8, 3, 9, 2, 7, 11, 4))
End Sub
Function ArrayMin(a)
ArrayMin = WorksheetFunction.Min(a)
End Function