Gegevens uit keuzelijst halen

[HJ25]

Hallo, ik heb een keuzelijst gemaakt waarbij meerdere van de mogelijke opties aangevinkt kunnen worden. Nu wil ik dat in blad 2 een "X" o.i.d. komt te staan wanneer die letter aangevinkt is in de keuzelijst in blad 1. Iemand een idee hoe ik de gegevens uit die keuzelijst kan halen?

 

[spaarie]

En dit is forum nummer 3...

Private Sub CommandButton1_Click()
    Sheets(2).Range("B2:B" & Sheets(2).Range("B" & Rows.Count).End(xlUp).Row).ClearContents
    For x = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(x) = True Then
            Sheets(2).Range("A2:A" & Sheets(2).Range("A" & Rows.Count).End(xlUp).Row).Find(ListBox1.List(x)).Offset(, 1) = "JA"
        End If
    Next
End Sub

 

[HJ25]

Okee en in welk werkblad moet ik dit plaatsen zodat het gaat werken? Want tot nu toe werkt hij nog niet

 

[spaarie]

Maak een ActiveX commandbutton aan op blad1
Activeer de ontwerpmodus en dubbelklik hierop
Plak bovenstaande code in je VB editor...

 

[HJ25]

Ah helemaal top! Bedankt! Excuses voor het plaatsen op 3 fora! Zal er proberen aan te denken om dit de volgende keer niet weer te doen! Bedankt voor de oplossing voor mijn probleem!

 

[spaarie]

Graag gedaan, maar let wel. Veel helpers haken af bij cross posting en je wordt er niet populairder op.... (just sayin')
Vergeet je niet alle vragen te sluiten?

Ciao!

 

[HJ25]

Okee ik ga er proberen aan te denken dit niet weer te doen, want ik wil natuurlijk wel gewoon dat er mensen zijn die me nog willen helpen
Ik heb nu alle vragen als opgelost gemarkeerd.

Nogmaals bedankt voor de hulp!