sorteren kolommen

[Belinda S]

In de kolommen A t/m Z staan titels van muziekstukken.
In kolom A staan de namen die beginnen met de letter A, in kolom B die beginnen met een B enz.
Nu wil ik graag deze kolommen alfabetiseren.
Nu doe ik het nog per kolom maar is het ook mogelijk om alle kolommen in 1 keer te alfabetiseren?
Ik heb het bereik geselecteerd en daarna Data - sorteren op kolom A maar het resultaat lijkt er niet op.
Als bijlage het origineel en het resultaat.
Ik doe dus iets fout maar hoe moet het wel?
bvd voor hulp
Belinda

 

[Niels28]

Hier zijn ze er ook al mee bezig.

http://www.worksheet.nl/forumexcel/vragen/74663-kolommen-sorteren.html

Sub sorteren()
Application.ScreenUpdating = False
For cm = 1 To 26
rw = Cells(Rows.Count, cm).End(xlUp).Row
   ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Cells(1, cm), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range(Cells(1, cm), Cells(rw, cm))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next
Application.ScreenUpdating = True
End Sub

Niels

 

[Belinda S]

Hallo Niels,
Bedankt voor de hulp met de macro.
Maar helaas krijg ik een foutmelding.
Als bijlage de foutmelding en de manier waarop ik de macro heb geplaatst.
Ook even het werkblad welk ik gesorteerd wil hebben.
Voor alle duidelijkheid ik werk met XP en Office 2002
Prettige dag verder en graag je commentaar.
bvd
Belinda

 

[oeldere]

@Belinda

Je plaatst een xls bestand. Hierin is de macro niet opgenomen; je kunt beter een xlsm bestand plaatsen
(of in ieder geval een bestand waarin de macro ook aanwezig is).


Vervolgens nog 2 opmerkingen

1) Lees de forumregels van crossposting eens rustig door.

En kijk dan eens hier

2) Jij plaats vandaag om 09:59 hier een vervolgvraag (antwoord).

Op het andere forum heb je gisterenavond (volgens mij) een passend antwoord ontvangen.

Daar laat je niks van je horen!!

Waarschijnlijk wordt dit door de forumleden die gereageerd hebben niet gewaardeerd.

 

[Belinda S]

Beste Oeldere,

In de eerste plaats mijn excuses maar ik ben mij er niet van bewust geweest en heb op "hier" in je bericht geklikt en wist niet wat ik zag!
Wat precies crossposting is weet ik niet maar het schijnt iets te maken te hebben dat ik mijn vraag bij twee verschillende hulpsites heb geplaatst.
Natuurlijk ben ik dankbaar voor alle hulp die ik krijg en zal de berichten nog eens goed doorlezen en kijken of ik er nu wel uitkom.
Nogmaals sorry voor mijn onkunde in deze.
mvg
Belinda