Event starten als een bepaalde range focus verliest

[jantoedeledoki]

Hallo,

Ik ben bezig in Excel2010 en wil een event starten wanneer een bepaalde range (bijvoorbeeld ("B1:C10")) de focus verliest. Is dit mogelijk en zo ja wat is hiervoor de VBA-code?

Ik zoek iets zoals:

If Range("B1:C10") LostFocus then
Range("D10")="Hallo"

Bij voorbaat dank.

 

[edmoor]

Zoiets:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B1:C10")) Is Nothing Then
        Range("D10") = "Hallo"
    End If
End Sub

 

[OctaFish]

Je gebruikt een verkeerde oplossing.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
    Set rng = Intersect(Target, Range("B1:C10"))
    If rng Is Nothing Then
        MsgBox "Verkeerde range"
    Else
        MsgBox "Prima range"
    End If
End Sub

 

[jantoedeledoki]

Bedankt voor de reacties.
Voor mij voldoen (voor zover ik nu kan testen) beide oplossingen.