Sorteren met macro gaat niet goed

[Evelthoven]

Goedemorgen,

In het bijgesloten bestandje (voorbeeld) heb ik mijn vraag gesteld.
Met kopieren en plakken en veel zoeken op internet heb ik geprobeerd de tabel met een in elkaar geknutselde macro te sorteren, maar iets gaat er niet goed. De koptekst wordt ook in de sortering meegenomen. Helaas weet ik niet hoe ik dit moet oplossen.

Willen jullie hier naar kijken aub ?

Alvast bedankt.

Groeten,
Eric

 

[SjonR]

en zo?

With Sheets("Gegevens")
    Lastrow = .Range("A65535").End(xlUp).Row
    .Range("A6:G" & Lastrow).Sort key1:=.Range("B5"), Key2:=Range("A5"), key3:=Range("C5")[COLOR="#FF0000"], Header:=xlYes[/COLOR]
End With

 

[Evelthoven]

Beste SjonR,

Dat is het! Probleem opgelost.
Daar ben ik dan uren mee bezig geweest.

Heel erg bedankt.

Groeten,
Eric

 

[SjonR]

Mooi, kijk ook eens hier. Kan je zien welke parameters er per methode beschikbaar zijn.

 

[snb]

Kijk dan ook eens bij de eigenschappen van een listobject
Als je de macro in de macromodule van het werkblad zet wordt het ook nog eenvoudiger

Sub M_snb()
  With ListObjects(1).DataBodyRange
    .Sort .Cells(1, 2), , , , , , , 1
  End With
End Sub

 

[Jack Nouws]

Nog een mogelijkheid

  With ListObjects(1).Range
    .Sort "Merk", , "Datum", , , "Model", , 1
  End With

 

[snb]

@JackN

:thumb:

Maar dan lijkt me dit voldoende

ListObjects(1).Range.Sort "Merk", , "Datum", , , "Model", , 1

 

[Jack Nouws]

@snb Uiteraard :thumb: