Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mittelwert ohne Nullwerte

Gruppe

Mittelwert

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