mark1987vw
Gebruiker
- Lid geworden
- 19 mei 2009
- Berichten
- 96
Ik heb een Combobox gevuld met datums vanuit een sheet
Nu wil ik alleen dat de laatste datum bovenaan staat in de combo box in plaats voor de eerste datum.
Dus mijn vraag is of ik deze kan sorteren op datum van laat naar vroeg.
Ik heb de combobox op de volgende manier gevuld, zodat ik alleen unieke datums krijg.
In het voorbeeld staat de eerste datum bovenaan maar ik wil dit dus anders om.
Nu wil ik alleen dat de laatste datum bovenaan staat in de combo box in plaats voor de eerste datum.
Dus mijn vraag is of ik deze kan sorteren op datum van laat naar vroeg.
Ik heb de combobox op de volgende manier gevuld, zodat ik alleen unieke datums krijg.
Code:
Sub GetDay()
Me.ComboBox1.Clear
Dim r As Long
r = 2
v = CStr(Range("b" & r))
While v <> ""
found = False
For i = 1 To Me.ComboBox1.ListCount
If v = Me.ComboBox1.List(i - 1) Then found = True
Next
If Not found Then Me.ComboBox1.AddItem v
r = r + 1
v = CStr(Range("b" & r))
Wend
End Sub
Private Sub UserForm_Initialize()
GetDay
End Sub
In het voorbeeld staat de eerste datum bovenaan maar ik wil dit dus anders om.