Hoi forum
Ik een tabel met verscheidene lijnen per persoon met aangeduide landencodes.
Uiteindelijk wil ik per persoon 1 lijn verkrijgen waarbij alle aangeduide codes bij zijn naam zijn ingevuld.
In het bestand in bijlage heb ik verdere uitleg gegeven (wat heb ik / wat wil ik).
Wellicht eenvoudig op te lossen met Excel Power Query, maar vind zelf geen oplossing.
Wie kan helpen a.u.b. - Alvast dank voor de moeite!

Dag Veerj

Bedankt alvast om mij verder te helpen.
Ik heb de code overgenomen, maar bij mij vult hij bij iedereen alle codes in.
Wat kan de oorzaak zijn? En wat bedoel met "in 2 stappen"

Ik krijg de melding dat je wellicht een nieuwere versie van Excel hebt gebruikt dan diegene die ik heb (Excel Office 365 voor ondernemingen)...

Misschien een beetje laat, maar kom hier al een tijdje niet meer

let
    Bron = Excel.CurrentWorkbook(){[Name="Tabel1"]}[Content],
    #"Type gewijzigd" = Table.TransformColumnTypes(Bron,{{"WIE", type text}, {"AT", type text}, {"BE", type text}, {"CH", type text}, {"CZ", type text}, {"DE", type text}, {"DK", type text}, {"ES", type text}, {"FR", type text}, {"GB", type text}, {"HR", type text}, {"HU", type text}, {"IE", type text}, {"IT", type text}, {"LU", type text}, {"NL", type text}, {"NO", type text}, {"PL", type text}, {"PT", type text}, {"SE", type text}, {"SI", type text}, {"MA", type text}, {"RO", type text}}),
   
    // Pak de lijst met alle kolomnamen behalve "WIE"
    LandKolommen = List.Skip(Table.ColumnNames(#"Type gewijzigd"), 1),
   
    // Groepeer op "WIE" en neem de Max van elke landkolom
    #"Verdichte Tabel" = Table.Group(#"Type gewijzigd", {"WIE"},
        List.Transform(LandKolommen, (kolomnaam) => {kolomnaam, each List.Max(Table.Column(_, kolomnaam)), type text})
    ),
    #"Waarde vervangen" = Table.ReplaceValue(#"Verdichte Tabel",null,"",Replacer.ReplaceValue,{"AT", "BE", "CH", "CZ", "DE", "DK", "ES", "FR", "GB", "HR", "HU", "IE", "IT", "LU", "NL", "NO", "PL", "PT", "SE", "SI", "MA", "RO"})
in
    #"Waarde vervangen"