Public Function FktMittelwert(x, N)
Dim i As Integer
Dim summe As Single
For i = 1 To N
summe = summe + x(i)
Next i
FktMittelwert = summe / N
End Function