Meerdere kolommen in listbox

[Excelvbas01]

ik gebruik deze code op te zoek. werkt prima. alleen krijg ik een kolom te zien listbox.
is er een mogelijkheid om kolommen toe te voegen?

Private Sub TextBox1_Change()
    Dim c, firstaddress
    ListBox1.Clear
    Dim rRng
    With Range("A2:C1000" & Cells(Rows.Count, 3).End(xlUp).Row)
        Set c = .Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
            firstaddress = c.Address
            Do
                ListBox1.AddItem c.Text
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstaddress
        End If
    End With
End Sub

 

[loek010]

In de eigenschappen van de listbox1 kan je de aantal kolommen aangeven die je wil zien ColomnCount = bijvoorbeeld 3
en de breedte van de kolommen geef je aan in ColmnWidths = 100 pt;190 pt;180 pt

 

[Excelvbas01]

Staat al op 3 kolommen, maar krijg geen kolommen te zien.

 

[loek010]

Probeer deze eens

 

[AD1957]

of zo, zoek in alle kolommen.

 

[snb]

Zie: https://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[Excelvbas01]

Allen bedankt.