Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Formel umschreibn"
Anzeigen von Werten und Formeln Zeile einfügen und Formeln und Werte übernehmen
Formeln mit Zelladressen speichern Zeilenumbruch in Formel erzwingen
Aktueller Arbeitsblattname in Formel Variable in Formel einbauen
Ein Zeichen in einer Formel suchen Variable in Excel-Formel einbauen.
Summenformel unter Zahlenreihe eintragen Arbeitszeittabelle und SVERWEIS-Formel