cellen samenvoegen met een | er tussen

[JEC.]

Heb je wel eerst een module aangemaakt in de VBA editor?

 

[remco1987]

Ah, oké

Power query is beschikbaar vanaf Excel 2016 of later en Microsoft 365.
Welke gebruik jij?

prive 2013.


goed om te weten dankjewel! als ik de kolom1 de naam wijzig naar FCL nummer dan krijg ik een error, waar kan ik dat aanpassen?

 

[remco1987]

prive 2013.


goed om te weten dankjewel! als ik de kolom1 de naam wijzig naar FCL nummer dan krijg ik een error, waar kan ik dat aanpassen?

let
Bron = Excel.CurrentWorkbook(){[Name="Tabel1"]}[Content],
#"Added Custom" = Table.SelectColumns( Table.AddColumn(Bron, "Samengevoegd", each Text.Combine( List.Transform(Bron[FCL-nummer], Text.From) , "|")), "Samengevoegd" ),
#"Eerste rijen behouden" = Table.FirstN(#"Added Custom",1)
in
#"Eerste rijen behouden"


zo werkt het helaas niet te simpel gedacht

 

[JEC.]

Plak die UDF achter een standaard module (rechtermuisknop, insert --> module). Dan werkt het...

 

[remco1987]

Plak die UDF achter een standaard module (rechtermuisknop, insert --> module). Dan werkt het...

sorry snap het niet, onwijs tof dat je je de moeite neemt om het me te laten begrijpen.

 

[remco1987]

Plak die UDF achter een standaard module (rechtermuisknop, insert --> module). Dan werkt het...

zie bijlage, krijg een waarde fout melding

 

[JEC.]

Zie hier

 

[JEC.]

Waarom het niet werkt bij jou is om dat je de variabele "rng" hebt aangepast naar "rgn" (in de functieregel)

 

[remco1987]

Zie hier

dat is hem! dankjewel, geen idee waarom hij het bij mij dan niet deed. had wel een andere code van je gebruikt die je eerder had opgegeven...
Function jec(rng As Range) As String
jec = Replace(Join(Application.Transpose(rng), "|"), "||", "")
End Function
deze, maar dankjewel!!

 

[remco1987]

Waarom het niet werkt bij jou is om dat je de variabele "rng" hebt aangepast naar "rgn" (in de functieregel)

dankjewel