Date showing as numbers in Textbox on Userform
 

Hi Everyone.
I've created a userform with a calendar to select the date, it's working ok on
the worksheet but on the Textbox on the userform its showing has just numbers
Same if the date was formatted as General. e.g. 40690.
I would like it to look like a date. can it be formatted to show as a date.
This is my code:
Private Sub Calendar1_Click()
Dim ws As Worksheet
Set ws = Worksheets("Input")
With frmInputLoc
Calendar1.Visible = True
r = Range("B65536").End(xlUp).Offset(1, 0).Select
r = CDbl(Calendar1.Value)
.TextBox1.Value = r
End With
End Sub
Best regards
Cimjet

Date showing as numbers in Textbox on Userform
 

hi,

r = CDate(Calendar1.Value)

--
isabelle

Le 2011-04-23 18:45, Cimjet a écrit :
r = CDbl(Calendar1.Value)

Date showing as numbers in Textbox on Userform
 

Merci Isabelle
Cimjet
"isabelle" wrote in message ...
hi,

r = CDate(Calendar1.Value)

--
isabelle

Le 2011-04-23 18:45, Cimjet a écrit :
r = CDbl(Calendar1.Value)