ListBox

[John van Opstal]

Hoi,
Wie kan mij op weg helpen met het maken van een ListBox in VBA.

Ik ben op zoek naar een werkend voorbeeldje, waarin de ListBox zijn gegevens krijgt
uit een 1 kolom met gegevens op een werkblad. [dus niet met AddItem]
En ik wil graag weten hoe je een Index waarde terug krijgt in VBA [dus niet in een cel op
het werkblad], waarmee je verdere acties kan programmeren.
Of misschien weet iemand een goede site waar het object ListBox op een heldere manier uitgelegd wordt

Groetjes John.

 

[Wigi]

In deze thread werd er een ListBox gebruikt. Wel met AddItem, maar ik zie niet in wat het probleem daarmee is.

Wigi

 

[John van Opstal]

Hoi Wigi,

AddItem levert op zich geen probleem, maar de lijst die ik toe wil kennen aan
de ListBox telt meer als 200 Items.
En ik ben geinteresseerd in de methode die dit mogelijk maakt.

Groetjes John.

 

[Demeter]

Probeer eens inplaats van additem:

.RowSource = "sheetnaam!A1:A200"

Groet,
Ferenc

 

[John van Opstal]

Hoi Ferenc,
Dit werkt perfect, alvast bedankt voor de tip.

Als je nu in de ListBox een keuze heb gemaakt, Hoe krijg ik dan een indexwaarde
van het gekozen item te zien.
Misschien wil je me hier nog even doorheen slepen.

Groetjes John.

 

[Demeter]

ActiveCell.Offset(0, 2) = cboWerknemer.Value

Waar cboWerknemer de naam van je listbox is.
ActiveCell.Offset(0, 2) kan je zelf wel vertalen.

ps.
Volgens mij kan je ook .Value weglaten.

Als je de thread die Wigi heeft doorgegeven had gevolgt had je het zelf kunnen achterhalen.

Wat mij heeft geholpen bij het creeren van zo een soort formulier is op deze website:

http://www.fontstuff.com/downloads/index.htm

Hoofdstuk 4.:
Introduction to Excel VBA: 4. User Forms

tevens opmerking van Wigi hieronder.

 

[Wigi]

Als je nu in de ListBox een keuze heb gemaakt, Hoe krijg ik dan een indexwaarde van het gekozen item te zien.
Misschien wil je me hier nog even doorheen slepen.

Dat staat toch in het bestandje in de thread waaraan ik refereerde! Gebruik

ListBox1.ListIndex

met evt. een andere naam dan ListBox1.

Wigi

 

[Wigi]

Hoi Wigi,

AddItem levert op zich geen probleem, maar de lijst die ik toe wil kennen aan
de ListBox telt meer als 200 Items.
En ik ben geinteresseerd in de methode die dit mogelijk maakt.

Groetjes John.

Je kan de lus uit het onderstaande pikken als je wil. Komt uit de andere vraag. Al is RowSource ook goed.

Private Sub UserForm_Initialize()
    Dim c As Range
    For Each c In Range("A2:A7")
        Me.ListBox1.AddItem c.Value
    Next
End Sub

Wigi

 

[Demeter]

Handige pagina:

http://www.mvps.org/dmcritchie/excel/inputbox.htm