Excel: jede xte Zelle für Formel verwenden

[Foramin]

Hallo zusammen,

ich versuche in Excel den Mittelwert von jeder 6. Zeile in einer Spalte zu berechnen. Also z.b. von A1, A7, A13, A17,... Und das mit ~70 Werten. Eigentlich würd ich einfach jede 6. Zelle mit in die Formel aufnehmen, aber die unterstützt nur 30 Werte...
Gibt es eine einfache Lösung dafür? Also ein Befehl "nimm in Spalte x immer den yten Wert und das Ganze z Mal".
Bisher hab ich beim Googeln nur Visual Basic-Tipps gefunden, die ich aber schlichtweg nicht verstehe um sie auf meinen Fall zu verändern - hab noch nie mit Macros o.ä. gearbeitet... Oder kann mir jemand die Macros erklären?

Danke schön

[robobimbo]

Mal schnell zusammengeschustert, sieht man den code auch an :)


Public Function MittelwertN(ByVal r As Range, n As Integer) As Double
Dim value As Double
Dim count As Integer
Dim steps As Integer
Dim c As Range
value = 0
steps = 0
count = 0
For Each c In r
steps = steps + 1
If steps Mod n = 0 Then
value = value + c.Value2
count = count + 1
End If
Next
MittelwertN = value / count
End Function


Das gehört in ein Excel VBA Modul reinkopiert.
Du kannst dann das wie eine normale Formel innerhalb von Excel verwendet

z.B.: =MittelwertN(A1:A10;2)

wenn a1 bis a10 mit 1 - 10 durchnummeriert sind, nimmt er dann zb. 2,4,6,8,10 = 30 / 5 Werte = 6

Mehr hab ich nicht getestet, müsstest selbst durchprobieren obs passt.