• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Constante op module nivo wijzigen op sheet.

Status
Niet open voor verdere reacties.
J

jansbl

Gebruiker
Lid geworden
1 mrt 2007
Berichten
86
Halo,

Ik heb in het declaratiedeel van een module een variabele gedeclareert als constante:
Code: 
Public Const AantalTabs As Integer = 20

Dit werkt natuurlijk prima.
Maar ik wil toch de gebruiker de mogelijkheid die variabele te wijzigen, op de sheet "Instellingen", zodat de gebruiker niets in de code hoeft te veranderen.
Ik had gehoopt dit als volgt op te kunnen lossen:
Code: 
Public Const AantalTabs As Integer = Sheets("instellingen").Range("AantalBladen")
maar dat werkt niet.

Enig idee?

Bij voorbaat dank,

Jans
 
Zoiets

Code: 
If Sheets("instellingen").Range("AantalBladen").Value = 0 Then
AantalTabs = 20
Else
AantalTabs = Sheets("instellingen").Range("AantalBladen").Value
End If

Wigi
 
Oke Wigi,

Maar dat kan dan alleen als ik mijn declaratie wijzig in:
Code: 
Public AantalTabs As Integer

??
En dan jouw code gebruik in de sub, welke werkt met de var 'AantalTabs' ?

Dan heb ik nog een vraagje daarover:
Als een bepaalde waarde aan die variabele is toegekend in een sub, heeft die variabele dan nog wel die waarde in een andere sub (binnen dezelfde module)?

met vriendelijke groet,

Jans
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan