meerdere kolommen sorteren

[intensityrigging]

Beste,

Is het mogelijk om kolommen en cellen te sorteren?
Ik wil het volgende doen:
Als ik in kolom E1 t/m E12 een getal heb en in D1 t/m D12 ook getallen.
Is het dan mogelijk kolom E te sorteren en dan de getallen uit kolom D ipv onderelkaar naast elkaar in een cel te krijgen?
Gesorteerd van hoog naar laag.
ik maak heel vaak X Y coordinaten lijsten.
En dit zal de lijsten aanzienlijk overzichtelijk maken.


Mvg Martijn.

 

[VenA]

Maak het geheel eens duidelijk in een excelbestand. Uit de vraag en de plaatjes kan ik niet helemaal opmaken wat je wil bereiken.

 

[Cobbe]

Deze zou dat voor u moeten fixen:

Sub Transponeren()
   ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A2:B13")
        .Orientation = xlTopToBottom
        .Apply
    End With
    Range("A2:B13").Copy
   With Range("F2")
     .Range("A2:B13").PasteSpecial Paste:=xlPasteAll, Transpose:=True
   End With
End Sub

Met de gegevens in A1:B13 en verplaatsen naar F2