Wie kann ich erreichen, dass meine Combobox immer den letzten gefundenen Wert anzeigt. Ich ändere z.Z. manuell den Listindex, also bei jeden neu gefundenen Wert + 1. Geht dies auch automatisch, wenn ja wie?
Vielen Dank
Wolfgang
Sub Fuellen()
Dim lngx, l As Long
Dim nListCount As Long
Dim nLastItem, nThisItem As String
ComboBox1.Clear
For lngx = 9 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Format(Cells(lngx, 1), "mmmm yy")
Next
With ComboBox1
nListCount = .ListCount
Do
nThisItem = .List(l)
If nThisItem = nLastItem Then
.RemoveItem l
nListCount = nListCount - 1
Else
nLastItem = nThisItem
l = l + 1
End If
Loop Until l = nListCount
End With
ComboBox1.ListIndex = 5
End Sub