Drop down met toelichting

[noukietje]

Beste,

Ik zou graag een drop down lijst maken waar de toelichting van de waarde erbij staat maar enkel de waarde in mijn cel komt. Ik ken enkel het principe van gegevensvalidatie en hiermee lukt dit niet.
Even concreet. In bijlage mijn bestand. Op het eerste tabblad "parameter" staan de waarden + toelichting. Op het tweede tabblad komen de afkortingen van deze parameters terug. Als ik bijvoorbeeld in C3 sta zou ik graag volgende lijst zien:

• praktisch onmogelijk 0,2
• denkbaar maar onwaarschijnlijk 0,5
• onwaarschijnlijk maar mogelijk in grensgevallen 1
• ongewoon maar mogelijk 3
• zeer goed mogelijk 6
• te verwachten 10

Wanneer ik dan kies voor bijvoorbeeld "te verwachten" komt enkel de waarde "10" in mijn cel.

Alvast bedankt voor de hulp!
Julie
Bekijk bijlage T-RA.xlsx

 

[SjonR]

deze in Blad 2:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
     Application.EnableEvents = False
    Target.Value = Application.VLookup(Target, Sheets("Parameters").Range("A12:B17"), 2, 0)
    Application.EnableEvents = True
End If
End Sub

 

[wieter]

Kijk eens in cel B2 en K2
Is het dat wat je bedoelt?

 

[wieter]

Toegepast in jouw bestand.

 

[wieter]

Nog maar wat verder gedaan voor nog 2 kolommen.

 

[SjonR]

Je kan een eerder geplaatst bericht ook aanpassen Wieter:thumb:

 

[Piet Bom]

Hierbij nog een variant.

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then
      Application.EnableEvents = True
      Exit Sub
    End If
    If Target.Column > 2 And Target.Row > 2 Then
      txt = Target.Value
      pos = InStr(1, txt, "-", vbTextCompare)
      If pos > 1 Then
        Application.EnableEvents = False
        Target.Value = CDbl(Trim(Left(txt, pos - 1)))
      End If
    End If
    Application.EnableEvents = True
End Sub

 

[noukietje]

Beste,

Bedankt voor de verschillende uitwerkingen. Hiermee kan ik verder, thx!

Groeten,
Julie