Note: The other languages of the website are Google-translated. Back to English

 Hoe maak je een vervolgkeuzelijst, maar toon je verschillende waarden in Excel?

In het Excel-werkblad kunnen we snel een vervolgkeuzelijst maken met de functie Gegevensvalidatie, maar heb je ooit geprobeerd een andere waarde weer te geven wanneer je op de vervolgkeuzelijst klikt? Ik heb bijvoorbeeld de volgende twee kolomgegevens in kolom A en kolom B, nu moet ik een vervolgkeuzelijst maken met de waarden in de kolom Naam, maar als ik de naam selecteer in de gemaakte vervolgkeuzelijst, moet ik de bijbehorende waarde in de kolom Getal wordt weergegeven als in het volgende screenshot. Dit artikel introduceert de details om deze taak op te lossen.

doc dropdown verschillende waarden 1

Maak een vervolgkeuzelijst maar toon een andere waarde in de vervolgkeuzelijstcel


Maak een vervolgkeuzelijst maar toon een andere waarde in de vervolgkeuzelijstcel

Om deze taak te voltooien, voert u de volgende stap voor stap uit:

1. Maak een bereiknaam voor de celwaarden die u wilt gebruiken in de vervolgkeuzelijst, in dit voorbeeld voer ik de naam in de vervolgkeuzelijst in Naam Boxen druk vervolgens op Enter key, zie screenshot:

doc dropdown verschillende waarden 2

2. Selecteer vervolgens de cellen waarin u de vervolgkeuzelijst wilt invoegen en klik op Data > Data Validation > Data Validation, zie screenshot:

doc dropdown verschillende waarden 3

3. In de Data Validation dialoogvenster onder het Instellingen tabblad, kies Lijst van de Allow vervolgkeuzelijst en klik vervolgens op doc dropdown verschillende waarden 5 om de lijst met namen te selecteren die u wilt gebruiken als vervolgkeuzelijsten in het bron tekstvak. Zie screenshot:

doc dropdown verschillende waarden 4

4. Na het invoegen van de vervolgkeuzelijst, klikt u met de rechtermuisknop op de actieve bladtab en selecteert u Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak de volgende code in de lege module:

VBA-code: geef een andere waarde weer uit de vervolgkeuzelijst:

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

doc dropdown verschillende waarden 6

Opmerking:: In de bovenstaande code, het nummer 5 binnen If Target.Column = 5 Then script is het kolomnummer dat in uw vervolgkeuzelijst staat, de "laten vallen" in deze selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("dropdown"), 2, False) code is de bereiknaam die u in stap 1 heeft aangemaakt. U kunt deze wijzigen naar uw gewenste.

5. Sla deze code vervolgens op en sluit deze, nu, wanneer u een item uit de vervolgkeuzelijst selecteert, wordt een relatief andere waarde weergegeven in dezelfde cel, zie screenshot:

doc dropdown verschillende waarden 7


Demo: maak een vervolgkeuzelijst maar toon verschillende waarden in Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

 


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant

 

Comments (40)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Kan dit op verschillende bladen? Ik bedoel, op blad1 de vervolgkeuzelijst en op blad2 het bereik. Hoe moet ik dit coderen? Bij voorbaat dank. Tine.
Deze opmerking is gemaakt door de moderator op de site
Wat als ik meer dan één vervolgkeuzelijst wil doen die verschillende waarden op hetzelfde werkblad retourneert? Kun je me een voorbeeld laten zien van de codering voor twee of meer?
Deze opmerking is gemaakt door de moderator op de site
Lee Ann

Als je gewoon de code van de If naar de EndIf kopieert en plakt en de kolom # en Tabel wijzigt, zou het moeten werken:


Sub Worksheet_Change (ByVal-doel als bereik)
geselecteerdeNa = Doel.Waarde
If Target.Column = 5 Then
selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("dropdown"), 2, False)
Indien Niet IsError(selectedNum) Dan
Doelwaarde = geselecteerdGetal
End If
End If
If Target.Column = 9 Then
SelectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown1"), 2, False)
Indien Niet IsError(selectedNum) Dan
Doelwaarde = geselecteerdGetal
End If
End If
End Sub

Ik zeg niet dat dit de juiste manier is, maar het werkte op mijn testversie. Ik gebruik Excel 2013
Deze opmerking is gemaakt door de moderator op de site
Heb het net geprobeerd. En het werkte!! Dank u.
Deze opmerking is gemaakt door de moderator op de site
Hallo, help, het werkt niet, kun je hier alle code voor 2 kolommen plakken?
Deze opmerking is gemaakt door de moderator op de site
Niets frustrerender dan een gedetailleerde vraag in te typen om het weggeblazen te krijgen. Als u de verkeerde 6-cijferige code typt om uw mens te verifiëren, wordt het geposte bericht gewist. Wil dat misschien oplossen. Nu is mijn opmerking dit: ik heb geprobeerd precies hetzelfde te doen wat je in de video en schriftelijke instructies hebt laten zien en het enige dat ik krijg is wanneer ik een naam in de lijst selecteer, de naam is en niet het nummer. Hoe werkt dit ook, aangezien gegevensvalidatie de keuzes zou moeten beperken tot alleen wat in de lijst staat. Hoe bedriegt dit het systeem? In het verleden moest ik altijd vba-code toewijzen aan een knop of een snelkoppeling, hoe wordt deze code geactiveerd? Hoe test je of het werkt?
Deze opmerking is gemaakt door de moderator op de site
Hoe werkt de formule als u de gegevens op een apart blad in de werkmap wilt toevoegen? Ik wil de gegevens verbergen.
Deze opmerking is gemaakt door de moderator op de site
Verander hier bro!
SelectedNum = Application.VLookup(selectedNa, Worksheets("YourSheetName").Range("dropdown"), 2, False)
Deze opmerking is gemaakt door de moderator op de site
"YourSheetName" verwijst naar het blad dat het gegevensbereik bevat of het blad waar ik de dropdwon-lijst wil gebruiken?
Deze opmerking is gemaakt door de moderator op de site
Hoe werkt de formule als u de gegevens op een apart blad/tabblad in de werkmap wilt weergeven?
Deze opmerking is gemaakt door de moderator op de site
dit werkt niet in de huidige versies van Excel - verouderd. Gegevensvalidatie verschijnt dan niet meer in vba omdat een Excel-object al meerdere keren heeft geprobeerd en het verschijnt niet.
Deze opmerking is gemaakt door de moderator op de site
In dit voorbeeld, wat als u wilt dat het kijkt naar een waarde in elk van de cellen in 5, maar de waarde in de aangrenzende cel in 6 plaatst
Deze opmerking is gemaakt door de moderator op de site
Hoe zou de code moeten veranderen als ik een verwijzing/link in E1 naar de bron van de vervolgkeuzelijst wilde maken op basis van de geselecteerde waarde?
Het voordeel zou zijn dat in het geval van een wijziging in de dropdown-bron (bijv. "Henrik" => "Hendrik" de wijziging automatisch wordt weergegeven in E1.
Deze opmerking is gemaakt door de moderator op de site
Weet iemand hoe ik dit werkend kan krijgen in google sheets?
Deze opmerking is gemaakt door de moderator op de site
ik wil meerdere opties selecteren in de vervolgkeuzelijst.
resultaat als volgt: AA1001,BB1002
is het mogelijk?
Deze opmerking is gemaakt door de moderator op de site
Heb je een oplossing gevonden?
Deze opmerking is gemaakt door de moderator op de site
Wat is er aan de hand? Gracia's.
Deze opmerking is gemaakt door de moderator op de site
cómo buscar un moed hacia la izquierda
Deze opmerking is gemaakt door de moderator op de site
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
geselecteerdeNa = Doel.Waarde
If Target.Column = 5 Then

Lakens ("Nombre de la hoja en donde esta la lista").Activeren
selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("dropdown"), 2, False)
Lakens ("Nombre de la hoja en donde estas trabajando").Activeren
Indien Niet IsError(selectedNum) Dan
Doelwaarde = geselecteerdGetal
End If
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Iemand weet hoe de waarde van rechts naar links kan worden gezocht
Deze opmerking is gemaakt door de moderator op de site
Ik moet dezelfde vervolgkeuzelijst in meer dan één kolom gebruiken, wat zou de code zijn?
Deze opmerking is gemaakt door de moderator op de site
Hi!
Dit is echt handig! Dank u!
Ik loop in de situatie waarin de cel niet automatisch wordt bijgewerkt of bij gebruik van de vernieuwingsfunctie. Ik moet in een andere cel klikken en vervolgens terug klikken op de cel in het werk om de waarde weer te geven.
Ik werk momenteel met Office Standard 2019. Weet iemand of dit probleem te maken heeft met de versie van Excel die ik gebruik?
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De code werkte prima als we de lijst definiëren en de vervolgkeuzelijst in hetzelfde blad maken.
Maar hoe kunnen we ervoor zorgen dat de lijst met waarden en codes op het ene blad wordt gedefinieerd en de vervolgkeuzelijst op een ander blad?
Dezelfde code werkt niet zoals deze wordt weergegeven en fout in deze regel ("selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range ("dropdown"), 2, False)").
Ik heb ook een vereiste, zoals of ik meerdere lijsten heb gedefinieerd in één blad met ID en namen en meerdere vervolgkeuzelijsten in een ander blad waarbij een vervolgkeuzelijst afhankelijk is van de geselecteerde waarde in een andere vervolgkeuzelijst.

Ik hoop dat je mijn vraag hebt begrepen.

Help me alstublieft bij het oplossen van dit probleem.
Deze opmerking is gemaakt door de moderator op de site
Dit heeft me enorm geholpen, bedankt. Omdat mijn tabel op een ander blad stond dan mijn keuzelijst, heb ik een paar regels code toegevoegd om dat te bereiken en ook om te voorkomen dat het scherm knippert.

Application.ScreenUpdating = False
Spreadsheets ("BladMetTableOnIt").Activeren

Spreadsheets ("BladMetDropDownListOnIt").Activeren
Application.ScreenUpdating = True
Deze opmerking is gemaakt door de moderator op de site
waar heb je deze codes precies toegevoegd?
Deze opmerking is gemaakt door de moderator op de site
Ik krijg een compileerfout: syntaxisfout op de regel "If Trarget.Column = 6 Then" wanneer ik de code probeer te gebruiken? Enig idee waarom?
Deze opmerking is gemaakt door de moderator op de site
Het werkt, maar wanneer u een bestand afsluit en opnieuw opent, werkt het niet... het kan niet worden opgeslagen als .xls alleen als .xlsm. Is daar een oplossing voor? Bedankt
Deze opmerking is gemaakt door de moderator op de site
Hallo, Marko, Na het kopiëren en plakken van de code in uw werkmap, wanneer u het bestand opslaat, moet u het opslaan als een Excel Macro-enabled werkmapformaat, probeer het alstublieft, bedankt!
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties