Listbox vullen

[don42]

Beste helpers,

Ik heb in een userform en listbox
Daar haal ik de gegevens ( namen)
Deze staan in A2 tm A300
Er zijn in kolom veel cellen leeg
Wat dus ook ‘gaten’ maakt in de listbox
Is het mogelijk een listbox te laden
Die de lege cellen overslaat

Ik wil kolom A niet sorteren en ook niet de
Lege cellen uit kolom A halen

Bvd

 

[HSV]

Eerst alles in een array zetten zonder de lege cellen.

 

[AD1957]

Is dit een optie?

Private Sub UserForm_Initialize()

    With ListBox1
        .List = Sheets("Blad1").Range("A2:A300").Value
        For j = .ListCount - 1 To 0 Step -1
          If .List(j, 0) = "" Then .RemoveItem (j)
        Next j
    End With

End Sub

 

[loek010]

Nog een Optie om je listbox te vullen

Private Sub UserForm_Initialize()
      With CreateObject("System.Collections.ArrayList")
                For Each cl In Sheets("Blad1").Range("A2:A300")
                    If Trim(cl) <> "" And Not .contains(cl.Value) Then .Add Trim(cl)
                    Next cl
                    .Sort
                    ListBox1.List = .ToArray()
                End With
End Sub

 

[don42]

Hoi
bedankt weer voor jullie hulp het werkt perfect
heb beide getest :thumb:
helemaal goed

 

[VenA]

Met lijkt de opzet van het werkblad niet logisch maar zonder lusje kan ook

Private Sub UserForm_Initialize()
  ListBox1.List = Split(Join(Filter([transpose(if(A2:A300="","~",A2:A300))], "~", 0), "|"), "|")
End Sub