Scope van variable

[bitchkoemer]

Hallo Excel Goeroes......

Ik wil code triggeren bij het veranderen van een werkblad maar had dit alles graag eeen beetje netjes en overzichtelijk opgesplitst in verschillende sub procedures:

Private Sub Worksheet_Change(ByVal Target As Range)
    '-- target.value bevat de inhoud van de gewijzigde cel
    Call DoeDit
    Call DoeDat
    Call DoeNogWat
End Sub

Public Sub DoeDit()
    'doe wat met Target
End Sub

Public Sub DoeDat()
    'doe wat met Target
End Sub

Public Sub DoeNogWat()
'doe wat met Target
End Sub

Hoe kan ik nu variabele Target beschikbaar maken in de "Doe..." procedures?

Alvast bedankt

 

[Wigi]

Michel

geef Target mee als een variabele

Private Sub Worksheet_Change(ByVal Target As Range)
    '-- target.value bevat de inhoud van de gewijzigde cel
    Call DoeDit(Target)
    Call DoeDat(Target)
    Call DoeNogWat(Target)
End Sub

Public Sub DoeDit(rng as Range)
    'doe wat met Target
End Sub

Public Sub DoeDat(rng as Range)
    'doe wat met Target
End Sub

Public Sub DoeNogWat(rng as Range)
'doe wat met Target
End Sub

Mocht het niet helemaal duidelijk zijn, laat dan wat Msgbox'en gaan met bv. Target.Address erin tot het werkt.

Greetz

Wigi

 

[bitchkoemer]

Mocht het niet helemaal duidelijk zijn, laat dan wat Msgbox'en gaan met bv. Target.Address erin tot het werkt.

Wigi

Heb wat testjes gedaan en het is helemaal duidelijk nu......

Nogmaals bedankt :thumb: ,