Habe in Formular bis zu fünf Werten. Aus diesen Werten soll automatisch der Mittelwert errechnet werden.
Kann doch eigentlich gar nicht so schwierig sein.
Danke im voraus
Jürgen
Das geht z.B. mit dieser Funktion:
Public Function Avg(ParamArray P())
Dim V As Double, I As Long, N As Long
V = 0#: N = 0
For I = LBound(P) To UBound(P)
If Not IsNull(P(I)) Then
V = V + P(I)
N = N + 1
End If
Next I
If N = 0 Then
Avg = Null
Else
Avg = V / N
End If
End Function
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]