Teskt naar kolommen

cow18 zei:

deze zet alvast je gegevens naast elkaar.
Daarna even die data kopieren en op een andere plaats plakken als "waarden" en daarna sorteren

Klik om te vergroten...

AccessGuru zei:

Dat gaat ook niet met Tekst naar kolommen. Die optie is er om tekst uit één cel om te zetten naar aparte kolommen, op basis van een scheidingsteken in die tekst. Wat jij wilt kan wellicht met PowerQuery, of met een macro.

Code:

Sub mcrConversie()
Dim iRij As Integer, i As Integer, aRij As Long
Dim rng As Range
Dim src As Worksheet, tar As Worksheet
    
    Set src = ActiveSheet
    Set tar = Sheets.Add(After:=ActiveSheet)
    src.Activate
    iRij = src.Cells(1).SpecialCells(xlLastCell).Row
    aRij = ActiveCell.Row
    Do While Not ActiveCell.Row > iRij
        Set rng = src.Range(Selection, Selection.End(xlDown))
        i = i + 1
        rng.Copy
        tar.Cells(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
        Selection.End(xlDown).Select
        src.Activate
        Selection.End(xlDown).Select
        aRij = Selection.Row
    Loop
    tar.Columns("A:B").EntireColumn.AutoFit
    src.Cells(iRij, 1).Activate
    
End Sub

Onnozel ding, maar het werkt .

Klik om te vergroten...