Calendar Gridcells
 

My major problem is getting text inside the calender
gridcell.

Is this possible. I can't see the point of a calendar if
you cant update with appointments etc. I was hoping for a
Userform1.calendar1.text command.

Does anyone have any ideas ?

Calendar Gridcells
 

Hi Marcus,

Marcus wrote:
My major problem is getting text inside the calender
gridcell.

Is this possible. I can't see the point of a calendar if
you cant update with appointments etc. I was hoping for a
Userform1.calendar1.text command.

Does anyone have any ideas ?

after a date selection you could give references over ControlTipText .
Or show the text in a label on the UserForm:

Private Sub Calendar1_Click()
With Calendar1
Select Case CDate(.Value)
Case #4/29/2004#
.ControlTipText = "Meeting with the boss"
Label1.Caption = "Meeting with the boss"
Case Else
.ControlTipText = "no appointment"
Label1.Caption = "no appointment"
End Select
End With
End Sub

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)

Calendar Gridcells
 

thanks Melanie
Marcus
-----Original Message-----
Hi Marcus,

Marcus wrote:
My major problem is getting text inside the calender
gridcell.

Is this possible. I can't see the point of a calendar if
you cant update with appointments etc. I was hoping
for a
Userform1.calendar1.text command.

Does anyone have any ideas ?

after a date selection you could give references over
ControlTipText .
Or show the text in a label on the UserForm:

Private Sub Calendar1_Click()
With Calendar1
Select Case CDate(.Value)
Case #4/29/2004#
.ControlTipText = "Meeting with the boss"
Label1.Caption = "Meeting with the boss"
Case Else
.ControlTipText = "no appointment"
Label1.Caption = "no appointment"
End Select
End With
End Sub

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)

.