Gruppe
UDF
Problem
Wie kann ich aus einer Wertetabelle den Mittelwert unter Berücksichtigung einer Ober- und Untergrenze errechnen?
StandardModule: basMain
Function IfAverage( _
rngAll As Object, _
dFirst As Double, _
dLast As Double) As Double
Dim rng As Range
Dim dSum As Double
Dim iCounter As Integer
For Each rng In rngAll.Cells
If IsNumeric(rng.Value) Then
If rng.Value >= dFirst And rng.Value <= dLast Then
dSum = dSum + rng.Value
iCounter = iCounter + 1
End If
End If
Next
If iCounter > 0 Then
IfAverage = dSum / iCounter
Else
IfAverage = 0
End If
End Function