Hoe maakt u een keuzelijst in Excel, maar wordt er 'Verschillende waarde' weergegeven?
In een Excel-werkblad kunt u snel een keuzelijst maken met de functie Gegevensvalidatie, maar heeft u ooit geprobeerd om een andere waarde weer te geven wanneer u op de keuzelijst klikt? Stel dat u de volgende twee kolommen met gegevens hebt in kolom A en kolom B. U wilt nu een keuzelijst maken met de waarden uit de kolom Naam, maar wanneer u een naam selecteert uit de gemaakte keuzelijst, moet de bijbehorende waarde uit de kolom Nummer worden weergegeven, zoals op de volgende schermafbeelding te zien is. In dit artikel wordt uitgelegd hoe u deze taak kunt uitvoeren.
Keuzelijst maken, maar een andere waarde weergeven in de cel van de keuzelijst
Keuzelijst maken, maar een andere waarde weergeven in de cel van de keuzelijst
Volg de volgende stappen om deze taak uit te voeren:
1. Maak een celnaam aan voor de celwaarden die u in de keuzelijst wilt gebruiken. Typ in dit voorbeeld „name dropdown” in het vak „Naam” en druk op Enter. Zie de schermafbeelding:
2. Selecteer vervolgens de cellen waarin u de keuzelijst wilt invoegen en klik op „Gegevens” > „Gegevensvalidatie” > „Gegevensvalidatie”. Zie de schermafbeelding:
3. Ga in het dialoogvenster „Gegevensvalidatie” naar het tabblad „Instellingen”, kies „Lijst” in de vervolgkeuzelijst „Toestaan” en klik vervolgens op de 
-knop om in het tekstvak „Bron” de lijst „Naam” te selecteren die u als keuzewaarden wilt gebruiken. Zie de schermafbeelding:
4. Nadat u de keuzelijst hebt ingevoegd, klikt u met de rechtermuisknop op het tabblad Huidig werkblad en kiest u „Code weergeven” in het contextmenu. Plak daarna de volgende code in de lege „Module” van het geopende venster „Microsoft Visual Basic for Applications”.
VBA-code: Andere waarde weergeven dan degene in de keuzelijst:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 5 Then
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub
Opmerking: In de bovenstaande code is het getal 5 in de regel „If Target.Column = [[PH_17]] Then” het kolomnummer waarin uw keuzelijst zich bevindt. De term „dropdown” in „selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range(„dropdown"), [[PH_16]], False)” verwijst naar de celnaam die u in stap 1 hebt gedefinieerd. U kunt deze waarden aanpassen aan uw eigen situatie.
5. Voer vervolgens de code **Opslaan en sluiten** uit. Zodra u nu een item selecteert in de keuzelijst, verschijnt direct de bijbehorende waarde in dezelfde cel. Zie de schermafbeelding:
Geavanceerde vervolgkeuzelijst van Kutools
„Kutools voor Excel” tilt de keuzelijst naar een hoger niveau met de „Geavanceerde keuzelijst”-functie en biedt krachtige aanpassingsmogelijkheden die verder reiken dan de standaardfunctionaliteit van Excel. Met deze tool kunt u het volgende maken:
- Keuzelijst met meerdere selecties maken
- Keuzelijst met selectievakjes
- Maak vervolgkeuzelijst doorzoekbaar, automatisch pop-up
Kutools voor Excel biedt meer dan 300 geavanceerde functies om complexe taken te vereenvoudigen en uw creativiteit en efficiëntie naar een hoger niveau te tillen. Kutools integreert nu AI om gegevensverwerking intelligenter en volledig geautomatiseerd te maken.
Demo: Keuzelijst maken, maar Verschillende waarde weergeven in Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins