hoe automatisch laten ordenen ?

[dempseypauwels]

wie kan me helpen
als ik een tekst invoeg, staat alles in lijst A maar ik wil namelijk dat alles mooi verdeeld is in Lijst A,B en C
voorbeeld 1 en 2 zo zou het moeten worden


wie zou me kunnen helpen ?
alvast bedankt
dempsey

 

[VenA]

Met gegevens en tekst naar kolommen is een optie.

 

[dempseypauwels]

hoe doe je dat ?

 

[VenA]

Bv zo

https://www.youtube.com/watch?v=pERPNz0WoL4

 

[snb]

Plaats svp een Excel voorbeeldbestand, geen plaatje.

 

[dempseypauwels]

Bekijk bijlage Workbook1.xlsxBekijk bijlage Workbook1.xlsx

 

[dempseypauwels]

als ik tekst naar kolommen doe dan krijg ik dit
het is al beter maar nog niet helemaal wat ik wil
de steepjes moeten weg en ik wil 3 kolommen, hij splitst het op in meer

 

[snb]

Lint / Data / Tekst naar kolommen.
De rest wijst zich vanzelf.

 

[VenA]

Lekker bestand met twee verschillende scheidingstekens die hetzelfde lijken. Mag het met een stukje code?

 

[edmoor]

Het zal lastig zijn want er worden verschillende streepjes door elkaar gebruikt. De ene keer is het de – (ascii 150) en de andere keer de - (ascii 45) en dit is ook niet consequent gedaan. Dat maakt het moeilijk om de boel goed te splitsen.

*Oeps:
VenA was me voor.

 

[snb]

Gebruik dan eerst gewoon zoeken en vervangen.

 

[edmoor]

Dan zit je weer met een tekst als B-rail waarin het - teken gewoon moet blijven staan. Maar wellicht dat het goed gaat als je eerst alle " -", dus spatie en ascii(45) vervangt door alleen ascii(150). En er zijn ook regels met meer dan 3 onderdelen.

Ik denk dat het met dit stukje code heel dicht in de buurt komt. Er zijn dan nog maar een paar regels waar je handmatig iets moet aanpassen:

Private Sub verdeel()
    Dim i As Integer
    Dim x As Integer
    Dim ca As String
    Dim waarde() As String

    For i = 3 To ActiveSheet.UsedRange.Rows.Count
        ca = Replace(Cells(i, 1), " -", "–")
        ca = Replace(ca, "- ", "–")
        waarde = Split(ca, "–")
        For x = 0 To UBound(waarde)
            Cells(i, 1 + x) = Trim(waarde(x))
        Next x
    Next i
End Sub

Zie bijgevoegd document:
Bekijk bijlage Workbook1.xlsm

Maar het kan altijd beter natuurlijk

 

[Timshel]

Met conventionele middelen ben ik zo ver gekomen.
Ook hier blijft nog wat handwerk te doen.

 

[HSV]

Misschien ook.

Sub hsv()
Application.DisplayAlerts = False
  Columns(1).SpecialCells(2).Offset(, 1) = Columns(1).SpecialCells(2).Value
  Columns(2).SpecialCells(2).Replace Chr(45), Chr(150)
'of
' Columns(2).SpecialCells(2).Replace " " & Chr(45), Chr(150)
  Columns(2).TextToColumns [B1], , , , , , , , True, Chr(150)
'Columns(1).Delete
Application.DisplayAlerts = True
End Sub