Function mittel(n As Integer) As Double
Dim arr As Range
Dim v As Variant
Dim sum As Double
Dim anzahl As Integer
Set arr = Range("E2:E22")
For Each v In arr
sum = sum + v
Next
mittel = sum / n
End Function
Wenn ich zum Beispiel in Spalte I den Durchschnitt ausrechnen will, dann stimmt das Erste, jedoch kommt immer das selbe Ergebnis wenn
es hinunterziehe. Es sollte für jede Zeile ein anderes Ergebnis dastehen oder?
Ich habe überlegt, noch einen Parameter hinzuzufügen, wie z.B. bei =WENN(E2:E22, da nimmt er als Startwert auch immer die nächste Zeile.
Wie funktioniert das dann in VBA?
Gruß