Formel umschreibn

Bild

Betrifft: Formel umschreibn
von: Eleni
Geschrieben am: 20.04.2005 12:26:22
Hallihallo zusammen,
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

Bild

Betrifft: AW: Formel umschreibn
von: Mac4
Geschrieben am: 20.04.2005 12:34:39
Hi,
so sollte es klapen:
ActiveCell.Formula = "=AVERAGE(J3:J" & [J65536].End(xlUp).Row & ")"
Marc
Bild

Betrifft: AW: Formel umschreibn
von: Eleni
Geschrieben am: 20.04.2005 12:36:56
Hi Marc,
Danke für die schnelle Hilfe, läuft prima.

Ciao, Eleni
Bild

Betrifft: Geschlossen, o. T.
von: Eleni
Geschrieben am: 20.04.2005 12:37:42
o. T.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formel umschreibn"