Data uit een bepaald bereik krijgen dat gescheiden wordt door horizontale titels.

[Rickvdl]

Dag allen,

Ik ben bezig om een PowerBI export samen te voegen in een mutatiebestand voor de boekhouder. In het mutatiebestand staan nog meer gegevens die niet in PowerBi verwerkt worden. Hierdoor moet altijd handmatig data van de export in het mutatiebestand gezet worden, wat niet alleen tijdrovend is maar ook nog eens foutgevoelig.
Aan de output van PowerBI kan vrij weinig gesleuteld worden.
Ik heb al een macro geschreven waardoor met een druk op de knop het gewenste werkblad van de PowerBI export als een extra werkblad in het mutatiebestand wordt gekopieerd, alleen loop ik nu vast op het volgende:
De export van PowerBI sorteert zoals in de afbeelding weergegeven, dit is een voorbeeld van hoe het kopieerde werkblad eruit ziet:
Op een ander werkblad binnen het mutatiebestand wil de data als volgt eruit laten komen voor de boekhouder:
Ik kom er niet uit hoe Excel gaat 'snappen' dat alles wat onder de kop met code JBA in de export dan opgesomd wordt bij JBA in het overzicht voor de boekhouder. Bij woonwerk reiskosten is het simpel, daar zou ik de naam kunnen verwerken en hierop gaan filteren, maar ik wil graag een eenduidige oplossing zodat in het mutatiebestand bij alle 3 de zoektermen dezelfde formule gebruikt kan worden.

Aanvullend sorteert powerBI alfabetisch en het mutatiebestand op basis van datum indiensttreding.

Heeft iemand hier ervaring mee? Zelf zat ik te denken aan verzamel alles onder de naam totdat je voor de 2e keer value "Kost Element" tegenkomt, maar geen idee hoe ik dit omtover naar een formule in Excel. Het principe van Lookup of Index/Range snap ik wel, maar het dynamisch bepalen van welke range de data vandaan moet worden gehaald lukt me niet.

Edit: voorbeeldbestand toegevoegd.

 

[edmoor]

Als je een voorbeeld document plaatst komt dat vast wel voor elkaar.

 

[Rickvdl]

Ik heb inmiddels een voorbeeldbestand toegevoegd. Dit is wel de uitgeklede versie van het daadwerkelijke bestand, omdat daar gevoelige informatie in kan zitten.
Werkbladnamen kloppen wel.

 

[AlexCEL]

Met Power Query kom je heel eind. Bestudeer bijlage maar eens.

 

[Rickvdl]

Super, dankjewel Alex, zo had ik hem nog niet bedacht. Ik ga eventjes puzzelen de bijlage!

 

[snb]

Of

Sub M_snb()
   With Sheet2.UsedRange
        .Value = .Value
        For Each it In Sheet2.UsedRange.Columns(3).SpecialCells(4)
            Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(it.Offset(, -1), it.Offset(, 5), it.Offset(, 6), it.Offset(, 3))
        Next
    End With
End Sub

 

[JEC.]

In formulevorm

=FILTER(FILTER(Sheet1!B2:I100;(LENGTE(Sheet1!B2:B100)=3)*(Sheet1!C2:C100="");"");{1\0\0\0\0\0\1\1})

 

[HSV]

In het verlengde.

=CHOOSECOLS(FILTER(Sheet1!B2:I100;(LENGTE(Sheet1!B2:B100)=3)*(Sheet1!C2:C100="");"");1;7;8)