Mit anschließendem CODE(welchen ich aus diesem Forum erhielt) wird Spalte B ausgelesen u. in Combobox3 zur Auswahl von 0 bis Ende steigend dargestellt.
Wie muß der Code geändert werden um die Darstellung umgekehrt von Ende bis 0 in Combobox3 ist?
Sub MeinCode()
Dim AlleZellen As Range, Zelle As Range, AnzAlle As Long, AnzOhneDupl As Long, OhneDupl As New Collection
Dim i As Long, j As Long, Swap1, Swap2, Item
Set AlleZellen = Range("B19:B65536")
On Error Resume Next
For Each Zelle In AlleZellen
OhneDupl.Add Zelle.Value, CStr(Zelle.Value)
Next Zelle
On Error GoTo 0
AnzAlle = AlleZellen.Count
AnzOhneDupl = OhneDupl.Count
ReDim SuchDatenLfd(0 To AnzOhneDupl - 1)
For n = 1 To UBound(SuchDatenLfd)
SuchDatenLfd(n) = OhneDupl.Item(n + 1)
Next n
For Each Item In OhneDupl
frmProzesse.ComboBox3.AddItem Item
Next Item
End Sub
Grüsse Lorenz