Jeg har lavet en sammenkædning af nogle celler til en celle med anførsel af et komma mellem hver tekst. Jeg vil så gerne splitte sammenkædningen ud i en celle(række) for hvert punkt i sammenkædningen.
Min sammenkædning ser således ud: "Nord vinduer,Øst vinduer,Syd vinduer,Vest vinduer,Ydervæg,"Valg fri",Linjetab vinduer,Linietab fundament,"
Som så skal splittes ud i hver deres celle fordelt efter komma separationen.
Har forsøgt mig med noget =MIDT og FIND funktioner, men synes ikke rigtig jeg kan få det til at virke.
Dim samletTekst As String, splitTekst As Variant Dim kolonne As Byte, ix As Byte Sub splitCelleOgFordel() Rem hent cellen fra A1 samletTekst = Cells(1, 1) splitTekst = Split(samletTekst, ",")
Rem start opsplitning i kolonne 2 kolonne = 2
Rem hent hver deltekst og sæt i anførte række / kolonner For ix = 0 To UBound(splitTekst) Cells(1, kolonne) = splitTekst(ix) kolonne = kolonne + 1 Next ix
en forkortet udgave af supertekst, der virker på markerede celler
Sub splitCelleOgFordel() Dim C As Range On Error Resume Next For Each C In Selection Range(Cells(C.Row, C.Column + 1), Cells(C.Row, C.Column + UBound(Split(C, ",")))) = Split(Mid(C, 2, Len(C) - 2), ",") Next Columns.AutoFit End Sub
Jeg det skal være noget der sker automatisk, da jeg henter forskellige data ind i arket fra gang til gang...så det hele skal hele tiden ske automatisk, også gerne uden makro.
Kan det så ikke lade sig gøre når det ikke skal være en makro?
mvh Xane
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
