Calender macro excel

[BtcvZ]

Beste mensen,

Ik probeer een macro te schrijven voor een pop-up calender.
Alleen wil ik graag alleen de calender pop up hebben bij de volgende range cellen I7:J7 en D58:L58.
De genoemde gange`s zijn samengevoegde cellen, vandaar de cell count op >2
Alleen als ik de macro draai popt de calender op ook bij ongewilde cellen

AUB Help!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 2 Then Exit Sub
'Change this to your range of dates
If Not Intersect(Target, Range("I7:J7", "D58:L58")) Is Nothing Then
Calendar1.Top = Target.Top + Target.Height
Calendar1.Left = Target.Left + Target.Width / 2 - Calendar1.Width / 2
Calendar1.Visible = True
Calendar1.Value = Now
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = (Calendar1.Value)
ActiveCell.NumberFormat = "dd mmm yy"
End Sub

 

[snb]

Vermijd samengevoegde cellen in VBA, maar gebruik code tags als je VBA code in dit forum plaatst.

 

[hoogteijling]

Ik heb ooit de dtpicker gebruikt in een excel Uform.
Ik weet niet of dat ook voor jouw werkt zonder Uform ?
http://msdn.microsoft.com/en-us/library/aa276346(v=vs.60).aspx

Groeten Marcel

 

[BtcvZ]

Vermijd samengevoegde cellen in VBA, maar gebruik code tags als je VBA code in dit forum plaatst.

Beste SNB, spijt me maar ik snap al niet wat je bedoelt haha...

Wil het graag proberen met een macro en ben zelf niet zo goed met VBA..
Dot programma heeft me al dagen gekost om een betje fatsoenlijk werkend te krijgen.
Is het niet een simpele aanpassing in de macro om de getallen reeksen te isoleren?

Groet

 

[snb]

Gewoon nog eens rustig op je gemak herlezen.

 

[BtcvZ]

Gewoon nog eens rustig op je gemak herlezen.

Ben er al dagen me bezig, krijg het alleen niet voor elkaar.
Zie eerlijk gezegd door de bomen het bos niet meer.

 

[BtcvZ]

Ben er al dagen me bezig, krijg het alleen niet voor elkaar.
Zie eerlijk gezegd door de bomen het bos niet meer.

Whaaaaaa ik ben eruit!!!!!