Sorteren in combobox (invoerformulier)

[Josno]

Ik heb in een userform een combobox zitten die zoekt naar een waarde in de kolom A van een bepaalde sheet. De rest van de userform wordt gevuld en hier kan ik dan wijzigingen door voeren of een nieuw adres toevoegen. Het nieuwe adres wordt onder aan het excelsheet toegevoegd. Aangezien deze adressen dan niet niet op alfabetische volgorde staan, zou ik graag willen dat deze adressen wel in mijn combobox op alfabetische volgorde te zien is.

Ik heb oa de volgende codes verwerkt in mij VBA achter het userform

Private Sub UserForm_Initialize()
sq = Sheets("Data mutatie Portaal").Range("A2:A65000")
Cbo_Adres.List = sq
en

Private Sub Cbo_Adres_Change()
Dim WS As Worksheet
On Error Resume Next
With Worksheets("Data mutatie Portaal").Range("A:A")
Set P = .Find(Cbo_Adres.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not P Is Nothing Then
Cmd_Delete.Enabled = True
Cmd_Wijzigen.Enabled = True
Cmd_New.Enabled = False
Cmd_OK.Enabled = True
Chb_Alle_Woningen = False
Txt_Team.Value = Worksheets("Data mutatie Portaal").Range("B" & P.Row).Value

enz..

 

[ExcelAmateur]

Josno,

Waarom sorteer je de adressen niet?

Kijk anders even hier, gevonden met Google

 

[Josno]

reden van niet sorteren in sheet

Josno,

Waarom sorteer je de adressen niet?

Omdat deze gegevens (adressen) gekoppeld zijn in andere sheets. Hier worden eigen kolomen ingevuld door een andere gebruiker die geen relatie hebben tot het basisbestand. Dus als ik sorteer in de ene sheet gaat de data die gekoppeld is in de andere sheet niet goed. Vandaar dat ik het graag in de combobox wil oplossen,

Josno

 

[ExcelAmateur]

In mijn vorig bericht heb ik een link geplaatst, misschien dat je er wat aan heb.

 

[Josno]

In mijn vorig bericht heb ik een link geplaatst, misschien dat je er wat aan heb.

Bedankt voor je reactie,

Klopt ik ben op de site aan het kijken wat ik hiervan kan gebruiken

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
With Sheets("Data mutatie Portaal")
    sq = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
For lLoop = 1 To UBound(sq)
    For lLoop2 = lLoop To UBound(sq)
        If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
            str1 = sq(lLoop, 1)
            str2 = sq(lLoop2, 1)
            sq(lLoop, 1) = str2
            sq(lLoop2, 1) = str1
        End If
    Next lLoop2
Next lLoop
Cbo_Adres.List = sq
End Sub

 

[ExcelAmateur]

@Warme bakkertje,

Dit werkt perfect. :thumb::thumb:

 

[Josno]

Dank je wel

Private Sub UserForm_Initialize()
With Sheets("Data mutatie Portaal")
    sq = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
For lLoop = 1 To UBound(sq)
    For lLoop2 = lLoop To UBound(sq)
        If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
            str1 = sq(lLoop, 1)
            str2 = sq(lLoop2, 1)
            sq(lLoop, 1) = str2
            sq(lLoop2, 1) = str1
        End If
    Next lLoop2
Next lLoop
Cbo_Adres.List = sq
End Sub

Warme bakkertje dit is toch een geweldig forum met mensen zoals jij, dit werkt geweldig dank je wel. Ik zet de vraag op opgelost