Mit Hilfe einer benutzerdefinierten Funktion
können Sie Ihre eigene Mittelwert-Funktion erstellen.
Das nachfolgende Beispiel schließt beispielsweise die Null aus:
Function MeinMittelwert(Bereich As Range)
Anzahl = 0
tmp = 0
For Each zelle In Bereich.Cells
If zelle.Value <> 0 Then
Anzahl = Anzahl + 1
tmp = tmp + zelle.Value
End If
Next
MeinMittelwert = tmp / Anzahl
End Function
|
