ich fülle mit unten stehendem Code 2 Comboboxen mit Datumswerten.
Die MatchEntry Funktion der Comboboxen ist aber ziemlich daneben bei Datumswerten
und es werden keine Einträge gematched.
Einstellungen sind auf:
- MatchEntryComplete
- StyleDropDownCombo
Kennt ihr eine möglichkeit, bei Datumswerten einen halbwegs funktionierenden Match hinzubekommen?
Code:
Private Sub Get_Dates()
Dim i As Long
Dim start, dates() As Date
ReDim dates(2920)
start = CDate("01.01.2017")
For i = 0 To 2920
dates(i) = start + i
Next i
Me.cb_Anfragedatum.List = dates
Me.cb_Angebotsgueltigkeit.List = dates
Erase dates
End Sub