Doubleclick event in een range

[wlsandman]

Goedemiddag,

Ik wil graag hetvolgende, als ik in een range, bv G11:G100, dubbelklik dan moet er een userform verschijnen!.

Uit een andere vraag heb ik mijzelf de volgende code verschaft, alleen hij werkt niet in een range (alleen op 1 cel).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("G11:G100").Address Then UserForm2.Show
If Target.Address = Range("AI11:AI100").Address Then UserForm2.Show
End Sub

Wie kan mij helpen?

 

[Demeter]

Probeer deze eens:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("G11:G100")) Is Nothing Then UserForm2.Show
    If Not Intersect(Target, Range("AI11:AI100")) Is Nothing Then UserForm2.Show

End Sub

 

[JanJantje]

Probeer dit is...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 1 Then
        If .Row >= 1 And .Row <= 100 Then
        UserForm2.Show
        End If
    End If
End With
End Sub

maw: hier staat dat het bereik "A1:A100" is


JanJantje


Edit: Ah demeter is me voor geweest

 

[Demeter]

Ietjes korter:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("AI11:AI100", "G11:G100")) Is Nothing Then UserForm2.Show

End Sub

 

[wlsandman]

:thumb:

 

[Demeter]

Graag vraag op opgelost plaatsen! Dan behouden we het overzicht.

Dank U.