Hallo,
Ik heb een bestand waarbij een combobox gevuld wordt met items die afhankelijk zijn van een andere combobox.
De items worden allemaal correct weergegeven in de 2e combobox, echter niet gesorteerd op alfabetische volgorde.
In combobox cbBedrijf kies ik eerst een vestiging.
Vervolgens zie ik in combobox cbEindgebruiker enkel de eindgebruikers van die bepaalde vestiging.
Aan de hand van die selectie wordt een listbox met 6 kolommen gevuld met data.
Het functioneerd allemaal prima, maar ik wil graag dat de waardes in cbEindgebruiker op alfabetische volgorde worden weergegeven.
Dit is de huidige code voor het cbBedrijf_Change event:
De reden dat ik een collection gebruik is omdat ik hier een key kan meegeven, waardoor er unieke items in de combobox worden weergegeven (anders zouden er dubbele waardes in komen te staan).
Kan iemand mij op de juiste weg helpen om de waardes in de combobox te sorteren?
Ik heb een bestand waarbij een combobox gevuld wordt met items die afhankelijk zijn van een andere combobox.
De items worden allemaal correct weergegeven in de 2e combobox, echter niet gesorteerd op alfabetische volgorde.
In combobox cbBedrijf kies ik eerst een vestiging.
Vervolgens zie ik in combobox cbEindgebruiker enkel de eindgebruikers van die bepaalde vestiging.
Aan de hand van die selectie wordt een listbox met 6 kolommen gevuld met data.
Het functioneerd allemaal prima, maar ik wil graag dat de waardes in cbEindgebruiker op alfabetische volgorde worden weergegeven.
Dit is de huidige code voor het cbBedrijf_Change event:
Code:
Private Sub cbBedrijf_Change()
'populate cbEindgebruiker
Dim EindgebruikerRange As Range, cell As Range
Dim EindgebruikerCollection As Collection
Dim lastrow As Long
Dim item As Variant
cbEindgebruiker.Clear
lastrow = ThisWorkbook.Worksheets("Hardware").Range("A1").CurrentRegion.Rows.count
Set EindgebruikerCollection = New Collection
Set EindgebruikerRange = ThisWorkbook.Worksheets("Hardware").Range("M2:M" & lastrow)
On Error Resume Next
For Each cell In EindgebruikerRange
If (cell.Offset(, -12)) = cbBedrijf.Value Then
EindgebruikerCollection.Add item:=cell.Value, Key:=CStr(cell.Value)
End If
Next cell
For Each item In EindgebruikerCollection
cbEindgebruiker.AddItem item
Next item
End Sub
De reden dat ik een collection gebruik is omdat ik hier een key kan meegeven, waardoor er unieke items in de combobox worden weergegeven (anders zouden er dubbele waardes in komen te staan).
Kan iemand mij op de juiste weg helpen om de waardes in de combobox te sorteren?