waarde uit celnaam toekennen aan variabele

[ericabt]

hallo,

Ergens op een sheet is er een cell met de naam m201_vmax. Hierin staat een waarde.
Deze waarde wil ik toekennen aan "max". Het lijkt me heel simpel, maar het werkt niet. voorbeeldje bijgevoegd

Private Sub test()
    Dim max As Double
    max = Range("m201_vmax").Value
End Sub

Bekijk bijlage test.xlsm

 

[Cobbe]

Je moet je macro of in het actieve werkblad zetten of beter in een module.

 

[edmoor]

Toch werkt dat wel, de code is goed.
Denk er wel aan dat de variabele max alleen in de routine test bekend is en zijn waarde dus verliest als de routine klaar is.

*Edit:
En wat Cobbe zegt

 

[ericabt]

Ik wil wel gaan verwijzen naar een cel op een andere sheet. Ik was in de veronderstelling dat de cel een unieke naam had gekregen en er dus geen sheetverwijzing nodig is. Dat is dus niet zo?

 

[edmoor]

Jawel, maar als je die vanuit alle werkbladen wilt kunnen benaderen moet de routine in een module staan.

 

[ericabt]

En als ik deze waarde nu toch wil oproepen vanuit de worksheet, moet ik dan eerst de sheet aanroepen.?

 

[Cobbe]

Wat heb je er op tegen om die code in een module te steken, zoals voorgesteld?

Ik heb de code in je bestand gezet zodat die op elk blad opgeroepen wordt.

Dit zal zo wel niet de bedoeling zijn maar laat eens weten wat je nu echt wil bereiken.

 

[Cobbe]

Misschien is het dit wel wat je wil:
Zet deze code in een Module en je kan de waarde van 'm201_vmax' overal in je werkboek oproepen via =maxim()

Function maxim()
Dim maxim As Double
  maxim = Range("m201_vmax").Value
End Function

 

[edmoor]

Dat kan dan ook zonder VBA met: =m201_vmax