Thread: Dates as Numbers in Combo Box

I have the same problem as thread,

http://www.excelforum.com/excel-prog...ml#post1969271

When I fill the Combo Box it shows as a date in the list for selecting in the Combo Box. Once I select the Date I want it then changes back t its number format. I have tried using the code below and still no joy, where am I going wrong?

Private Sub cboGetDate_Change()
    cboGetDate.Text = Format(cboGetDate.Text, "dd/mm/yyyy")
End Sub

I have tried this and keep getting a Type Mismatch error on the section

cboGetDate.Text = CLng(Format(cboGetDate.Value, "dd/mm/yyyy"))

When I hover over it on the Debug it shows me the date as a number still

Private Sub cboGetDate_Change()
    'cboGetDate.Text = Format(cboGetDate.Text, "dd/mm/yyyy")
    cboGetDate.Text = CLng(Format(cboGetDate.Value, "dd/mm/yyyy"))
End Sub

Where am I going wrong?

I have tried this code and still when selecting the dates in the Combo Box they appear as a number format

Private Sub cboGetDate_Change()
    Dim GetDate As Date
    If GetDate = CDate(cboGetDate.Value) Then
           cboGetDate.Value = Format(CDate(cboGetDate.Value), "dd/mm/yyyy")
        Else
    End If
End Sub

I cant see where am going wrong?

I've tried the Hash's

Attached is the file I'm using to test things out...

Its also the same file that the other thread I have open is (Running Stored Procedures from Excel)

Thanks

I have tried this code below and it seems to work like it should...

Private Sub cboGetDate_Change()
    MyDate = Format(cboGetDate.Value, "dd/mm/yyyy")
    cboGetDate.Value = Format(MyDate, "dd/mm/yyyy")
End Sub