ComboBox Listindex automatisch verhogen

[loek010]

Beste Hulpverleners,

Ik kom er niet uit om de Listindex van de Combo box automatisch het nummer met 1 te laten verhogen
zie de uitleg in het voorbeeld bestand

Iemand de oplossing ?

 

[JanBG]

Hallo,

Snap eerlijk gezegd niet wat je er mee wilt, maar vervang dit

With CreateObject("System.Collections.ArrayList")
                For Each cl In Sheets("Blad1").Range("L1:L15")
                    If Trim(cl) <> "" And Not .contains(cl.Value) Then .Add Trim(cl)
                    Next cl
                    .Sort
                    ComboBox5.List = .ToArray()
                    ComboBox5.ListIndex = 0
                End With

door dit

ComboBox5.Value = WorksheetFunction.Max([L:L]) + 1

In Userform_Initialize

Dit werkt alleen als je in kolom L de spatie uit het ordernummer verwijdert

 

[loek010]

@JanBG

Bedankt voor je snelle reactie, maar dit is niet wat ik voor ogen heb.
ik zal proberen het wat beter te omschrijven de combobox in het userform haalt de 10 ordernummers op en start op listindex 0 indien het
nummer nog niet voorkomt ik kolom L na het eerste nummer van de listindex 0 op te slaan dan moet er gekeken worden of het nummer
in kolom L voorkomt in de list van de combobox indien het geval dan het eerstvolgende nummer weergeven in de combobox enzvoort

hoop dat het wat duidelijker is wat de bedoeling is.
Ps bij het opslaan van het nummer lukt het wel om het nummer op te hogen

 

[VenA]

Echt duidelijk is het niet. Kolom A is al gesorteerd dus waarom dan zo ingewikkeld met een System.Collections.ArrayList? Gaat ook leuk worden als het 2020 wordt.

Als ik het goed begrepen heb dan zo iets

ComboBox5.ListIndex = Sheets("Blad1").Cells(Rows.Count, 12).End(xlUp).Row - 1