Kolommen alfabetisch (horizontaal) sorteren op titelnaam

[swanwil]

Hallo,

Ik heb een Excel-bestand waar heel veel kolommen (met titelnaam) in zitten die via een ander programma automatisch gevuld worden.
Nu is de vraag of het mogelijk is om deze kolomen alfabetisch te sorteren (dus horizontaal sorteren)?
De 1e kolommen (in het voorbeeld kolom A en B) moeten niet meegenomen worden in de sortering. De kolommen C t/m G wel

groeten SwanwilBekijk bijlage horizontaal sorteren voorbeeld.xlsx

 

[HSV]

Ik neem aan dat er op dezelfde plaats moet worden gesorteerd.

Sub hsv()
Dim sq
With Sheets("Blad1")
 sq = .UsedRange.Rows.Count
  Sheets("Blad2").Range("A1").Resize(sq, 4) = Application.Transpose(.Range("C1:F" & .Cells(Rows.Count, 3).End(xlUp).Row))
    With Sheets("Blad2")
     .Range("A1").CurrentRegion.Sort .Range("A1"), , , , , , , xlNo
    End With
   .Range("C1").Resize(sq, 4) = Application.Transpose(Sheets("Blad2").Range("A1").Resize(sq, 4))
  End With
Sheets("Blad2").UsedRange.ClearContents
End Sub

 

[WHER]

Een alternatief toegevoegd aan het bestand van Harry.
Let op: de namen moeten uniek zijn, anders werkt de macro niet.
Dus indien Kees 2 maal voorkomt moet hij als Kees1 en Kees2 aangeduid worden.

 

[swanwil]

Hallo HSV en WHER,

Beide bedankt voor jullie bijdrage.
Hier kan ik prima mee uit de voeten !

Ik zal de status op opgelost zetten

groeten Swanwil

 

[snb]

Sub snb()
    Range("C1:F4").Sort Cells(1, 3), Header:=xlNo, Orientation:=xlSortRows
End Sub

PS. vind niet uit wat al is ingebouwd.

 

[WHER]

snb,

Met zo iets voordehandliggends houden wij ons niet bezig

 

[snb]

Waarvan akte !

 

[HSV]

Ik wist niet dat het al was ingebouwd.
Rijen horizontaal sorteren; dus ik dacht even lekker knutselen.
Tenslotte hou ik niet graag van kopiëren van iemands code, maar heb deze toch maar even opgeslagen.

Bedankt snb.