Eventprobleem

[Symphysodon]

Beste forummers,

Ik probeer een event aan te maken op het moment dat een bepaalde sheet wordt geactiveerd
Pas op dat moment moet een bepaalde sub worden aangeroepen die dan weer berekeningen uitgevoerd op de shhet("Data").

Private Sub Worksheet_Change(ByVal Target As Range)

Set s = Sheets("Data").ListObjects("Tabel1").DataBodyRange

If Intersect(s, Target) Is Nothing Then Exit Sub
If Not Intersect(s, Target) Is Nothing Then
    Call Databerekeningen
End If

End Sub

Dit is niet de goede manier maar weet even niet hoe het wel op te lossen. Hiermee kom ik in een loop terecht. Ik heb het geprobeerd met een declaratie van een static boolean: Static AbortProc As Boolean
..

mvg
Marco

 

[SjonR]

en de events uitschakelen tijdens het draaien van de macro?

Application.EnableEvents = False

code hier

Application.EnableEvents  =True

 

[Symphysodon]

Ja dat werkt. Ik had zelf ook al een oplossing door de code van de aan te roepen sub in een Worksheet_Activate event te stoppen.

Bedankt.

 

[VenA]

Misschien eens bij de basis beginnen

If Intersect(s, Target) Is Nothing Then Exit Sub
If Not Intersect(s, Target) Is Nothing Then

Slaat toch nergens op.