Hoe selecteert u meerdere items uit een keuzelijst in één Excel-cel?
Gegevens beheren in Excel betekent vaak dat u waarden selecteert uit keuzelijsten. Maar wat als u meerdere items tegelijk wilt kiezen en deze in één cel wilt weergeven? Hoewel Excel deze functionaliteit standaard niet ondersteunt, neemt deze handleiding u stap voor stap mee door de beste technieken om meervoudige selectie in keuzelijsten in Excel mogelijk te maken.
 |  |  |
Meerdere items uit een keuzelijst selecteren met VBA-code
Meerdere items eenvoudig selecteren uit een keuzelijst met Kutools voor Excel
Meerdere items uit een keuzelijst selecteren met VBA-code
Hier zijn enkele VBA-codes die u ondersteunen bij deze taak.
Dubbele items selecteren uit een keuzelijst in een cel
1. Nadat u een keuzelijst hebt gemaakt, klikt u met de rechtermuisknop op het bladtabblad en selecteert u ‘Code weergeven’ in het contextmenu.
2. Plak vervolgens in het venster „Microsoft Visual Basic for Applications” onderstaande code in het lege scriptvenster.
VBA: Meerdere items uit een keuzelijst in een cel selecteren
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
Dim xRgVal As Range
Dim xStrNew As String
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
xStrNew = Target.Value
Application.Undo
If xStrNew = Target.Value Then
Else
xStrNew = xStrNew & " " & Target.Value
Target.Value = xStrNew
End If
Application.EnableEvents = True
End Sub3. Sla de code op en sluit dit venster om terug te keren naar de keuzelijst. U kunt nu meerdere items selecteren uit de lijst.
Opmerking:
1. De VBA-code scheidt de items standaard met een spatie. U kunt de regel „xStrNew = xStrNew & „ " & Target.Value” aanpassen om een ander scheidingsteken te gebruiken — bijvoorbeeld „xStrNew = xStrNew & "," & Target.Value” voor komma’s.
2. Deze VBA-code werkt voor alle keuzelijsten op het werkblad.
Meerdere items uit een keuzelijst naar een cel selecteren zonder herhaling
Als u alleen unieke items uit de keuzelijst in een cel wilt plaatsen, herhaalt u bovenstaande stappen en gebruikt u de onderstaande code.
VBA: Meerdere items uit een keuzelijst naar een cel selecteren zonder herhaling
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
Dim I As Integer
Dim xRgVal As Range
Dim xStrNew As String
Dim xStrOld As String
Dim xFlag As Boolean
Dim xArr
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
xFlag = True
xStrNew = " " & Target.Value & " "
Application.Undo
xStrOld = Target.Value
If InStr(1, xStrOld, xStrNew) = 0 Then
xStrNew = xStrNew & xStrOld & " "
Else
xStrNew = xStrOld
End If
Target.Value = xStrNew
Application.EnableEvents = True
End Sub
Geen van de bovenstaande VBA-codes ondersteunt het verwijderen van specifieke delen van de celinhoud; ze wissen alleen alle items uit de cel.
Meerdere items eenvoudig selecteren uit een keuzelijst met Kutools voor Excel
Vereenvoudig uw Excel-werkstroom met Kutools voor Excel! Met de functie ‘Keuzelijst met meerdere selecties maken’ selecteert u eenvoudig meerdere items uit een keuzelijst, die automatisch in één cel worden weergegeven — zonder ingewikkelde VBA-code. Zeg vaarwel tegen tijdrovende handmatige processen en ontdek een slimmere, efficiëntere manier om keuzelijsten in Excel te beheren.
1. Klik op „Kutools” > „Keuzelijst” > „Geavanceerde keuzelijst inschakelen”. Selecteer daarna opnieuw „Keuzelijst met meerdere selecties maken” in het menu „Keuzelijst”. Zie de schermafbeeldingen:
 |  |  |
2. Configureer in het dialoogvenster „Keuzelijst met meerdere selecties maken” de volgende instellingen.
- 2,1) Selecteer de cellen met de keuzelijst;
- 2,2) Voer in het vak „Scheidingsteken” een scheidingsteken in dat u wilt gebruiken om de meerdere items van elkaar te scheiden;
- 2,3) Schakel, indien gewenst, de optie „Zoekfunctie inschakelen” in. (Als u deze optie inschakelt, kunt u later zoeken in de keuzelijst.)
- 2,4) Klik op de knop „OK”.
Zodra u op de cel met keuzelijst klikt, verschijnt een keuzelijst. Klik op de ➕-knop om items aan de cel toe te voegen en op de ➖-knop om items naar wens te verwijderen. Zie de demo hieronder:
Het selecteren van meerdere items uit een keuzelijst in Excel hoeft helemaal geen uitdaging te zijn! Met de stapsgewijze methoden in deze handleiding schakelt u in een handomdraai meervoudige selectie in via VBA-code of vereenvoudigt u het proces met een handige tool zoals Kutools voor Excel. Wilt u nog meer Excel-tips en -trucs ontdekken?Onze website biedt duizenden tutorials.
Gerelateerde artikelen:
Keuzelijst invoegen in Excel
Verhoog de efficiëntie bij het invoeren van gegevens in werkbladen—voor uzelf of anderen—met keuzelijsten. Kies eenvoudig een optie uit de lijst in plaats van de waarde handmatig te typen.
Keuzelijst met meervoudige selectie
Standaard kunt u in Excel maar één item tegelijk selecteren uit een keuzelijst met gegevensvalidatie. Hoe kunt u meerdere opties kiezen uit die keuzelijst, zoals in de afbeelding hieronder? De methoden in dit artikel helpen u dit probleem op te lossen.
Automatisch aanvullen bij typen in een Excel-keuzelijst
Hebt u een gegevensvalidatie-keuzelijst met veel waarden? Dan moet u lang scrollen om het juiste item te vinden of het hele woord direct in het invoervak typen. Stel dat er een methode was die automatisch aanvult zodra u de eerste letter typt—dan wordt alles ineens een stuk eenvoudiger!
Een doorzoekbare keuzelijst maken in Excel
Als uw keuzelijst talloze waarden bevat, is het lastig om snel het juiste item te vinden. Eerder beschreven we al een methode voor automatisch aanvullen zodra u de eerste letter typt. Naast automatisch aanvullen kunt u de keuzelijst ook doorzoekbaar maken, zodat u nog efficiënter de juiste waarde vindt.
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