VBA code aanpassing kalender van snb

[Yasmin]

Beste Excellers,

Wie kan voor mij de VBA code aanpassen in bijgaand bestand?
In plaats van dubbel klikken in kolom A.
De kalender laten verschijnen bij dubbel klikken in een van onderstaande 8 cellen:

I2 : I3
M2 : M3
Q2 : Q3
U2 : U3

In ben benieuwd of dit ook mogelijk is.

 

[Pagadder]

Code in je werkblad

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = [I2] Or Target = [I3] Or Target = [M2] Or Target = [M3] Or Target = [Q2] Or Target = [Q3] Or Target = [U2] Or Target = [U3] Then
        Kalender.Show
        Cancel = True
    End If
End Sub

Celeigenschappen aanpassen in deze cellen naar datum

 

[Yasmin]

Beste Pagadder,

Aangepaste VBA code werkt! Alleen nu in alle cellen van het werkblad en niet alleen de 8 genoemde cellen.
Misschien is dat ook nog op te lossen?

Met vriendelijke groet.

 

[HSV]

If not intersect(Target, range("I2:I3, M2:M3, Q2:Q3, U2:U3")) is nothing Then

 

[Yasmin]

If regel vervangen en de code werkt perfect!

Hartelijk dank Pagadder en HSV.