Problem mit Wertermittlung (Minimum, 2t-kleinster Wert etc.) aus einem Array

Hallo,


ich habe diverse Probleme mit unten stehendem Code, da haut wohl einiges nicht hin, daher benötige ich dringend Hilfe.... :-(


Ich habe es auch schon ohne die Anführungszeichen bei den Array-Elementen probiert, also bspw. Array(p1, p2), aber das funktioniert ebenso nicht. Eine Fehlermeldung kommt bei der Minimum-Funktion zwar nicht, dafür aber bei der Small-Funktion... und ich habe keine Ahnung warum.

Das Füllen der Zelle (3,3) habe ich nur zum Überprüfen eingefügt und es gibt mir 0 aus, obwohl das eigentliche Minimum des Arrays 300 ist. Wenn ich aber die Maus über das Array halte, scheint dieses richtig befüllt zu sein...


Falls benötigt, hier noch kurze Angaben zum Hintergrund:

Das ganze ist Teil eines komplexeren Makros, das ich aufbauen möchte. Da es insgesamt 70 Fallunterscheidungen (bzw. eigentlich noch mehr) wären, wenn ich jedes Mal mit IF verschiedene Bedingungen abprüfen würde, möchte ich mit dem Code unten die Reihenfolge von Optionen ermitteln, die dann bei Bedarf nacheinander durchgegangen werden.



------

Sub Testmakro()

Dim p2 As Range
Dim p1 As Range
Dim p4 As Range
Dim p3 As Range

Dim end_index As Byte
Dim start_index As Byte

Dim opt1 As String
Dim opt2 As String
Dim opt3 As String
Dim opt4 As String

Dim pricearray


With ActiveSheet

Set p0 = Cells(2, 7)
'=300
Set p1 = Cells(2, 5)
'=310
Set p2 = Cells(2, 9)
'=312
Set p3 = Cells(2, 11)
'=313

If p0 = 0 And p3 = 0 Then
start_index = 1
end_index = 2
pricearray = Array("p1", "p2")
ElseIf p3 = 0 Then
start_index = 0
end_index = 2
pricearray = Array("p0", "p1", "p2")
ElseIf p0 = 0 Then
start_index = 1
end_index = 3
pricearray = Array("p1", "p2", "p3")
Else
start_index = 0
end_index = 3
pricearray = Array("p0", "p1", "p2", "p3")
End If

Cells(3, 3) = WorksheetFunction.Min(pricearray)
'gibt 0 aus, sollte aber eigentlich 300 ausgeben


For n = start_index To end_index

If WorksheetFunction.Min(pricearray) = pricearray(n) Then
opt1 = "p" & n
'wenn das Minimum des Arrays an der aktuellen Stelle n liegt, soll opt1 = pn sein (also in unserem Fall p0)
ElseIf WorksheetFunction.Small(pricearray, 2) = pricearray(n) Then
opt2 = "p" & n
'wenn der zweitkleinste Wert des Arrays an der aktuellen Stelle n liegt, soll opt2 = pn sein (also in unserem Fall p1)
ElseIf WorksheetFunction.Small(pricearray, 3) = pricearray(n) Then
opt3 = "p" & n
Else
opt4 = "p" & n
End If
Next n

End With

End Sub


------


VIELEN DANK im Voraus für jeden Versuch der Hilfe! Ihr seid meine Rettung!


VG