Veldwaarde uitsplitsen over meerder velden

[Mark Boerkamp]

Hoi, wie kan me hierbij helpen ?

Ik heb in Excel een update veld, in elk veld staan meerdere updates, elke update eindigd met "[", wat ik zou willen is dat elke update afzonderlijk in een veld komt te staan.

Daarnaast moet de kolom die ervoor staat behouden blijven per update en een kolom worden toegevoegd met een volgnummer (om te kunnen sorteren).

Om het wat duidelijker te maken heb ik een voorbeeldje bijgevoegd, met de huidige situatie en met de gewenste situatie.

Wie kan me opweg helpen ?

Alvast bedankt voor je reactie.

Groetjes,
Mark.

 

[sylvester-ponte]

hallo Mark

een macrotje met "split" doet wonderen

maar hier zitten mensen die het zonder macro kunnen.

als je een macrotje wil hoor ik het wel

groet sylvester

 

[Warme bakkertje]

Ik kan het met een 'macrootje'

Sub tst()
    Sheets("Gewenst").UsedRange.ClearContents
    For Each cl In Sheets("Huidig").Range("B1:B" & Sheets("Huidig").Cells(Rows.Count, 1).End(xlUp).Row)
        nr = 1
        For i = 0 To UBound(Split([cl], "[")) - 1
            With [Gewenst!A65536].End(xlUp)
                .Offset(1) = cl.Offset(, -1)
                .Offset(1, 1) = "0.000" & nr
                .Offset(1, 2) = Split(cl, "[")(i)
            End With
            nr = nr + 1
        Next
    Next
    q1 = Sheets("Gewenst").Range("c2:c" & Sheets("Gewenst").Cells(Rows.Count, 1).End(xlUp).Row)
    For i = LBound(q1) To UBound(q1)
        q1(i, 1) = Replace(q1(i, 1), Chr(10), "")
    Next i
    [Gewenst!C2].Resize(UBound(q1)) = q1
End Sub

 

[WHER]

En hier een aanpak met formules (zoals beloofd door Sylvester )

 

[sylvester-ponte]

hoi
ongeveer het zelfde:

Sub Splitsen()
    'stel eerst je Naar en Van gebieden in
    Dim Naar As Range: Set Naar = Range("Gewenst!A1") 'hier start je nieuwe tabel
    Dim VanTotaal As Range: Set VanTotaal = Sheets("Huidig").Range("B1:B" & Sheets("Huidig").Cells(Rows.Count, 1).End(xlUp).Row)
    Dim Van As Range
    For Each Van In VanTotaal
        Teksten = Split(Replace(Van, Chr(10), ""), "[") '"Teksten" is de matrix waar de subteksten in komen
        For i = 0 To UBound(Teksten) - 1
            Naar = Van.Offset(0, -1)
            Naar.Offset(0, 1) = "0.000" & i + 1
            Naar.Offset(0, 2).WrapText = False 'hier geen tekstterugloop
            Naar.Offset(0, 2) = Teksten(i)
            Set Naar = Naar.Offset(1, 0) 'hier wordt naar op de volgende rij ingesteld
        Next i
    Next Van
    Naar.Parent.Columns("A:C").EntireColumn.AutoFit
End Sub

maar ik ben benieuwd hoe het opgelosd wordt zonder macro.

groet sylvester

 

[sylvester-ponte]

hallo die van WHER had ik nog niet gezien
groet

 

[sylvester-ponte]

hallo

WHER heel knap gedaan
ik snap niet hoe je het voor elkaar krijgt zonder macrotje :thumb:

groet sylvester