AW: Sind die 6 kleinsten oder 6 größten Werte gemeint?
31.05.2020 00:31:53
Martin
Hallo Wolfgang,
entschuldige bitte, dass ich deinen Beitrag so "vollmülle". Ich hatte versehentlich den Mittelwert statt des Medians berechnet. Hier nun die Korrektur(en).
Wenn die kleinsten Werte berücksichtigt werden sollen:
Function MyMedian(rngSource As Range, lngMaxValue As Long, iAmountValues As Integer) As Double
Dim arrNumbers() As Integer
Dim arrMedian() As Integer
Dim rngValue As Range
Dim lngCount As Long, lngSum As Long
Dim i As Integer
ReDim arrNumbers(rngSource.Cells.Count)
ReDim arrMedian(1 To 6)
For Each rngValue In rngSource.Cells
If rngValue.Value
Wenn die größten Werte berücksichtigt werden sollen:
Function MyMedian(rngSource As Range, lngMaxValue As Long, iAmountValues As Integer) As Double
Dim arrNumbers() As Integer
Dim arrMedian() As Integer
Dim rngValue As Range
Dim lngCount As Long, lngSum As Long
Dim i As Integer
ReDim arrNumbers(rngSource.Cells.Count)
ReDim arrMedian(1 To 6)
For Each rngValue In rngSource.Cells
If rngValue.Value
Aufruf per Makro mit:
Sub Aufruf()
MsgBox MyMedian(Range("A1:A20"), 9999, 6)
End Sub
Aufruf per Formel mit:
=MyMedian(A1:A20;9999;6)
So, jetzt ist für mich Schlafenszeit. Gute Nacht!
Viele Grüße
Martin