Koppeling listbox met worksheet

Knisees · #1 1 februari 2012, 15:52

Kan iemand mij laten weten hoe ik een gemaakte keuze in een listbox op een userform direct kan tonen op een bepaalde cel in een worksheet?

N13L5 · #2 1 februari 2012, 16:05

bv zo:

Code:

Sheets("blad1").range("a1").Value = listbox1.Value

Niels

king rich #73 · #3 1 februari 2012, 16:06

Dat kan op deze manier...

Knisees · #4 1 februari 2012, 16:34

Ik kom er helaas nog niet uit. Daarom gaat hierbij alsnog een voorbeeld. Ik wil graag dat als er in de listbox Team een keuze is gemaakt het resultaat direct terugzien op het werkblad 'lijsten in cel J2.
Hoe los ik dit op?

king rich #73 · #5 1 februari 2012, 16:51

Bedoel je zo iets...?

Knisees · #6 1 februari 2012, 18:02

Dit is precies wat ik zoek. ik wil hiermee met vert.zoeken een waarde zoeken (zie cel J4) en deze laten verschijnen in Combobox4. Als ik dit doe met ControlSource Lijsten!J4 dan wordt de waarde getoond maar verdwijnt op het werkblad de formule voor vert.zoek. Is hier nog iets aan te doen? Of kan ik beter de waarde op een andere wijze tonen in combobox4.

Heb je een idee?

Knisees · #7 1 februari 2012, 23:15

De bijlage van het vorige bericht werkt niet dan wel is fout. Daarom heb ik bij dit bericht een nieuw bestand geupload.

Op het werkblad 'lijsten' heb ik in cel J7 een formule vert.zoeken geplaatst met als doel om op basis van het resultaat in cel J2 een waarde te zoeken. Ik wil dat deze waarde vervolgens zichtbaar wordt in de Listbox1.

Hoe krijg ik dit voor elkaar zonder dat de formule in cel J7 verwijdert wordt?
Welke code en waar moet ik deze plaatsen?

Excuses voor het vorige onjuiste bestand.

Knisees · #8 4 februari 2012, 13:35

Ziet iemand kans om mij te helpen met mijn vraag? Ik zou hier graag verder mee willen maar kom er zelf nog niet uit.

LucB · #9 4 februari 2012, 14:58

Helpt dit je verder?

Code:

Private Sub lstTeam_Change()

    Select Case lstTeam.Value
        Case "A"
            lstProces.List = Worksheets("lijsten").Range("TeamA").Value
            lstProces.ListIndex = 0
        Case "B"
            lstProces.List = Worksheets("lijsten").Range("TeamB").Value
            lstProces.ListIndex = 0
        Case "C"
            lstProces.List = Worksheets("lijsten").Range("TeamC").Value
            lstProces.ListIndex = 0
    End Select
    
    Sheets("lijsten").Range("J2") = lstTeam.Value
    Sheets("lijsten").Range("J7") = Application.WorksheetFunction.VLookup(lstTeam.Value, Sheets("lijsten").Range("B2:C4"), 2, 0)
    ListBox1.AddItem Sheets("lijsten").Range("J7")
End Sub

king rich #73 · #10 4 februari 2012, 15:14

Bedoel je zo...?

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave

Soortgelijke discussies
Discussie	Auteur	Forum	Reacties	Laatste bericht
Worksheet koppelen aan een ander worksheet	Marrit	Afgehandelde vragen	4	7 juli 2010 22:33
plaats van gecopieerde cel uit worksheet plaatsen naar andere worksheet via macro	samik	Afgehandelde vragen	2	23 november 2009 17:02
Inhoud listbox naar andere listbox kopieren	Rene	Afgehandelde vragen	5	20 september 2009 16:15
Complete worksheet linken aan een andere worksheet	Nicos	Afgehandelde vragen	4	13 december 2006 09:47
koppeling dde	masseurs	Afgehandelde vragen	1	16 februari 2006 20:28