Tabel sorteren met vba

[tkint]

Beste,

ik heb een tabel van B5 tot I59 en ik wil sorteren op basis van kolom B met de volgende code :

Dim bereik As Range
    Dim cel As Range
    Set bereik = Range("B5:I59")
    Set cel = Range("B5")
    bereik.Sort Key1:=cel, Order1:=xlAscending, Header:=xlYes

Ik krijg de foutmelding " Methode Sort van klasse Range is mislukt".
In rij B4 tot I4 staan de titels va de kolommen.

 

[HSV]

set bereik = range("b4:i59")
set cel = range("b4")
order1 kan weggelaten (default = ascending).

Als het een tabel van de Listobject is kan het geheel anders.

 

[tkint]

Beste,

Bedankt voor de aanpassing. De code functioneert maar ik was bij het testen vergeten de bladbeveiliging uit te schakelen.