Listbox in VBA met header

[janus1janus1]

LS,

ik heb een listbox gemaakt welek gevuld wordt in de volgende loop:

ListBox1.ColumnCount = 3
t=0

Rij = 2
Volgnr = cells(Rij,1)
Do while Volgnr <> empty

Naam = cells(Rij,2)
Adres = cells(Rij,3)
ListBox1.AddItem Volgnr
ListBox1.List(t,1) = Naam
ListBox1.List(t,2) = Adres
Rij=Rij+1
t=t+1
Volgnr = cells(Rij,1)

Loop

Hoe kan ik hier een kolomheader in de output (listbox) krijgen.
Bij voorbaat dank voor het meedenken
Janus

 

[snb]

dat kan simpeler

sub want()
  sq=sheets(1).usedrange.range("A:C")
  Listbox1.list=sq
End Sub

of

sub want()
  Listbox1.Rowsource=sheets(1).usedrange.range("A:C").address
End Sub

of

sub want()
  Listbox1.ListFillRange=sheets(1).usedrange.range("A:C").address
End Sub

 

[janus1janus1]

Great,

Dat ziet er goed uit, hier ben ik mee geholpen.
Als ik de titel(header) balk ook nog vast kan zetten is het helemaal super, kan dat in een listbox?

In ieder geval hartelijk bedankt
Janus