Hallo Andreas,
anstatt die Formel mit VBA zu kopieren, könntest du die Formel auch gleich per VBA angepasst einfügen.
Wenn ich dich richtig verstehe steht die Formel, die du gepostet hast in Spalte H.
Versuche mal den folgenden Code:
Sub Formel()
Dim lngSpalte As Long
Dim strSpalte As String
For lngSpalte = 8 To 38 Step 5
'Buchstabe für Spalte ermitteln
strSpalte = Mid(Columns(lngSpalte - 1).Address, 2, InStr(1, Columns(lngSpalte - 1).Address, ":") - 2)
'Formel einfügen
Cells(3, lngSpalte).FormulaLocal = "=SUMME(INDIREKT(""" & strSpalte & "11:" & strSpalte & """ &VERGLEICH("""";E:E;-1)))/ANZAHL(INDIREKT(""F1:F""&VERGLEICH("""";E:E;-1)))"
Next lngSpalte
End Sub
Die Einfügezeile musst du natürlich noch anpassen, ebenso wie die letzte Einfügespalte.
Gruß
M.O.