Calendar Gridcells

M

Marcus

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 ?
 
M

Melanie Breden

Hi Marcus,
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 ?
Click to expand...

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)
 
M

Marcus

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


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)

.
Click to expand...
 
Top