Listbox.Columnheads

[harolda1980]

Ik heb nu via een zoek methode (zie hieronder) de listbox gevuld met de gevraagde data. Maar hoe stel ik nu de Columnheads in?

Tevens een vraag of je data in een listbox kunt sorteren?

For rij = 2 To 10000
    If Sheets("D").Cells(rij, 2).Value = CBland.Value Then
        If Sheets("D").Cells(rij, 3).Value = Cbstreek.Value Then
                lsbox1.AddItem Sheets("D").Cells(rij, 1).Value
                lsbox1.List(Row, 1) = Sheets("D").Cells(rij, 4).Value
                lsbox1.List(Row, 2) = Sheets("D").Cells(rij, 5).Value
                lsbox1.List(Row, 3) = Sheets("D").Cells(rij, 6).Value
                lsbox1.List(Row, 4) = Sheets("D").Cells(rij, 7).Value
                lsbox1.List(Row, 5) = Sheets("D").Cells(rij, 8).Value
                lsbox1.List(Row, 6) = Sheets("D").Cells(rij, 9).Value
                Row = Row + 1
        End If
    End If
Next rij