|
Hallo alle zusammen.
Ich habe eine Datenreihe, wo ich eine Art gleitenden Durchschnitt berechnen möchte.
z.B:
1 2 ...5 6 ... 1 2
wobei das "..." für eine leere Zelle steht. Jede Zahl steht in ihrer eigenen Zelle.
Ich habe es auch bereits geschafft, dass der Durchschnitt jeweils berechnet wird und ausgegeben wird. Jedoch möchte ich die Lücken ignorieren. Heißt, wenn eine leere Zelle dazwischen ist, soll eins weitergegangen werden. Aber der Durschnitt soll diese Lücke nicht "mitspringen" und den nächsten Durchschnitt in die nächste freie Zelle einfügen
Hier mein aktueller Code :
Public Sub Durchschnitt()
While Range("B2").Offset(i, 0).Value <> ""
i = i + 1
Wend
While Range("B1").Offset(0, j).Value <> ""
j = j + 1
Wend
Dim a As Integer
Dim b As Integer
a = 0
b = 0
While a <= i
While b <= j
If Range("B2").Offset(a, b).Value = "" Then
b = b + 1
Else
Range("B6").Offset(a, b).FormulaR1C1 = "=SUM(R2C2:R[-4]C)/COUNT(R2C2:R[-4]C)"
b = b + 1
End If
Wend
a = a + 1
Wend
End Sub
Ich hoffe jemand versteht meine Problematik und kann mir helfen
|