Macro voor selectie van bedragen (selectie wisselt)

[TEAMLegendary]

Goedendag,

Ik heb een macro nodig die bedragen in bepaalde regels optelt en de som plaatst in een andere cel. Het aantal regels dat geselecteerd moet worden verschilt echter per keer.

Ik heb een Excelbestand toegevoegd als toelichting.

In cel J2 heb ik een voorbeeld geplaatst wat ik graag zou willen zien in de geel gekleurde cellen.

De lijst heb ik dit maal uit 13 regels laten bestaan maar deze bestaat normaal uit 200-300 regels.

Kan iemand mij helpen?

Alvast bedankt!

 

[Roncancio]

Sub Totalen()
    For Each chunk In Cells.SpecialCells(xlCellTypeConstants).Areas
        chunk.Offset(-1, chunk.Columns.Count).Resize(1, 1).FormulaR1C1 = "=Sum(r" & chunk.Row & "c[-1]:r" & chunk.Row + chunk.Rows.Count - 1 & "c[-1])"
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Of met een simpele formule: