KOlomnummer zoeken van de kolom waarop een tabel is gesorteerd (vervolgvraag)

[jbronzwaer]

Op 8 juni sloot ik een vraag af die adequaat was beantwoord.
Het betrof het zoeken naar de kolom waarop een tabel is gesorteerd.

Oplossing was:
MsgBox ActiveSheet.ListObjects("Tabel1").Sort.SortFields.Item(1).Key(1).Column
met dank aan Harry,

maar:

dit blijkt alleen te werken als de tabel een officiële exceltabel is ( Invoegen > tabel)
De code werkt helaas niet bij een tabel die handmatig is samengesteld en waarin het AutoFilter wordt gebruikt om te sorteren.
Deze tabel omzetten naar een Exceltabel is in mijn toepassing echter geen optie.

Bijgevoegd mijn probleem in een excelbestandje. de werkende en niet-werkende code staat er in (Alt-F11).
Helaas lukt het me niet om dit probleempje op te lossen.

Wie helpt?

Bekijk bijlage kolomnummer.xlsm

 

[Ginger]

Deze vond ik met Google... http://superuser.com/questions/436667/show-excel-column-filter-information-in-cells

 

[snb]

Sub M_snb()
    If ActiveSheet.AutoFilterMode Then msgbox Blad1.AutoFilter.Sort.SortFields(1).Key(1).Column
End Sub

 

[jbronzwaer]

Beste Ginger,
de routine waarnaar je linkt, houdt zich bezig met de filters. Geen oplossing voor mijn probleem (spoor de kolom op waarmee is gesorteerd), maar zeer bruikbaar.
Dus zeer bedankt voor deze bruikbare verwijzing.

Beste SNB,
de ultieme oplossing. Zeer bedankt. Ik kan weer verder.

 

[Ginger]

Ah.... Mijn fout. Ik liet me misleiden door "autofilter".

 

[jbronzwaer]

Toch heel erg bedankt