VBA - Suche aus einer Ergebnistabelle bestimmte Bereiche als Mittelwert

Hi,

- zu dem Thema gibts schon was, nur mal so als Ansatz 

http://www.computerhilfen.de/hilfen-14-100336-0.html#460112

leider kann ich
ActiveCell.Formula = Average.Cells([B1], [B5])
diese zeile nicht übernehmen.
ich brauch aber b1 und b5 variabel
kann jemand helfen

Ist es das, was du brauchst ?

Annahme: Die Werte stehen in Spalte A (beginnend in Zeile1 ohne Lücken), in Spalte B sollen die Mittelwerte angezeigt werden.

Die Startzeile (erster Wert für die erste Mittelwertberechnung) steht in C1, die Anzahl der zusammenzufassenden Werte in D1 und die Sprungweite in E1

Lösung:

Sub Calc()
Dim Rws As Long, Strt As Long, Cnt As Long, Incr As Long, Act As Long
   
    Range("A1").Select       'Tabellenstart
    Rws = ActiveCell.CurrentRegion.Rows.Count        'Tabellengröße ermitteln
    Strt = Range("C1").Value
    Cnt = Range("D1").Value
    Incr = Range("E1").Value
    Act = Strt + Cnt - 1
    Columns("A:A").Select
    Selection.Interior.ColorIndex = xlNone       'Hintergrundfarbe löschen
    Columns("B:B").Select
    Selection.Clear          'Spalte B löschen
   
    Do Until Act > Rws
        Range("B" & Act).Select          'Position für die Formel ermitteln
        ActiveCell.FormulaR1C1 = "=AVERAGE(R[-" & Cnt - 1 & "]C[-1]:RC[-1])"         'relativer Bezug
        Selection.Interior.ColorIndex = 35           'Hintergrundfarbe setzen
        Range("A" & Act - Cnt + 1 & ":A" & Act).Select
        Selection.Interior.ColorIndex = 35           'dito
        Act = Act + Incr
    Loop
End Sub

Beispiel:
A       B       C       D       E

1               5      5        10
2        (Start)   (Anzahl)   (Sprung)
3            
4            
5            
6            
7            
14            
1        6,6         
2            
3            
4            
5            
6            
7            
12            
1            
2            
3       5         
   


Gruß

Dieter