Oprettet tir. d. 06. december 2011 kl. 15:08:11

PBChristensen
PBChristensen (2.245 point. Point ude: 60)

Sammenkædning af kolonne?

Hejsa,

Er der nogen, der kan hjælpe mig med følgende:

I cellen H126 vil jeg godt have sammenkædet teksterne fra kolonne x (primært fra række 47 til 77).
Pga anden makro, er det ikke sikkert at der står data i alle cellerne, men altid fortløbende. (dvs. at er der f.eks. data i celle x47, x48 og x49, så er der ikke flere data, men i andre tilfælde kan der være data helt ned til f.eks. x77)

Dataene er altid på 3 cifre, og skal gerne adskille af en skråstreg.

Altså kunne resultatet se sådan ud: H126="010/050/075/256"

Hvis jeg prøver med funktionen SAMMENKÆDNING, så vil der stå en masse skråstreger de steder, hvor cellerne er tomme...

Har også prøvet med en lang HVIS-funktion, men den blev altså ret uaoverskuelig.... Mon ikke VBA kan gøre det med et LOOP?

På forhånd tak!!

Skrevet tir. d. 06. december 2011 kl. 16:41:49| #1

dkhanknu
dkhanknu (35.505 point)
Indsæt nedenstående kode i et modul og indtast følgende i en tom celle:

=ConCatRange(X47:X77) eller det område, hvor du har dine data.


Function ConCatRange(CellBlock As Range) As String
Dim Cell As Range
Dim mconcat As String
    For Each Cell In CellBlock
        If Len(Cell.Text) > 0 And Len(mconcat) = 0 Then
            mconcat = mconcat & Cell.Text
        ElseIf Len(Cell.Text) > 0 And Len(mconcat) > 0 Then
            mconcat = mconcat & "/" & Cell.Text
        End If
    Next
    ConCatRange = Left(mconcat, Len(mconcat))
End Function

Skrevet tir. d. 06. december 2011 kl. 16:45:31| #2

PBChristensen
PBChristensen (2.245 point)
Tusind tak - det virker super!!!

Skriv et svar!

Skrevet tir. d. 06. december 2011 kl. 16:50:34| #3


Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

hjælp til at lave et træningsprogram

Oprettet den 26. maj 2012 kl. 20.44
janskov giver 30 point for svar | Giv et svar »

Datavalidering med anden workbook som referance

Oprettet den 26. maj 2012 kl. 09.05
KenneyD71 giver 60 point for svar | Giv et svar »

Søgeformel i Excel

Oprettet den 25. maj 2012 kl. 23.28
Torben1970 giver 60 point for svar | Giv et svar »



   




Tips & Tricks fra PC World

Teaser billede

Læserne: Her er vores værste it-indkøb

Det er ikke al it-udstyr, som er det rene guld. Her er nogle af læsernes skrækhistorier.


Anmeldelser fra PC World

Teaser billede

Test: Mobil med Ferrari-design - og en Trabant-motor

Motorola har begået endnu en smartphone med lækkert design og potentiale til at være blandt de bedste. Men den når ikke i mål. Se her hvorfor.


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Sådan siger du farvel til Facebook

Læs her, hvordan du dropper Facebook og i stedet anvender nogle brugervenlige alternativer, så du stadig kan være social på nettet.


Nyheder fra Computerworld

Teaser billede

Galleri: De fedeste håndholdte gennem 40 år

Her har du de mest banebrydende håndholdte computere gennem alle tider.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger