Gruppe
UDF
Problem
Wie ermittle ich den Mittelwert aus einer Liste von Zahlen, ohne daß die Nullwerte berücksichtigt werden?
StandardModule: basMain
Function AverageSZero(rngAct As Range) As Double
Dim rng As Range
Dim dSum As Double
Dim iCounter As Integer
For Each rng In rngAct.Cells
If IsNumeric(rng.Value) Then
If rng.Value > 0 Then
dSum = dSum + rng.Value
iCounter = iCounter + 1
End If
End If
Next rng
If iCounter > 0 Then
AverageSZero = dSum / iCounter
Else
AverageSZero = 0
End If
End Function