Re: Excel/VBA: 'dynamisch' range

Article View: be.comp.programming

Article #3870

Back to be.comp.programming Previous Next

#3870

From: 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
>
>

Technical Details

Message-ID: <kmKkb.320330$lh.74489342@amsnews02.chello.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsgate.cistron.nl!amsnews01.chello.com!amsnews02.chello.com.POSTED!53ab2750!not-for-mail

References: <3f8d1bbc$0$15654$ba620e4c@reader1.news.skynet.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,14c9e8709cdda57a
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-10-19 22:26:41 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsgate.cistron.nl!amsnews01.chello.com!amsnews02.chello.com.POSTED!53ab2750!not-for-mail
Reply-To: "Waldo Smets" <spamless_development@softwaresuite.be>
From: "Waldo Smets" <development@softwaresuite.be>
Newsgroups: be.comp.programming
References: <3f8d1bbc$0$15654$ba620e4c@reader1.news.skynet.be>
Subject: Re: Excel/VBA: 'dynamisch' range
Lines: 44
Organization: SoftwareSuite
MIME-Version: 1.0
Content-Type: text/plain;
 charset="Windows-1252"
Content-Transfer-Encoding: 7bit
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <kmKkb.320330$lh.74489342@amsnews02.chello.com>
Date: Mon, 20 Oct 2003 05:26:40 GMT
NNTP-Posting-Host: 195.162.217.111
X-Complaints-To: abuse@chello.be
X-Trace: amsnews02.chello.com 1066627600 195.162.217.111 (Mon, 20 Oct 2003 06:26:40 WEST)
NNTP-Posting-Date: Mon, 20 Oct 2003 06:26:40 WEST

Reply to Parent Message