Möchte im Bereich von J3 bis zur letzten beschrifteten Zeile der Spalte J den Mittelwert ausrechnen und diesen dann eine Zelle drunter ausgeben.
Bsp. Letzte beschriftete Zelle ist J8:
Cells(Rows.Count, 1).End(xlUp).Offset(1, 9).Select
ActiveCell.Formula = "=AVERAGE(J3:J8)"
Wie kann ich "J8" als letzte beschriftete Zelle definieren und in diese Formel integrieren? Mit
Cells(Rows.Count, 1).End(xlUp).Offset(1, 9).Select
ActiveCell.Formula = "=AVERAGE(J3,Cells(Rows.Count, 10).End(xlUp))"
geht es nicht. Tipps?
Danke, Eleni