Een numerieke dynamische range in een combobox sorteren?

[ericje85]

Dag allen,

Ik ben bezig met het maken van een document om een wachtlijst te beheren voor mijn werk. Met mijn geringe Excel en VBA-programmeer ervaring ben ik (mijns inziens) toch een heel eind ben gekomen via zelf een en ander uitvogelen, Google en YouTube-filmpjes. Ik heb al eenmaal hulp gehad via dit forum, daarna lukte het weer om verder te stoeien. Maar nu roep ik opnieuw de hulp in voor een laatste stukje waar ik niet uitkom.

Via het Userform 'Client toewijzen aan behandeling' roept hij automatisch een dynamische range aan unieke nummers op die hij koppelt aan persoonlijke gegevens van iemand. Nu wil ik deze dynamische range graag op nummer gesorteerd hebben in plaats van dat hij alle getallen van boven naar beneden in de sheet pakt en in de ComboBox zet. Ik had gedacht dat zoiets makkelijk te maken zou zijn, maar via Internet stuit ik op een heleboel ingewikkelde methodes via Arrays, Lbound & Ubound-functies... en ik begrijp er niets van.

Is er iemand van jullie die met me mee wil kijken en van advies kan voorzien?
In de bijlage het gezipte Excel-document (anders was het te groot).

Hartelijk dank!
PS: Oh, de gegevens die er nu al staan zijn volledig fictief (en niet van echte personen!)

 

[HSV]

Verwijder 'Userlijst' achter 'rowsource' in de eigenschap van de combobox.

Het stuk is aangepast tot 'Fill the array'.

Private Sub UserForm_Initialize()
Dim lCount As Long
Dim myArray(1 To 40, 1 To 1) As Long
With Sheets("planlijst behandeling")
sn = .Range("c4:c" & .Cells(Rows.Count, 3).End(xlUp).Row).Value
 For i = 1 To UBound(sn)
    For j = i + 1 To UBound(sn)
       If sn(i, 1) > sn(j, 1) Then
            tmp = sn(j, 1)
            sn(j, 1) = sn(i, 1)
            sn(i, 1) = tmp
      End If
    Next j
  Next i
UserNrComboBoxBEH.List = sn
End With
'Fill the array

 

[ericje85]

Held! Mijn dank is groot! Het werkt! En inderdaad... je moet er maar kaas van kunnen maken, hier was ik nooit zelf uitgekomen haha! ;-)