code aanpassen ??

[lsc.b]

wie kan er even naar mijn code kijken ik krijg het niet goed .
volgens mij zijn regel 2 en 8 niet in orde

in c3 , c4 en c6 wil ik dat er een kalender komt en de datum er in kan zetten totzover gaat het nog,
maar als ik in c3 de datum plaats en dan ga het mis in c4 komt meteen de kalender te voorschijn,
en dat werkt het niet meer
in c5 kan ik ook een datum zetten en dat moet niet.
(in c3 , c4 en c6 moet de datum komen)

wie kan dit voor mij oplossen lijkt me simpel maar ik zie het even niet

 

[JEC.]

Verander het eens naar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Union(Range("c3:c4"), Range("c6"))) Is Nothing Then
    LeftPos = ActiveCell.Left
    Wdth = ActiveCell.Width
    TopPos = ActiveCell.Top
    Kalender.Left = LeftPos + Wdth
    Kalender.Top = TopPos
    Kalender.Show
End If
Application.EnableEvents = True
End Sub

 

[VenA]

of het bij de bron aanpakken

Private Sub plaats(x)
    ActiveCell.Value = DateSerial(Year(Kalender.Tag), Month(Kalender.Tag), Me("Label" & x).Caption)
     'ActiveCell.Offset(1).Activate
    Unload Me
End Sub

 

[HSV]

@JVeer.

Range("c3:c4,c6")

 

[lsc.b]

Thanks jVeer