Totalen uitsplitsen

[erwin2011]

Ik heb een tabel met gegevens waarin totalen staan. Per totaal heb ik een getal hoe vaak deze uitgesplitst moet worden. Ik wil dat deze automatisch (dus door middel van een formule) uitgesplitst worden, maar ik zou niet weten hoe ik dit moet aanpakken.

Het bijgevoegde voorbeeld moet duidelijkheid geven.
In het voorbeeld heb ik zelf de totalen uitgesplitst (zie excel bestand). Waar ik naar toe wil is dat excel via een (dynamische?) formule zelf de uitsplitsing maakt en alles onder elkaar zet.

Alvast bedankt voor de moeite!

 

[Hoornvan]

erwin2011,

Kun je hier wat mee?

=TEKST.SAMENVOEGEN(C2; " x ";D2/C2)

 

[erwin2011]

Bedankt voor je antwoord, maar helaas is dat niet wat ik bedoel.

Ik bedoel dat het echt over rijen uitgesplitst wordt.

 

[robdgr]

Waar ik naar toe wil is dat excel via een (dynamische?) formule zelf de uitsplitsing maakt en alles onder elkaar zet.

Dit zou ik niet weten, maar als het horizontaal mag, vind je de oplossing in de bijlage.

 

[erwin2011]

Bedankt voor de moeite, maar ik bedoel echt de weergave in rijen (precies zoals het voorbeeld alleen dan met formules)

 

[Warme bakkertje]

Ik ben geen formule-expert, maar ik denk niet dat dit met formules op te lossen is en dat je je toevlucht tot VBA zal moeten zoeken.
Als iemand mijn ongelijk kan bewijzen, met alle plezier natuurlijk.

 

[Ginger]

...lijkt mij volkomen onmogelijk met formules...
Daarom heb ik ff een klein stukje code geschreven die dit wel in een split-second aankan...

Sub SplitsTotalen()

    q1 = Range(Cells(2, 2), Cells(Rows.Count, 4).End(xlUp))
    For i = 1 To UBound(q1)
        L1 = L1 + q1(i, 2)
    Next i
    
    ReDim q2(1 To L1, 1 To 2)
    
    For i = 1 To UBound(q1)
        For ii = 1 To q1(i, 2)
            iii = iii + 1
            q2(iii, 1) = q1(i, 1)
            q2(iii, 2) = Round(q1(i, 3) / q1(i, 2), 2)
        Next ii
    Next i
    
    Cells(2, 6).Resize(L1, 2) = q2
    
End Sub

Groet, Leo

 

[Thoralf]

Het kan ook met formules en dan verticaal.


P.S.

In de formules wordt er van uit gegaan dat de gegevens in kolom B oplopend gesorteerd zijn. Als dat niet zo is dan moeten de verticaal zoeken functie aangevuld worden met ;0 (in de geel aangegeven formules dus 3 maal)

 

[erwin2011]

Bedankt! Ik denk dat ik hier een heel eind mee moet komen!

 

[Ginger]

Bedankt! Ik denk dat ik hier een heel eind mee moet komen!

Waarmee???

Groet, Leo

 

[sylvester-ponte]

zo iets?

ik heb wel kolom A gebruikt

en de rest met vertikaal zoeken

groet sylvester