Office: Mittelwert einer Auswahl

Hallo Forum,

ich schreibe gerade meine Masterarbeit über verschiedene Anlagestrategien, die ich mit Excel VBA mit einer Marktsimulation teste.

Konkrete Frage:

Ich will den Mittelwert eines bestimmten Zeilenbereichs bestimmen. Dieser Zeilenbereich sind immer die untersten 523 Zeilen einer bestimmten Spalte. Das Problem ist jetzt, dass die Tabelle immer weiter nach unten wächst (wenn sie aktualisiert wird) und nur von den untersten 523 Zellen der Mittelwert gebildet werden soll. Dieser Wert soll dann in Zelle "J2" ausgegeben werden.

Gibt es eine Möglichkeit die Avarage Formel auf eine Indirekte Auswahl zu beziehen? Ich bin mit .End(xlDown).select an die letzte Stelle der gewünschten Spalte gesprungen.

Und dann hätte es gerne irgendwie so:

Range("J2").Formula = "=Avarage("Range(Activecell):Range(ActiveCell.Offset(-523,0))")

Vielleicht könnt ihr mir ja helfen...

Vielen dank schon mal,
bleame.

:)

 

Hallo bleame,

du könntest es z. B. einmal so versuchen:

PHP:

         Option Explicit

Public Sub Durchschnitt()

Dim lErste    As Long
Dim lLetzte   As Long
Dim rBereich  As Range

With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
'     die letzte belegte Zeile in Spalte J ermitteln
lLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row
If lLetzte > 523 Then
lErste = lLetzte - 523
Else
lErste = 1
End If
Set rBereich = .Range("J" & lErste & ":J" & lLetzte)
End With


MsgBox "Der Durchschnitt der Zeilen " & lErste & " bis " & lLetzte & " beträgt " & _
WorksheetFunction.Average(rBereich)

Set rBereich = Nothing

End Sub


 

Super das hat geklappt! Dankeschön *Smilie