Kolomnaam gebruiken in VBA

[gst]

Geacht forum,

Voor een bepaalde toepassing zou ik graag gebruik willen maken van een kolomnaam in excel VBA (zie bijlage)
Graag wil ik intKol = 4 vervangen voor intKol = TEST (de naam van de kolom in sheet 1)
Weet iemand hoe ik intKol = 4 kan aanpassen in bijv. intKol = TEST?

Bijvoorbaat dank.

 

[snb]

Kun je svp codetags rondom de VBA code zetten ?

Bij voorbaat dank.

 

[gst]

snb,
Bericht aangepast. Code staat ook in het voorbeeld.
Sory voor mijn tikfout.
gst

 

[snb]

Sub M_snb()
    For Each nm In Names
       If Columns(Cells(7, 8).Value).Address = Range(nm.Name).Address Then Cells(1) = nm.Name
     Next
End Sub

 

[pixcel]

Zet boven de kolom een headernaam, maak er een tabel van (Invoegen > Tabel) dan geeft excel je een collectie kolommen waar je met de headernaam de gewenste kolom uit kunt pikken. Bijv:
debug.print blad1.listobjects(1).listcolumns("Test").databodyrange(intrij).value
Een waarde opzoeken in die kolom doe je met
debug.print blad1.listobjects(1).listcolumns("Test").databodyrange.find(5)
wat 5 geeft als resultaat: de 5e tabelrij (en dus niet de sheetrij).

 

[gst]

Helaas kom ik niet uit voorgestelde suggesties m.u.v. aanmaken kolomnaam.
De bedoeling om een kolomnaam te gebruiken om deze in vba als variabel te kunnen gebruiken.
Ik heb mijn voorbeeld iets aangepast en hoop dat het daarmee iets duidelijker wordt wat ik bedoel.
Heeft iemand een suggestie?

 

[pixcel]

Misschien helpt dit je verder. Het is even wennen, zo'n listobject met listcolumns en zo, maar is erg handig.

 

[gst]

Frans,

Ik denk dat ik hier iets mee kan.
In ieder geval ga ik deze functie probleren te gebruiken in mijn toepassing.
Ik hoop daarmee deze vraag af te sluiten. Zo niet dan kom ik er graag nog op terug.
Al vast bedankt voor het meedenken!

Hartelijke groet,
gst