• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Drop down met toelichting

Status
Niet open voor verdere reacties.
N

noukietje

Gebruiker
Lid geworden
3 apr 2006
Berichten
106
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
 
deze in Blad 2:

Code: 
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
 
Kijk eens in cel B2 en K2
Is het dat wat je bedoelt?
 

Bijlagen

  • Validatie en toch ander resultaat.xlsm
    20 KB · Weergaven: 41
Toegepast in jouw bestand.
 

Bijlagen

  • T-RA.xlsm
    21 KB · Weergaven: 26
Nog maar wat verder gedaan voor nog 2 kolommen.
 

Bijlagen

  • T-RA.xlsm
    21,8 KB · Weergaven: 41
Je kan een eerder geplaatst bericht ook aanpassen Wieter:thumb:
 
Hierbij nog een variant.
Code: 
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
 

Bijlagen

  • T-RA(pcb).xlsm
    21 KB · Weergaven: 30
Beste,

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

Groeten,
Julie
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan