Kolomnaam gebruiken in een zoekfunctie

[gst]

Geacht Forum,

Om te voorkomen dat bij invoegen van een extra kolom de zoekopdracht niet meer klopt,
zoek ik een variabele kolomnaam om te gebruiken in een zoekopdracht
Nu gebruik ik hiervoor: Blad1.Range("B8").End(xlDown).Offset(1).Select

Kolom B van de sheet heb ik "kol_Ordernummer" genoemd.
intRij heeft de waarde van 8.

Wat ik graag wil is het vervangen van ("B8") in zoiets als (kol_Ordernummer, intRij) maar dit werkt niet.
(zie bijgevoegd voorbeeld)

Ik weet echter niet hoe ik dit voor elkaar kan krijgen.
Heeft iemand een suggestie?

bvd. gst

 

[OctaFish]

Je hebt Kolom B geen andere naam gegeven (kan niet, en kun je ook zien; er staat nog steeds een 'B' boven), maar je hebt wel een naamreeks gedefinieerd van zo'n dikke miljoen cellen. En dat is, zeker in formules, niet handig want veel te veel nutteloze cellen. Een kolom is net zo variabel als een rij, en kun je met een getal variabel maken.

Sub Test()
Dim intRij As Integer, intCol As Integer
    intRij = 8
    intCol = 2
    MsgBox Cells(intRij, intCol).End(xlDown).Value
End Sub

 

[gst]

Michel,

Ik bedoelde eigenlijk dat ik de kolom gedefinieerd heb als kol_Ordernummer.
Met jou voorbeeld wijzigd er op zich niets.
Wanneer er een nieuwe kolom voor kolom B wordt toegevoegd klopt de zoekfunctie niet meer.
In dat geval zou intCol een andere waarde moet krijgen.
Voor een andere zoekfunctie heb ik het volgde gebruikt maar dit werk weer niet met wat ik nu wil.
Intersect(S2.Rows(intRij), ThisWorkbook.Names("Kol_Ordernummer").RefersToRange).Select

gst

 

[OctaFish]

Je kunt uiteraard elke waarde in de variabelen zetten, en die kun je ook interactief laten vullen. Maar je voorbeeldje laat daar helemaal niks van zien. Ik zou de procedure maar eens tegen het licht houden, en in ieder geval voor de vraag verduidelijken.

 

[gst]

Michel,

Ik begrijp je niet helemaal.
Toegevoegd bestand iets aangepast waarbij je kunt zien wat er gebeurt na toets Test1 en toets Test2.
Het is de bedoeling dat de eerste lege cel onder de waarden van kolom B (kol_Ordernummer) opgezocht wordt.
Hierbij moet de gedefinieerde kolomnaam als variabel dienen.
gst

 

[HSV]

 Blad1.Cells(intrij, Range("kol_Ordernummer").Column).End(xlDown).Offset(1).Select

 

[gst]

Harry,

Dit is precies wat is zoek!
Dank voor het meedenken.
Ik zet het bericht op afgehandeld.

gst