Dringend: Median unter VBA (Excel)

[thekorn]

array integrieren

geht relativ einfach, du musst nur ein neues array im Integerdatentyp erzeugen und an die Funktion übergeben:
Zum Beispiel so:

Public Sub median_test()
Dim myArray() As String
Dim Zahlen() As Integer


Var = "1,2,3,4,5,6,6,9,78" 'zahlen MÜSSEN sortiert sein
myArray = Split(Var, ",", , vbTextCompare)
ReDim Preserve Zahlen(UBound(myArray()))

For i = 1 To UBound(myArray())
    ReDim Preserve Zahlen(i)
    Zahlen(i) = Val(myArray(i))
Next i

med_value = Application.WorksheetFunction.Median(Zahlen)
MsgBox (med_value)

End Sub

gruß
thekorn

 

[ronnyk]

Danke! Danke Danke!
Habt mir sehr geholfen!