eigenschap sortering van een kolom

[jbronzwaer]

Ik heb een grote tabel gemaakt met invoegen> tabel (dus geen draaitabel) en wil weten en in een variabele vastleggen met welke kolom de tabel is gesorteerd.
Een macro dus die het kolomnummer teruggeeft van de kolom waarmee de tabel is gesorteerd.
het lukt mij niet om uit een kolom het gegeven te halen (eigenschap) dat iets zegt op welke wijze de kolom is gesorteerd.

Iemand een idee ?

alvast dank.

 

[sylvester-ponte]

Jan, welkom .
neem een macro op waar mee je de tabel sorteert .
kijk er goed naar en pas hem aan.

als er iets specifieks is, stuur dan een voorbeeld bestandje.

 

[HSV]

Geeft kolomnummer retour.

MsgBox ListObjects(1).Sort.SortFields.Item(1).Key(1).Column

 

[jbronzwaer]

Beste Harry,

je vba-code is voor mij niet direct duidelijk. Hoe vertel ik de code om welke tabel het gaat of welke range de tabel omvat?

 

[jbronzwaer]

Beste Sylvester,

Dat zou alleen een sorteeractie opleveren. het gaat echter om het kolomnummer van de gesorteerde kolom in een tabel.

 

[HSV]

ListObjects(1) = de eerst geplaatste tabel, 2 voor tabel 2, enz.
Je mag er ook de naam aangeven.
ListObjects("Tabel1") als die zo benoemd is.

 

[jbronzwaer]

Even nog Activesheet. ervoor en het werkt.

MsgBox ActiveSheet.ListObjects("Tabel1").Sort.SortFields.Item(1).Key(1).Column

Dankjewel Harry!

 

[snb]

Als je de code in de codemodule van het werkblad dat de tabel bevat zet, is 'activesheet' overbodig en je code meteen een stuk robuuster (want 'activesheet' kan erg onvoorspelbaar zijn).

 

[jbronzwaer]

Als je de code in de codemodule van het werkblad dat de tabel bevat zet, is 'activesheet' overbodig en je code meteen een stuk robuuster (want 'activesheet' kan erg onvoorspelbaar zijn).

Dank je snb. Belangrijke tip.

Iedereen bedankt voor het meedenken. Ik kan weer verder.