label veranderen afhankelijk van keuze

[r3000]

Ik krijg een foutmelding maar krijg deze niet opgelost.Bekijk bijlage Voorbeeld.xlsm
Wat doe ik fout?

In dit voorbeeld bestandje Bekijk bijlage Voorbeeld label veranderen van tekst.xlsm lukt het me wel....

 

[snb]

Private Sub ListBox1_Change()
    Label1.Caption = ListBox1.List(ListBox1.ListIndex)
End Sub

Private Sub UserForm_initialize()
    ListBox1.List = Sheet1.Columns(3).SpecialCells(2).Offset(7).SpecialCells(2).Value
    ListBox1.ListIndex = 0
End Sub

of

Private Sub ListBox1_Change()
    Label1.Caption = ListBox1.value
End Sub

Vermijd rowsource om een listbox/combobox te vullen.
Lees niet uit een werkblad wat zich al in een userformcontrol bevindt.

 

[r3000]

Dit is het bestand waar het om gaat, en wat uiteindelijke de bedoeling is met het label. Bekijk bijlage tijdelijk bestand.xls

Kun je aangeven wat er fout gaat en een juiste code geven?

Dank je!

 

[snb]

Kun jij, als je suggesties krijgt in dit forum, er ook iets mee doen ?
Als je het beter denkt te weten, prima, maar heb daarna niet al te hoge verwachtingen over de hulpbereidheid.

 

[r3000]

Beste snb,

Ik heb zeker niet het idee het beter te weten, anders kom ik hier ook niet.
Bovendien waardeer ik de tijd en moeite die u en uw mede adviseurs stoppen, in het oplossen van vragen op dit forum, ten zeerste.
Ik ben in het verleden ook altijd goed geholpen.

Ik heb uw code uiteraard wel direct in mijn bestand gezet. Als resultaat krijg ik als caption waarde, de aangevinkte waarde uit de listbox.
Dat is echter niet het geen ik nodig heb.

Wat ik nodig heb is een functie die de gekozen waarde in de listbox, zoekt in het excel bestand en de waarde in dezelfde rij, maar een paar kolommen verder, in de caption van het label zet.

Ik ga er vanuit dat ik niet duidelijk genoeg ben geweest en uw frustratie daardoor is ontstaan. Mijn excuses daarvoor.

Ik hoop dat e.e.a. nu wel duidelijk is en u mij alsnog kunt helpen.

Dankbare groet,

Remco.

 

[snb]

Lees dit nog eens:

Vermijd rowsource om een listbox/combobox te vullen.

 

[r3000]

Beste snb,

Ik heb je tip (volgens mij) begrepen.
Ik heb nu nergens Rowsources meer gebruikt en alles gevuld met .List.
Het lukt me wel om de het Label3.caption te veranderen maar niet om te verwijzen naar een waarde verderop in dezelfde rij van het excel bestand.

Het originele bestand kun je downloaden via Wetransfer http://we.tl/FsxjGsDqk5
Dan weet ik zeker dat je alles hebt.
Deze is helaas net iets te groot om hier te uploaden.

Misschien zou je er een blik op willen werpen.

Bij voorbaat dank!

Remco.

 

[snb]

Reduceer svp het bestand zodat het hier geplaatst kan worden (dat komt de gebruikersvriendelijkheid van het forum (ook voor degenen die later deze draad gaan bekijken) ten goede).

 

[r3000]

Ik ben zelf aan het proberen geweest en heb nu voor de benodigde waardes aparte functies gemaakt.
Daarmee is het opgelost.