Auf die Gefahr hin, das ich mich als Amateur oute:
Habe da ne kleine Funktion geschrieben, die auch funktioniert. Aber: Die Berechnung erfolgt nicht, wenn die verwendeten Werte geändert werden. Gehe ich aber per F2 kurz in die Zelle, erfolgt auch die Berechnung. Hier die function:
Public Function MittelwertBeiStep(step As Integer) As Double
Dim zeile, spalte, foundNumbers As Integer
Dim summenWert As Double
zeile = Application.Caller.Row
spalte = Application.Caller.Column
foundNumbers = 0
summenWert = 0
While Val(ActiveSheet.Cells(zeile, spalte + step * (foundNumbers + 1)).Value) > 0
summenWert = summenWert + ActiveSheet.Cells(zeile,spalte + step * (foundNumbers + 1)).Value
foundNumbers = foundNumbers + 1
Wend
If (foundNumbers > 0) Then
MittelwertBeiStep = summenWert / foundNumbers
Else
MittelwertBeiStep = -1
End If
End Function
(Umbrüche sind bei mir natürlich so nicht vorhanden)
Muß die Funktion besondere Eigenschaften haben? Oder was?
Das was die func leistet bitte nicht diskutieren! Es geht nur ums Prinzip!
mfg
Dirk