Met behulp van Dropdown waarde tonen in andere cel

[jamesbunt]

Hallo,

Ik heb in het onderwerp zo goed mogelijk proberen te beschrijven wat ik wil, maar het is lastig uit te leggen.

Ik heb twee sheets. De eerste sheet is een formulier waar ik een Dropdown menu in heb staan. In de andere sheet staan twee kolommen. In de eerste kolom staan namen en in de tweede staan getallen. Ik wil dat de gebruiker in de eerste sheet een naam kan kiezen via het Dropdown menu en dat in een andere cel het getal wordt weergegeven dat is gekoppeld is aan die naam.

Voorbeeld:

Namen Getal
Jan 34
Piet 12
Henk 23

Als de gebruiker via het Dropdown menu voor "Jan" kiest, moet het getal 34 in een andere cel verschijnen.

Vervolgens moet die 34 kunnen worden aangepast en die verandering moet doorgevoerd worden in de tweede sheet met data.

Mocht dit alleen op te lossen zijn met Macro's dan is dit geen probleem. Ik weet ongeveer hoe ik dat moet gebruiken, weet alleen de juiste code niet.

Ik hoop dat jullie het begrijpen en dat iemand me kan helpen.

 

[abevleeming]

Een voorbeeld bestand doet wonderen, zeker aangezien hier een macro voor nodig is en het wel zo makkelijk is om die meteen goed te maken

 

[jamesbunt]

Bekijk bijlage Voorbeeld.xlsx

Er staat wat vertrouwelijke informatie in het echte bestand, dus ik heb even een voorbeeld toegevoegd. Ik heb het Dropdown menu nu gemaakt via "Valideren". Als je de naam nu wijzigt in de eerste sheet, verandert het getal. Op zich werkt dat, maar ik zou nu willen dat wanneer ik het getal in Sheet"Form" aanpas, dit getal ook verandert in Sheet"Data".

 

[edmoor]

Probeer deze maar eens:
Bekijk bijlage Voorbeeld.xlsm

 

[VenA]

Volgens mij is 'ListItems' niet zo'n heel handige naam voor een een gedefinieerd bereik als je ook gebruik wil maken van VBA. Zie bv hier https://msdn.microsoft.com/en-us/library/aa443480%28v=vs.60%29.aspx

Met een iets andere methode

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1,C3")) Is Nothing Then
    Application.EnableEvents = False
    With Sheets("Data")
        Select Case Target.Address
            Case "$C$1"
                Target.Offset(2) = .Cells(Application.Match(Target, .Range("A1:A" & .Cells(1).CurrentRegion.Rows.Count), 0), 2).Value
            Case "$C$3"
                .Cells(Application.Match(Target.Offset(-2), .Range("A1:A" & .Cells(1).CurrentRegion.Rows.Count), 0), 2) = Target.Value
         End Select
    End With
    Application.EnableEvents = True
End If
End Sub

 

[jamesbunt]

Bedankt VenA! Dat is precies wat ik zocht.