 �
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
|
