Som uit een Array halen

[Leika]

Beste forumleden,

Ik heb gegevens in kolom A en daarop los ik een combinatie...
Ik bepaal in Range B1 de aantal kolommen die ik wil.

Nu wil ik graag op het einde van de kolommen de som gehad van elke rij.
De som wil ik liever door VBA laten gebeuren en niet met formules - indien mogelijk tussen mijn code in.

Bijlage met code moet meer duidelijkheid geven.
Alvast bedankt om dit te lezen!

Leika

Bekijk bijlage 332728

 

[E v R]

- indien mogelijk tussen mijn code in.

In jouw sub: Sub CombosNoRep(ByRef v() As Variant, r As Long); plaats net voor

 Range("C1").Resize(numRows, r + 1).Value2 = comboMatrix

 For i = 1 To UBound(comboMatrix)
    comboMatrix(i, r + 1) = Application.Sum(Application.Index(comboMatrix, i, Empty))
 Next

en Redim jouw comboMatrix als volgt:

ReDim comboMatrix(1 To numRows, 1 To r [B][COLOR="#FF0000"]+ 1[/COLOR][/B])

 

[Leika]

Dag Eric,

Werkt uitstekend!
Mijn weekend kan alvast niet meer stuk

Groetjes