VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Mittelwert ohne Nullwerte

Gruppe

UDF

Bereich

Mittelwert

Thema

Mittelwert ohne Nullwerte

Problem

Wie ermittle ich den Mittelwert aus einer Liste von Zahlen, ohne daß die Nullwerte berücksichtigt werden?

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Mittelwert