Excel/VBA: 'dynamisch' range

Thread View: be.comp.programming

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Robrecht Jacques Wed, 15 Oct 2003 10:02

#3837

Author: Robrecht Jacques
Date: Wed, 15 Oct 2003 10:02

14 lines
1471 bytes

Hallo,

ik heb het volgende probleempje in Excel: ik zoek een waarde op met de
'vert.zoeken'-functie (in een cel), maar de matrix waarin hij die waarde
moet zoeken hangt af van de waardes in enkele andere cellen.

Bv: als A1=3 dan moet hij zoeken in de matrix op Blad1 (altijd hetzelfde
blad dat wel) met grootte 12x12, waarvan de linkerbovencell A25 is (nl
(A1-1)*12+1).

Ik vind niet direct hoe ik dit kan doen. Weet iemand het wel?

Thx,
Robrecht

Re: Excel/VBA: 'dynamisch' range

#3870

Author: Waldo Smets
Date: Mon, 20 Oct 2003 05:26

43 lines
2274 bytes

Geef als formule voor de cellen in de kolom met de lookups bijvoorbeeld
=MyFunction(A1)

Schrijf in een VBA module de functie:

Public function MyFunction(vntWaardeVanA)
Select case vntWaardeVanA
Case 1 'zoek in lijst 1
'(schrijf je lookup voor lijst 1)
Case 2 'zoek in lijst 2
'(schrijf je lookup voor lijst 2)
Case 3 'zoek in lijst 3 = Range("A25").CurrentRegion
'(schrijf je lookup voor lijst 3)
Case Else 'zou niet mogen
MyFunction=0
End Select
End function



mvg,
waldo


"Robrecht Jacques" <Robrecht.Jacques@advalvas.be> schreef in bericht
news:3f8d1bbc$0$15654$ba620e4c@reader1.news.skynet.be...
> Hallo,
>
> ik heb het volgende probleempje in Excel: ik zoek een waarde op met de
> 'vert.zoeken'-functie (in een cel), maar de matrix waarin hij die waarde
> moet zoeken hangt af van de waardes in enkele andere cellen.
>
> Bv: als A1=3 dan moet hij zoeken in de matrix op Blad1 (altijd hetzelfde
> blad dat wel) met grootte 12x12, waarvan de linkerbovencell A25 is (nl
> (A1-1)*12+1).
>
> Ik vind niet direct hoe ik dit kan doen. Weet iemand het wel?
>
> Thx,
> Robrecht
>
>

Re: Excel/VBA: 'dynamisch' range

#3797

Author: Robrecht Jacques
Date: Fri, 24 Oct 2003 08:16

16 lines
1486 bytes

Waldo Smets wrote:
> Geef als formule voor de cellen in de kolom met de lookups
> bijvoorbeeld =MyFunction(A1)
>
> Schrijf in een VBA module de functie:
>
> Public function MyFunction(vntWaardeVanA)
> Select case vntWaardeVanA
...

Dit werkt natuurlijk ook. In nl.comp.programmeren gaf iemand echter een
link naar de 'INDIRECT'-functie. Daarmee kan je een string (met een range
bv A1:C25) omzetten naar een range en dit dan onmiddellijk gebruiken.

Toch bedankt!
Robrecht

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads