bij alfabetisch sorteren wordt eerste rij niet mee genomen

[tkint]

Beste,

Na selectie van de tabel waarop moet gesorteerd worden en het klikken op sorteren, springt de cursor naar de tweede rij. Indien ik de gegevens op de eerste rij verwijder, verloopt het sorteren feilloos. Heeft er iemand een idee waarom het fout loopt met WZC Den Boomgaard op de eerste rij?

 

[VenA]

Maak gebruik van kolomkoppen en anders moet je bij het sorteren even aangeven dat je geen kolomkoppen gebruikt. (ergens een vlaggetje uitzetten)

 

[tkint]

Beste,

Ik heb gebruik gemaakt van kolomkoppen en een vlaggetje uitgezet. Werkt nu perfect. Maar in het originele bestand gebruik ik een macro op dezelfde tabel maar dan met kolomkoppen.
De boosdoener zal wel de VBA-code zijn.

Sub Sorterenopnaam()
laatsterij = Range("B" & Rows.Count).End(xlUp).Row
Range(Cells(2, 1), Cells(laatsterij, 5)).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Graag jouw advies.

 

[HSV]

sub sorteer()
cells(1).currentregion.sort [a1], , , , , , , 1
end sub

 

[tkint]

@VenA en HSV,

Bedankt voor de tips. Ik ben geslaagd in mijn opzet.
Bedankt.
Ik zet het onderwerp als opgelost.