via VBA een formule op meerdere cellen toepassen

[TJS]

Hoi,

Ik heb een probleem om in VBA een formule op meerdere cellen toe te passen, omdat ik niet goed weet hoe ik de referenties dan aan moet passen.

Onderstaande formule bepaalt de afstand tussen een reeks van twee aandelenkoersen die in rij B en C staan.
"=SUMSQ((prices!B2:B7-average!B7)/stdevB7!-(prices!C2:C7-average!C7)/stdev!C7!)"

In VBA wordt dit zoiets als:
"=SUMSQ((prices!RC:R[5]C-average!R[5]C)/stdev!R[5]C-(prices!RC[1]:R[5]C[1]-average!R[5]C[1])/stdev!R[5]C[1])"

Ik moet dit echter voor veel meer aandelen uitrekenen, daarbij moet ik alle mogelijke combinaties hebben. Dit wilde ik doen door voor de relatieve referenties, achter R en C, een variabele in te vullen en dan door middel van een loop alle mogelijke combinaties uit te laten rekenen. Dit werkt alleen niet omdat bovenstaande formule niet werkt als je een variabele invult achter R of C. Ik heb het ook al geprobeerd met ActiveCell.Offset(0,1) etc., maar dan is ook het probleem dat je een van de twee aandelen vast wilt houden en dan ander wil laten verspringen. Hiervoor zou je ook een variabele in de formule moeten invoeren.

Wie kan mij helpen met dit probleem? De reden dat ik dit niet in gewoon excel kan doen, is dat ik het ook nog voor veel meer tijdsperiodes moet uitrekenen (B3:B8, B4:B9, etc), dus dat zou teveel handmatig werk zijn.

Groet Tamara

 

[Wigi]

Hoi Tamara

In essentie is die formule in VBA een string, dus een stuk tekst.

En zoals je wellicht weet - als ik zie dat je al tot dit niveau gekomen bent :thumb: - kan je strings uit elkaar halen.

Bvb.

Range("A1").Formula = "=RC[5]"

kan worden:

    Dim iKolomVerschuiving As Integer
    
    iKolomVerschuiving = 5
    
    Range("A1").Formula = "=RC[" & iKolomVerschuiving & "]"

Wigi

 

[TJS]

Dank je wel! het probleem zat hem in de [" & ..& "], nu doet ie het inderdaad wel!