listbox versus listbox

[RB_online]

Even een vraag betreffende listboxen.

Je hebt er binnen excel 2 soorten. 1 bij de werkbalk formulier en 1 bij de werkbalk besturingselementen. Die laatste is veel beter naar je eigen smaak aan te passen maar ik kwam een verschil tegen wat voor mij een probleem is.

Bij de listbox van het formulier geeft hij in de gekoppelde cel het nummer van het item in de lijst aan. Bijv. als ik een listbox heb met a,b,c,d,e,f,g,h,i erin en ik klik op op "e" dan geeft hij een 5. Doe ik nu hetzelfde bij de listbox vna het besturingselement dan geeft hij ook een "e". Ik heb echter de 5 nodig om het programma goed te laten werken.

Weet iemand ook of dit anders kan?

Zie ook bijgevoegd bestand.
Alvast bedankt René

 

[danny147]

Beste RB_online

Met een hulpcel en VERT.ZOEKEN is het te doen, zie bestandje.

Groetjes Danny. :thumb:

 

[snb]

Private Sub ListBox1_Change()
    [Blad1!H20] = ListBox1.ListIndex
End Sub

 

[RB_online]

Danny deze optie had ik ook al geprobeerd maar dan moet ik de uitkomst eerst kopieren en daarna plakken als waarde. Dat is een beetje omslachtig. Toch bedankt voor het meedenken.

De oplossing van SNB is voor mij makkelijker, waarvoor dank.:thumb:

René

 

[RB_online]

De vraag leek opgelost maar ik loop toch nog tegen een probleem aan.
Als ik de oplossing van snb gebruik in een nieuw bestand in excel 2007 is er niets aan de hand.
Zodra ik echter een bestaand bestand neem en een listbox plaats met dezelfde code dan krijg ik een foutmelding.

compileerfout: kan het project of de bibliotheek niet vinden

De code is uiteraard aangepast aan het bestand.
Is er misschien iemand die weet waarom dit gebeurt?

René

 

[RB_online]

Helaas geen reacties gehad.

Is er echt niemand die mij hier verder mee kan helpen?

René

 

[Roncancio]

Helaas geen reacties gehad.

Is er echt niemand die mij hier verder mee kan helpen?

René

Hm, lastig zonder voorbeeldbestand maar ik zal een poging wagen.
Zou het kunnen dat er in het bestaande bestand geen werkblad genaamd Blad1 aanwezig is?

Met vriendelijke groet,


Roncancio

 

[RB_online]

Ik heb de codes aangepast aan de bladen en zowel bladnamen als bladnummers geprobeerd.
Ik zal even proberen een voorbeeldje aan te maken.

René

 

[RB_online]

ik ben er ondertussen uitgekomen met de volgende regel

Sheets("UITSLAGEN").Range("O28").Value = ListBox1.ListIndex + 1

Ronancio toch bedankt voor het meedenken.

Ik ben er echter nog niet.
ik heb nog enkele vragen:

1 Als ik mijn bestand sluit en opnieuw open dan is mijn listbox ineens een stuk kleiner.
Zowel smaller als korter. Is het mogelijk om deze listbox op 1 formaat te houden?

2 Door middel van vba code wordt de inhoud van de gelinkte cl verwijderd. in de listbox blijft hij echter wel geselecteerd staan. hoe kan ik deze automatisch laten deselecteren?

René

 

[RB_online]

Ik heb mijn lay-out van het bestand aangepast.
De listbox staat nu op een userform.
Ik wil graag de plaats van de selectie in de listbox getoond hebben in plaats de waarde van de selectie.
Ik weet dit is niet erg duidelijk, Kijk daarom even naar het voorbeeldbestand.

Ik ben hier al dagen mee aan het stoeien en krijg het niet voor elkaar.

René

 

[Wigi]

Haal de B4 weg uit de ControlSource eigenschap van de combobox.

Wigi

 

[RB_online]

Simpel als je het weet.

Voorlopig ben ik weer een stapje verder.
Bedank Wigi.:thumb:

Natuurlijk ook mijn dank voor de anderen die meegedacht hebben.
René