Sorteren tabel

[pcdummy]

Hoi helpers,

Ik heb in een document de volgende code te staan om een tabel te sorteren op naam. Deze code heb ik gekoppeld aan een knop.

In rij 1 staan alle knoppen van het document, in rij 2 de kolomkoppen. Vanaf rij 3 komen de namen van medewerkers. Wat er nu vreemd is, is dat rij 3 niet wordt meegenomen in de sortering.

Staat er soms een fout in de code?

Sub SorterenOpNaam()
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A:A"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("Tabel1")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
End Sub

Groeten, pcdummy

 

[popipipo]

Hoe is Tabel1 gedefinieerd?

Plaats anders even het xls bestandje

 

[pcdummy]

Bij het sorteren op naam en op team blijft naam Q bovenin staan.

pcdummy

 

[popipipo]

De kolom kop is de boosdoener.
verander daarom dit:

.Header = xlYes

in dit:

.Header = xlno

 

[pcdummy]

Dat heb ik zojuist gedaan, maar dan worden de kolomkoppen mee gesorteerd en dat is niet de bedoeling. ;-)

pcdummy

 

[popipipo]

Zo gaat het bij mij

 

[pcdummy]

Ik heb zojuist een poging gedaan om het tabelbereik aan te passen van A3 naar A2. misschien dat het daar fout ging. Nu werkt het wel.

dank je popipipo.

P.S. korte vraag erna. Hoe kan ik de knoppen heel mooi uitlijnen?

 

[popipipo]

Met de ALT knop ingedrukt kun je ze uitlijnen op de celrand.

 

[pcdummy]

Hartelijk bedankt voor je hulp, popipipo

pcdummy