Keuzelijst

[Axel Hagg]

Dag Renevatio,

Dat kan door de vette regel toe te voegen:

Private Sub List1_Click()
Dim s As String

s = List1.Column(2, List1.ListIndex)
If Len(s) Then s = Illustratiemap & s
Image1.Picture = LoadPicture(s)
Sheets("Sheet2").Range("A20") = List1.Column(3, List1.ListIndex)
End Sub

Gegroet,

Axel.

 

[Renevatio]

Hey axel,

Ik heb de code toegevoegd maar blijf een error krijgen. Blijkbaar kan hij de colom niet vinden.
Ik heb het bestand geattached.

Ik heb ondertussen ook meer gegevens trachten toe te voegen maar blijkbaar staat er een limiet op de gegevens? Ik kan tot 500 gaan maar dan erna geeft hij ook een error.

Kan de listbox vergroot worden?


Groeten

 

[Axel Hagg]

Dag Renovatio,

Twee foutjes:
1. Verwijzing naar column(3,x) van list1 en die column bestaat niet.
2. Verwijzing naar Sheets("Sheet2") en dat moet zijn Sheets("Blad2")

List1 kan een haast onbeperkte hoeveelheid bevatten.

Gegroet,

Axel.