ich habe eine Tabelle mit ca 2800 Zeilen (jede zweite eine Leerzeile).
in den befüllten Zeilen steht in den Spalten 1-12 ein Messwert und in Spalte 14 der Mittelwert jeder der Zeilen
Mein Ziel ist es den Mittelwert von den Messwerten abzuziehen, um eine Abweichung zu errechnen (diese Abweichung soll dann in den Leerzeilen aufgeführt sein.)
Dazu bin ich wie folgt vorgegangen:
dim i as integer
dim lAnzZeilen as Long
lAnzZeilen=worksheets(1).usedRange.Rows.Count
With Worksheets(1)
For i=2 to lAnzZeilen Step 2
Range("A"&i).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+.cells(14,i-1).value"
Range("A"&i).Select
Selection.Autofill Destination :=Range("A"&i&":L"&i)
Next i
End with
Der Fehler ist in der dickgeschriebenen Zeile mit Selection.Autofill
Dort liegt angeblich ein Syntaxfehler vor
Bin um jede Hilfe sehr dankbar!