Hi

Im pretty new in VBA, but have managed to create the Calender following the
information given in http://www.fontstuff.com/vba/vbatut07.htm (put in
private). Now i would like to use this calendar for editing a date in a form
(Deadline) when I doubleclick on the deadline field in the form. This issue
is that I can't figure out how to get the calendar to initially show the
value currently in the Deadline field and update the field with the date
selected in the calendar tool. Any help out there would be much appriciated.

Below a stup of the code to ligten up the Calendar Tool:

Private Sub txtDeadline_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
'Call OpenCalendar
Application.Run "Personal.xls!OpenCalendar"
End Sub

/Stony

It appears you have the calendar in Personal.xls. Look at the code for
UserForm_Initialize where the calendar is located. It is using the
activecell to get and put the calendar date. Since you are using a userform
in another workbook, you would need to change the reference to activecell to
ActiveWorkbook.UserForm1.TxtBox1.value, etc. which means the calendar would
only work for workbooks that have that exact same userform/textbox
configuration. I know you went to a lot of work to get the calendar in your
Personal.xls workbook, but in this case it would be better to put a calendar
in the book you are using so you can put in references that are specific to
that workbook, insted of modifying your Personal calendar code to work in
one particular workbook. Once you get a calendar added to your workbook, we
can help with the code from there.

Mike F
"Steen" wrote in message
...
Hi

Im pretty new in VBA, but have managed to create the Calender following
the
information given in http://www.fontstuff.com/vba/vbatut07.htm (put in
private). Now i would like to use this calendar for editing a date in a
form
(Deadline) when I doubleclick on the deadline field in the form. This
issue
is that I can't figure out how to get the calendar to initially show the
value currently in the Deadline field and update the field with the date
selected in the calendar tool. Any help out there would be much
appriciated.

Below a stup of the code to ligten up the Calendar Tool:

Private Sub txtDeadline_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
'Call OpenCalendar
Application.Run "Personal.xls!OpenCalendar"
End Sub

/Stony

Hi Mike

Thanks for your answer - and yes I think you are right. I will try this
during the Cristmas Holidays and get back to you. :-)

"Mike Fogleman" wrote:

It appears you have the calendar in Personal.xls. Look at the code for
UserForm_Initialize where the calendar is located. It is using the
activecell to get and put the calendar date. Since you are using a userform
in another workbook, you would need to change the reference to activecell to
ActiveWorkbook.UserForm1.TxtBox1.value, etc. which means the calendar would
only work for workbooks that have that exact same userform/textbox
configuration. I know you went to a lot of work to get the calendar in your
Personal.xls workbook, but in this case it would be better to put a calendar
in the book you are using so you can put in references that are specific to
that workbook, insted of modifying your Personal calendar code to work in
one particular workbook. Once you get a calendar added to your workbook, we
can help with the code from there.

Mike F
"Steen" wrote in message
...
Hi

Im pretty new in VBA, but have managed to create the Calender following
the
information given in http://www.fontstuff.com/vba/vbatut07.htm (put in
private). Now i would like to use this calendar for editing a date in a
form
(Deadline) when I doubleclick on the deadline field in the form. This
issue
is that I can't figure out how to get the calendar to initially show the
value currently in the Deadline field and update the field with the date
selected in the calendar tool. Any help out there would be much
appriciated.

Below a stup of the code to ligten up the Calendar Tool:

Private Sub txtDeadline_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
'Call OpenCalendar
Application.Run "Personal.xls!OpenCalendar"
End Sub

/Stony