[VBA/EXCEL2003] HLOOKUP return column index

Pagina: 1
Acties:

Onderwerpen


Acties:
  • 0 Henk 'm!

  • Jericho NutS
  • Registratie: Februari 2008
  • Laatst online: 01-12-2024
Dag,

In mijn code ben ik op zoek naar een manier om de kolom index waar een bepaalde waarde gevonden kan worden terug te geven. De HLOOKUP functie zou hierbij kunnen helpen alleen weet ik niet hoe deze te gebruiken binnen vba en al zeker niet om de kolomindex terug te geven ipv een value.

In een rij (vb rij 3) moet de letter X opgespoord om vervolgens de kolomindex terug te geven en te linken aan een variabele vb "kolomindex"

Via Google en Got kwam er geen resultaat uit de bus.

Hoe pak ik dit het beste aan?

I7 920 D0 @ 4,0 / Asus P6T Deluxe V2 / 3x2 GB OCZ Gold @ 1600 C8 / HD5770 1 GB Sapphire / 2x Spinpoint F3 1TB (raid1) / Scythe Mugen 2 / Antec 300 / CM real power 620M / Dell 2408


Acties:
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Horizontaal zoeken kan je in een hulpcel gebruiken, maar dat lijkt me niet nodig als je VBA gebruikt.

Met cells.find(what:="X").address heb je het adres van de gevonden cel (en met .column het kolomnummer). Zonodig kan je het natuurlijk nog in een loopje zetten icm .findnext()

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • 0 Henk 'm!

  • Jericho NutS
  • Registratie: Februari 2008
  • Laatst online: 01-12-2024
Bedankt voor de snelle reply;
code:
1
kolom = cells.find(what:="X").address

dit werkt idd met als return value vb $A$4

bedankt!

[ Voor 110% gewijzigd door Jericho NutS op 25-11-2011 12:01 ]

I7 920 D0 @ 4,0 / Asus P6T Deluxe V2 / 3x2 GB OCZ Gold @ 1600 C8 / HD5770 1 GB Sapphire / 2x Spinpoint F3 1TB (raid1) / Scythe Mugen 2 / Antec 300 / CM real power 620M / Dell 2408