Jeg står og skal bruge alle værdierne i én kolonne i én celle adskilt med |. Kolonnen er filtret og nogle rækker er ikke relevant/skjult. Ved ikke om det har indflydelse på formlen. Bit bud er noget i stilen med =A2&"|"&A3&"|"&A4 Men har rigtig mange rækker, og det vil tage en evighed at sætte cellerne ind manuelt. Er der nogen der har kendskab til dette? På forhånd tak for hjælpen! /Søren
--

#1
MHammer
Mega Supporter
15-03-2017 07:45

Rapporter til Admin

Vil mene du kan bruge Excels =SAMMENKÆDE(A2;"|";A3;"|";A4) Og så semikolon istedet for &. Og hvis du skal bruge data fra et andet ark =ARKNAVN!CELLE //Hammer
--
Helpful? Rate it. Solved? Post it. Idiot? Shut up.
--

Sidst redigeret 15-03-2017 07:47

#2
Tommy82
Ny på siden
15-03-2017 07:52

Rapporter til Admin

Åbn dit ark - tryk på udvikler og visual basic - Her indsætter du et module og indsætter understående. Option Explicit Public Function MakeWorkNow(ByVal range) As String Dim result As String result = "" Dim cellValue For Each cellValue In range.Cells If (result <> "") Then result = result & "|" End If result = result & cellValue Next MakeWorkNow = result End Function Gå tilbage i dit ark og skriv =makeworknow(A1:Axxxxx)
--

Sidst redigeret 15-03-2017 07:52

#3
Sørenhejhej
Ny på siden
15-03-2017 08:00

Rapporter til Admin

#1 Tak for dit svar. Umiddelbart virker det ikke på anden vis, end at jeg stadig manuelt skal indtaste de forskellige celle referencer. #2 Tak for dit svar. Det virker. Den tager dog ikke højde for de skjulte/ikke relevante rækker. Har du en løsning til dette? PFT
--

#4
Tommy82
Ny på siden
15-03-2017 08:07

Rapporter til Admin

Kan du ikke filtrere og kopiere det du skal sammenkæde over i et andet ark og bruge funktionen der, så er de skjulte rækker der ikke. Jeg ved ikke hvordan det kan bygges ind i selve funktionen.
--

#5
stallemanden
HOL Moderator
15-03-2017 09:04

Rapporter til Admin

Det er forholdsvis simpelt at tjekke for, om en række er skjult Option Explicit Public Function MakeWorkNow(ByVal range) As String Dim result As String result = "" Dim cellValue For Each cellValue In range.Cells If Not cellValue.EntireRow.Hidden Then If (result <> "") Then result = result & "|" End If result = result & cellValue End If Next MakeWorkNow = result End Function
--
http://hamdentykke.dk[...]
--

Sidst redigeret 15-03-2017 09:05

#6
Sørenhejhej
Ny på siden
16-03-2017 07:55

Rapporter til Admin

#5 1000 tak for dit svar. Det virkede og vil hjælpe mig meget fremadrettet.
--