average in VBA

[moriceh]

Hallo,
Ik wil in een cel een average berekenen van een kolom waarvan de range elke keer kan verschillen.
met:
Range("c7").Select
Set myrange = Range(Selection, Selection.End(xlDown))
'
Range("E3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(" & myrange & ")"

Hoe zeg ik hoe hij de average van myrange moet nemen??

Ik denk een simpel vraagje, dus ik hoop op een antwoord.
Alvast bedankt.
Saskia

 

[Mark xl]

De vraag is simpel, het antwoord kan op vele manieren bereikt worden.

onderstaand voorbeeld is een van de manieren:

Sub Gemiddelde()
Dim strAddress As String

    strAddress = Range("C7", Range("C7").End(xlDown)).Address(, , xlA1)
    Range("E3").Formula = "=AVERAGE(" & strAddress & ")"

End Sub

of één lange regel (meestal niet de meest overzichtelijke manier, ik verkies liever bovenstaande manier.)

Range("E3").Formula = "=AVERAGE(" & Range("C7", Range("C7").End(xlDown)).Address(, , xlA1) & ")"

 

[moriceh]

Mark XL,
Bedankt, het werkt!!