aantal.als met dynamische range

[MEradus]

Hallo allemaal,

Wederom heb ik een code waar ik het niet voormekaar krijg om de range dynamisch te maken.
Zou iemand mij hier mee kunnen helpen? Het moet zijn vanaf de activecell, naar boven ("N2").

    ActiveCell.FormulaR1C1 = "=COUNTIF(R[-123]C:R[-1]C,""True"")"
    Range("N125").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

 

[HSV]

Dynamisch genoeg?

ActiveCell.FormulaR1C1 = "=COUNTIF(R2C:R[-1]C,""True"")"

 

[MEradus]

Ik ga straks gelijk even checken. Bedankt!!

 

[MEradus]

Hij werkt super, dank je wel.