Opsplitning af data

Så antal af linier afhænger af hvor mange semikolon ; der er i Vinder hvor det så skal kopieres det faste enheder Udbud og Art ned og Vinder og Sum splittes op på disse.... Er det muligt ?

Ja
Vælg Data - tekst i kolonner
Her kan du sætte mellemrum og tabulator mm

Den funktion er jeg bekendt med - men løser ikke problemet med, at opliste værdierne under hinanden.
Lars

Den opstilling du har lavet, er det "et tænkt eksempel", eller får du data ind fra en CSV fil, sådan som vist? Semikolon og mellemrums separeret

Hej ebea
Det er data i Excel ark hvor noget data er separeret med semikolon og noget med faste enheder/data - står nøjagtigt som vist ovenfor - der kan dog også forekomme andre kolonner længere ude hvor data også er semikolon opdelt. Men antal af semikolon er ens i de felter hvor disse står.
Så de skal først adskilles - derefter skal der oprettes x antal nye linier (svarende til antal semikolon for det enkelte udbud) - så skal de adskilte data transponeres og de faste felter sættes - så det ser ud som resultatet ovenfor.
Kan det kodes ?

Sub xSplit()

Sheets("Ark1").Select ' Gør kilde arket aktivt - ret til aktuel arknavn
Set sh2 = Sheets("Ark2") ' Destinations ark ret til aktuel arknavn

For j = 2 To 4 ' Gennemløber fra række 2 til række 4 - ret til aktuel

kolA = Range("A" & j) ' Udbud
kolB = Range("B" & j) ' Art
kolC = Split(Range("C" & j), ";") ' Vinder
kolD = Split(Range("D" & j), ";") ' Sum

For t = 0 To UBound(kolC) ' UBound(kolC)=antal værdier adskilt af semikolon

rk = sh2.Cells(1000, "A").End(xlUp).Row + 1 ' Næste tomme række i destinations arket

sh2.Cells(rk, 1) = kolA
sh2.Cells(rk, 2) = kolB
sh2.Cells(rk, 3) = kolC(t)
sh2.Cells(rk, 4) = kolD(t)
Next
Next

End Sub

Hej excelent
Det virker bare
Mange tak for hjælpen
Lars