Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel umschreibn

Formel umschreibn
20.04.2005 12:26:22
Eleni
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel umschreibn
20.04.2005 12:34:39
Mac4
Hi,
so sollte es klapen:
ActiveCell.Formula = "=AVERAGE(J3:J" & [J65536].End(xlUp).Row & ")"
Marc
AW: Formel umschreibn
20.04.2005 12:36:56
Eleni
Hi Marc,
Danke für die schnelle Hilfe, läuft prima.
Ciao, Eleni
Geschlossen, o. T.
20.04.2005 12:37:42
Eleni
o. T.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige