Datum ohne Doppelte in ComboBox einlesen
08.06.2008 20:12:19
edie
habe im Archiv nachfolgende Code gefunden im dem
aus Spalte A ohne Doppelte Einträge eingelesen werden.
Private Sub UserForm_Initialize()
Dim col As New Collection
Dim iRow As Integer
iRow = 1
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 1))
col.Add Cells(iRow, 1), Cells(iRow, 1)
If Err = 0 Then
cboStart.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
cboStart.ListIndex = 0
End Sub
Leider wird eine Datumsreihe im Format: TT.MM.JJ nicht eingelesen.
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße
Anzeige