kolommen bepalen voor listbox

[JosEindhoven]

IK HEB EEN BESTAND MET EEN LISTBOX WELKE GEVULD WORD UIT DE SHEET DATABASE. NU WIL IK IN DE LISTBOX NIET ALLE KOLOMMEN HEBBEN. IS HET MOGELIJK OM VIA VBA DEZE KOLOMMEN TE SELECTEREN EN ZODOENDE DE LISTBOX TE KRIJGEN DIE IK VOOR OGEN HEB.


"Private Sub UserForm_Initialize()
With Blad2.ListObjects(1).DataBodyRange
ListBox1.List = .Value
Me.ListBox1.RowSource = "Database"
End With"

 

[popipipo]

aub bij je volgende reactie je capslock uitzetten.

 

[JosEindhoven]

Ik zag het ook.Is inmiddels uit.

 

[HSV]

Je kan gerust die gehele databodyrange laden.
Haal die rowsource coderegel weg.

ListBox1.List = Blad2.ListObjects(1).DataBodyRange.Value

Zet columcount in de eigenschappen op het aantal kolommen die je wilt zien in de listbox.

 

[JEC.]

Bvb

Private Sub UserForm_Initialize()
 ar = Sheets(1).ListObjects(1).DataBodyRange
 ListBox1.List = Application.Index(ar, Evaluate("row(1:" & UBound(ar) & ")"), Array(1, 3, 5))
End Sub