combobox volgorde gegevens

[combo102]

Hallo iedereen,

Kan een combobox de gegevens op alfabet zetten?

Mijn bijlage doet dit namelijk niet.

Heeft iemand misschien een code?

Groetjes, Melissa

 

[Wigi]

Private Sub UserForm_Initialize()

    Dim rData As Range
    Dim arrItems()
    
    With ActiveSheet
    
        Set rData = .Range("A1").CurrentRegion
    
        rData.Copy .Range("Z1")
        
        .Range("Z1").Sort _
            Key1:=.Range("Z1"), Order1:=xlAscending, _
            Header:=xlGuess, OrderCustom:=1, _
            MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
        
        arrItems = .Range("Z1").CurrentRegion.Value
        
        Me.ComboBox1.List() = arrItems

        .Range("Z1").CurrentRegion.Clear
    
    End With
    
    Set rData = Nothing

End Sub

Wigi

 

[combo102]

hoi Wigi

Hoi Wigi,

Bedankt voor je reactie. Dat is snel.

De bijlage heb ik aangepast

Ik krijg alleen een 'fout tijdens uitvoering'. Ik hoop dat het iets simpels is en het nog vind.

Gr. Melissa

 

[Wigi]

Ik heb in oplossing de A1:A10 weggehaald bij de RowSource eigenschap van de Combobox, maar ben dat vergeten te melden.

Wigi

 

[combo102]

-

Wigi,

Ja dat is hem!

Dank je

Gr. Melissa