Vba excel combobox формат даты

The following code allows only date values in the format «dd.mm.yyyy» to be added into the textbox (change that for combobox). Dates must be larger than 01.01.2000 and smaller than 31.12.2099 and a message is displayed to alert if the date entered is in the future:

Private Sub TextBox1_Change()
Dim ldm As Integer
Dim Reply As Long
Application.EnableEvents = False
If InStr(1, Join(Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "."), "|"), Right(TextBox1.Text, 1)) = 0 Then _
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
If Len(TextBox1.Text) = 1 Then
    If TextBox1.Text > 3 Then
        TextBox1.Text = "0" & TextBox1.Text
    End If
ElseIf Len(TextBox1.Text) = 2 Then
    If Mid(TextBox1.Text, 2, 1) = "." Then
        TextBox1.Text = "0" & Left(TextBox1.Text, 1) & "."
        Exit Sub
    End If
    If TextBox1.Text < 31 Then
        TextBox1.Text = TextBox1.Text & "."
    Else
        TextBox1.Text = "31."
    End If
ElseIf Len(TextBox1.Text) = 4 Then
    If Right(TextBox1.Text, 1) > 1 Then
        TextBox1.Text = Left(TextBox1.Text, 3) & "0" & Right(TextBox1.Text, 1)
    End If
ElseIf Len(TextBox1.Text) = 5 Then
    If Right(TextBox1.Text, 1) = "." Then
        If Mid(TextBox1.Text, 4, 1) = 0 Then
            TextBox1.Text = Left(TextBox1.Text, 4)
            Exit Sub
        Else
            TextBox1.Text = Left(TextBox1.Text, 3) & "0" & Mid(TextBox1.Text, 4, 1) & "."
            Exit Sub
        End If
    End If
    If Right(TextBox1.Text, 2) < 13 Then
        TextBox1.Text = TextBox1.Text & "."
    Else
        TextBox1.Text = Left(TextBox1.Text, 3) & "12."
    End If
ElseIf Len(TextBox1.Text) = 7 Then
    If Right(TextBox1.Text, 1) <> "2" Then
        TextBox1.Text = Left(TextBox1.Text, 6) & "2"
    End If
ElseIf Len(TextBox1.Text) = 8 Then
    If InStr(1, Join(Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9), "|"), Right(TextBox1.Text, 1)) = 0 Then _
    TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    If Right(TextBox1.Text, 1) > 0 Then
        TextBox1.Text = Left(TextBox1.Text, 7) & "0"
    End If
ElseIf Len(TextBox1.Text) = 9 Then
    If InStr(1, Join(Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9), "|"), Right(TextBox1.Text, 1)) = 0 Then _
    TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
ElseIf Len(TextBox1.Text) = 10 Then
    If IsNumeric(TextBox1.Text) = False Then TextBox1.Text = Left(TextBox1.Text, 8)
    ldm = Format(DateSerial((Right(TextBox1.Text, 4)), (Mid(TextBox1.Text, 4, 2)) + 1, 0), "d")
    If Left(TextBox1.Text, 2) > ldm Then TextBox1.Text = ldm & Right(TextBox1.Text, 8)
    If DateSerial(Right(TextBox1.Text, 4), Mid(TextBox1.Text, 4, 2), Left(TextBox1.Text, 2)) > Now() Then
        Reply = MsgBox("Das eingegebene Datum liegt in der Zukunft." & vbNewLine & "Wollen Sie es so lassen?", vbYesNo, "Datum in der Zukunft")
        If Reply = vbNo Then
            TextBox1.Text = Format(Now(), "DD.MM.YYYY")
        End If
    End If
    If Mid(TextBox1.Text, 3, 1) <> "." Then TextBox1.Text = Left(TextBox1.Text, 2) & "." & Right(TextBox1.Text, 7)
    If Mid(TextBox1.Text, 6, 1) <> "." Then TextBox1.Text = Left(TextBox1.Text, 5) & "." & Right(TextBox1.Text, 4)
ElseIf Len(TextBox1.Text) > 10 Then
    TextBox1.Text = Left(TextBox1.Text, 10)
End If
Application.EnableEvents = True
End Sub

1. 02-15-2006, 08:15 AM

   
   

   #1

   ComboBox Date Format Problem
   

   I have a combobox on a userform that is linked via the row source property to
   a list of dates on Worksheet A. The dates are formatted as dd/mmm/yyyy on
   the worksheet and are displayed as such within the combobox. However when
   the user selects a date from the list it is displayed in the combobox in a
   general format i.e. «36125». My userform is set up that when the user makes
   a selection that it writes the contents to WorksheetB, the date is displayed
   correctly as dd/mmm/yyyy when written to the worksheet.

   Does anyone know how I may change the combobox so that the date is displayed
   correctly when selected and in such a way that the format does not change
   when written to the underlying worksheet??

   All ideas welcomed!

   Thanks,

   Ciara

   ---

2. 02-15-2006, 08:30 AM

   
   

   #2

   RE: ComboBox Date Format Problem
   

   Try

   Private Sub ComboBox1_Change()
   ComboBox1.Value = Format(ComboBox1.Text, «dd/mmm/yyyy»)
   End Sub

   «CiaraG» wrote:

   
   > I have a combobox on a userform that is linked via the row source property to
   > a list of dates on Worksheet A. The dates are formatted as dd/mmm/yyyy on
   > the worksheet and are displayed as such within the combobox. However when
   > the user selects a date from the list it is displayed in the combobox in a
   > general format i.e. «36125». My userform is set up that when the user makes
   > a selection that it writes the contents to WorksheetB, the date is displayed
   > correctly as dd/mmm/yyyy when written to the worksheet.
   >
   > Does anyone know how I may change the combobox so that the date is displayed
   > correctly when selected and in such a way that the format does not change
   > when written to the underlying worksheet??
   >
   > All ideas welcomed!
   >
   > Thanks,
   >
   > Ciara

   ---

3. 02-15-2006, 10:20 AM

   
   

   #3

   RE: ComboBox Date Format Problem
   

   Thanks you so much. I have been thrawling through the internet for days now
   and have tried variations of the code below but with no luck. Thank you.

   «Toppers» wrote:

   
   > Try
   >
   > Private Sub ComboBox1_Change()
   > ComboBox1.Value = Format(ComboBox1.Text, «dd/mmm/yyyy»)
   > End Sub
   >
   > «CiaraG» wrote:
   >
   > > I have a combobox on a userform that is linked via the row source property to
   > > a list of dates on Worksheet A. The dates are formatted as dd/mmm/yyyy on
   > > the worksheet and are displayed as such within the combobox. However when
   > > the user selects a date from the list it is displayed in the combobox in a
   > > general format i.e. «36125». My userform is set up that when the user makes
   > > a selection that it writes the contents to WorksheetB, the date is displayed
   > > correctly as dd/mmm/yyyy when written to the worksheet.
   > >
   > > Does anyone know how I may change the combobox so that the date is displayed
   > > correctly when selected and in such a way that the format does not change
   > > when written to the underlying worksheet??
   > >
   > > All ideas welcomed!
   > >
   > > Thanks,
   > >
   > > Ciara

   ---

4. 07-16-2014, 03:17 PM

   
   

   #4

   

   
   Forum Contributor
   

   

   ---

   Re: ComboBox Date Format Problem
   

   OK, many years too late, but for possible benefit of others, IF the date is properly formatted in the cell on your spreadsheet, instead of using .value, use .text.

   Please let me finally help somebody; everyone else has helped me soooooo much………..

   ---

5. 11-19-2019, 11:12 AM

   
   

   #5

   

   
   Forum Contributor
   

   

   ---

   Re: ComboBox Date Format Problem
   

   I have done it. I changes .value to .text!!

   ---