Bereik van ActiveCell.FormulaR1C1 vergroten

[tThye]

Beste mensen,

Ik heb de volgende formule opgesteld in VBA:

Range("L15").Select
ActiveCell.FormulaR1C1 = 
"=IF(AND(RC[-8]<=7999,RC[-8]>=7000),1.96,0)+IF(AND(RC[-8]<=6999,RC[-8]>=6000),1.7,0)"
Range("L15").Select

Dit werkt prima, maar ik wil de formule graag toepassen op het bereik "L15:L215". Hoe krijg ik dit gemakkelijk voor elkaar zonder dat ik de bovenstaande code 200x moet kopieren? Het aanpassen van het bereik naar Range("L15:L215").Select werkt uiteraard niet.

Groeten,

Mark

 

[Warme bakkertje]

Is dit de bedoeling ?

Sub tst()
Range("L15") = "=IF(AND(RC[-8]<=7999,RC[-8]>=7000),1.96,0)+IF(AND(RC[-8]<=6999,RC[-8]>=6000),1.7,0)"
Range("L15:L215").FillDown
End Sub

 

[HSV]

Kom je hiermee weg?

Formule ook iets anders in elkaar gestoken.

With Range("L15:L215")
.FormulaR1C1 = "=IF(AND(RC[-8]<=7999,RC[-8]>=7000),1.96,IF(AND(RC[-8]<=6999,RC[-8]>=6000),1.7,0))"
End With

 

[tThye]

Kom je hiermee weg?

Formule ook iets anders in elkaar gestoken.

With Range("L15:L215")
.FormulaR1C1 = "=IF(AND(RC[-8]<=7999,RC[-8]>=7000),1.96,IF(AND(RC[-8]<=6999,RC[-8]>=6000),1.7,0))"
End With

Dag Harry,

Jouw oplossing is de juiste en werkt prima.

Rudy ook bedankt voor de moeite.

Groeten,

Mark