optellen cel in meerdere variabele tabbladen

[ro2b]

Hoi,

Ik wil een cel optellen in meerdere (oplopende) tabbladen.
De tabbladen zijn opeenvolgend genummerd: proloog, etappe1, etappe2, etappe3 t/m etappe21.

per rij moet er per tabblad een subtotaal opgeteld worden.
Dus op tabblad etappe2 moet het subtotaal van proloog t/m etappe2 opgeteld worden.
Ik gebruik nu:

=SOM(proloog:etappe1!N6)

om de totalen van N6 te tellen.

Ik wil nu het tabblad (in dit geval etappe1) variabel maken met een indirect en vert.zoeken (in een matrix waar de etappe gezocht wordt) maar krijg het niet voor elkaar. De N6 veranderd niet als ik het doorvoer naar andere rijen.

=INDIRECT(VERT.ZOEKEN($B$1;Prijzengeld!$P$4:$Q$25;2)&"!"&N6)

Dus proberen met een verschuiving:

=INDIRECT(VERT.ZOEKEN($B$1;Prijzengeld!$P$4:$Q$25;2)&"!"&VERSCHUIVING($N$6;0;0;1);1)

Ik krijg nu een

#VERW!

Dit trekt hij (en ik) niet meer .

Wie weet een oplossing?

 

[VenA]

Een heleboel helpers hier.

Dus plaats maar even jouw bestandje.:d

 

[ro2b]

Ik wil graag een bestand uploaden maar ik krijg het niet onder de 100kb ;-( Zelfs niet met zip.

Hoe krijg ik het hier geplaatst?

 

[ro2b]

Wellicht lukt het zo (WeTransfer): http://we.tl/B8DseV2wyu

In kolom L van alle tabbladen van de etappes moet dus een SOM komen van telkens de proloog tot en met het betreffende tabblad.

 

[ro2b]

Nu maar met een aanpassing echter ook dit zonder resultaat behalve #WAARDE!

=SOM(proloog!N6:VERSCHUIVING(INDIRECT(VERT.ZOEKEN($B$1;Prijzengeld!$P$4:$Q$25;2)&"!N6");0;0;;))

Wie heeft de oplossing (eventueel in VBA) :thumb:

 

[Timshel]

Misschien zo:

=INDIRECT(VERT.ZOEKEN($B$1;Prijzengeld!$P$4:$Q$25;2)&"!N"&RIJ())

 

[ro2b]

Ja, dit is prima.

Maar nu wil ik van deze waarde de som vanaf tab proloog tot en met het betreffende tabblad. Dus bij etappe 2: de som van de waardes in N van proloog t/m etappe 2 etc.

Bijvoorbeeld:

=SOM(proloog:INDIRECT(VERT.ZOEKEN($B$1;Prijzengeld!$P$4:$Q$25;2)&"!N"&RIJ()))

Alleen een functie ipv het te zoeken tabblad kan dus niet.

 

[Timshel]

Ik snap wat je bedoelt.
Probeer het eens met deze UDF:

Public Function Optellen(ShtNr As Long, Cl As Range) As Double
    Dim i As Long
    
    Optellen = Sheets("Proloog").Range(Cl.Address)
    For i = 1 To ShtNr
        Optellen = Optellen + Sheets("etappe" & i).Range(Cl.Address)
    Next
End Function

 

[ro2b]

Nee, nog niet helemaal, maar het gaat denk ik wel de goede kant op.

De doortelling gaat nog niet goed.
proloog = 0 dus waarde in cel L6 = 0
etappe1 = -300 dus waarde in cel L6 = -300
etappe2 = 786 dus waarde in cel L6 = 486
etappe3 = 162 dus waarde in cel L6 = 648
etc.

Ik zie niet waar de fout zit ;-(

 

[ro2b]

Ik zie niet waar de fout zit ;-(

Ik snap er niets van want nu doet hij het wel. :thumb: Ik ga hem nu testen op het hele schema, je hoort spoedig.

 

[WHER]

Bekijk ook deze niet-VBA aanpak eens (op sheet "etappe2" en "etappe3" toegepast zie gele gebied)

 

[ro2b]

Dank voor deze uitgebreide Functieformule. Hij werkt perfect maar de VBA heeft wel mijn voorkeur.

 

[ro2b]

Ik snap wat je bedoelt.
Probeer het eens met deze UDF:

Public Function Optellen(ShtNr As Long, Cl As Range) As Double
    Dim i As Long
    
    Optellen = Sheets("Proloog").Range(Cl.Address)
    For i = 1 To ShtNr
        Optellen = Optellen + Sheets("etappe" & i).Range(Cl.Address)
    Next
End Function

Hij werkt perfect maar als ik het bestand opstart dan rekent hij het niet gelijk door. Ik moet eerst de cel B1 een keer wijzigen dan pas lukt het. Is dit te veranderen?

 

[Timshel]

Probeer eens of dit het euvel oplost:

Public Function Optellen(ByVal ShtNr As Long, ByVal Cl As Range) As Double
    Dim i As Long
    
    Application.Volatile
    Optellen = Sheets("Proloog").Range(Cl.Address)
    For i = 1 To ShtNr
        Optellen = Optellen + Sheets("etappe" & i).Range(Cl.Address)
    Next
End Function

 

[ro2b]

Super bedankt Timshel, het werkt perfect nu.