Hoe test ik een range variabele voordat ik hem gebruik?

[hahaHans]

Deze makro:

Sub opmaak()
Dim vak As Range
'Set vak = Range("E4:I8")
vak.Interior.ColorIndex = 5
End Sub

geeft een foutmelding want de variabele "vak" is "Nothing". Als je de kommentaarregel als code laat meedoen dan gaat het wel goed want dan wordt "vak" gevuld met een gebied. Maar in mijn code weet ik niet altijd of mijn variabele gevuld is. Hoe kan ik voorkomen dat een stuk code uitgevoerd wordt als "vak" leeg is? De regel

If vak <> Nothing then

werkt niet want dan gebruik ik het object "Nothing" op een plaats waar dat niet is toegestaan. Maar hoe doe ik het dan wel goed ?

Hans

 

[Wigi]

Bijna.

If Not vak Is Nothing Then

Wigi

 

[hahaHans]

Geweldig WiGi, je hebt me weer gered. Precies wat ik wilde weten.

Hans