Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe selecteer ik meerdere items uit de vervolgkeuzelijst in een cel in Excel?

De vervolgkeuzelijst wordt vaak gebruikt in het dagelijkse werk van Excel. Standaard kan slechts één item worden geselecteerd in een vervolgkeuzelijst. Maar in sommige gevallen moet u mogelijk meerdere items uit de vervolgkeuzelijst selecteren in één enkele cel zoals hieronder wordt getoond. Hoe kun je het in Excel aan?

doc selecteer meerdere items uit de vervolgkeuzelijst 1 doc pijl rechts doc selecteer meerdere items uit de vervolgkeuzelijst 2

Selecteer meerdere items uit de vervolgkeuzelijst in een cel

Gemakkelijk kolommen of rijen combineren zonder gegevens te verliezen in Excel

Stel dat u werkt met een werkblad dat meerdere dubbele records bevat, en nu moet u de rijen combineren / samenvoegen op basis van dezelfde waarde en een aantal berekeningen uitvoeren, zoals som, gemiddelde, telling van de dubbele rijen. Hiermee Geavanceerd Combineer rijen of Kutools for Excel, kunt u snel dezelfde waarden / dezelfde gegevens of dubbele rijen combineren in de juiste cellen. Klik voor gratis proefperiode van 60 dagen!
doc geavanceerde combineer rijen
Kutools voor Excel: met meer dan 200 handige Excel-invoegtoepassingen, gratis om zonder beperkingen in 60-dagen te proberen.

Selecteer meerdere items uit de vervolgkeuzelijst in een cel


Hier zijn enkele VBA's die u een plezier doen bij het oplossen van deze taak.

Selecteer dubbele items uit de vervolgkeuzelijst in een cel

1. Nadat u een vervolgkeuzelijst hebt gemaakt, klikt u met de rechtermuisknop op de bladtab om te selecteren Bekijk code vanuit het contextmenu.
doc selecteer meerdere items uit de vervolgkeuzelijst 3

2. Dan in de Microsoft Visual Basic voor toepassingen venster, kopieer en plak onderstaande code in het lege script.

VBA: Selecteer meerdere items in de vervolgkeuzelijst in een cel

Particulier Subwerkblad_Wijzigen (ByVal-doel als bereik) 'UpdatebyExtendoffice20180510 Dim xRgVal As Bereik Dim xStrNew As String On Error Resume Next Set xRgVal = Cells.SpecialCells (xlCellTypeAllValidation) If (Target.Count> 1) Of (xRgVal Is Nothing) Then Exit Sub If Snijden (doel, xRgVal) Is niets dan afsluiten Sub Application.EnableEvents = False xStrNew = Target.Value Application.Undo xStrNew = xStrNew & "" & Target.Value Target.Value = xStrNew Application.EnableEvents = True End Sub

doc selecteer meerdere items uit de vervolgkeuzelijst 4

3. Sla de code op en sluit het venster om terug te gaan naar de vervolgkeuzelijst. Nu kunt u meerdere items selecteren in de vervolgkeuzelijst.

Opmerking:

1. Met de VBA worden de items gescheiden door spaties, die u kunt wijzigen xStrNew = xStrNieuw & "" & Target.Value aan anderen om het scheidingsteken te veranderen zoals u nodig hebt. Bijvoorbeeld, xStrNew = xStrNew & "," & Target.Value zal de items scheiden met komma's.

2. Deze VBA-code werkt voor alle vervolgkeuzelijsten in het blad.

Selecteer meerdere items uit de vervolgkeuzelijst naar een cel zonder herhaling

Als u alleen unieke items uit de vervolgkeuzelijst wilt selecteren in een cel, kunt u de bovenstaande stappen herhalen en de onderstaande code gebruiken.

VBA: Selecteer meerdere items uit de vervolgkeuzelijst naar een cel zonder herhaling

Particulier Subwerkblad_Wijzigen (ByVal-doel als bereik) 'Bijwerken door Extendkantoor20180510 Dim I als geheel dimmen xRgVal als bereik Dim xStrNew als string Dim xStrOld als string Dim xFlag als Boolean Dim xArr On Error Resume Next Set xRgVal = Cells.SpecialCells (xlCellTypeAllValidation) If (Target. Tel> 1) Of (xRgVal is niets) Then Exit Sub If Intersect (Target, xRgVal) Is Nothing Then Exit Sub Application.EnableEvents = False xFlag = True xStrNew = "" & Target.Value & "" Application.Undo xStrOld = Target .Waarde Als InStr (1, xStrOld, xStrNew) = 0 Dan is xStrNew = xStrNew & xStrOld & "" Anders xStrNew = xStrOld End If Target.Value = xStrNew Application.EnableEvents = Echte eind Sub


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John · 1 months ago
    How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
  • To post as a guest, your comment is unpublished.
    Madhu · 2 months ago
    I used this "Select multiple items from drop down list to a cell without repeat"
    this is what happened
    1. Multiple selections happen without problems.
    2. The issue is when i try to edit and remove an option. There is no way for me to remove an option. it keeps multiplying.
  • To post as a guest, your comment is unpublished.
    debadeep · 3 months ago
    After adding,the data from dropdown,delete doesnt work.
    • To post as a guest, your comment is unpublished.
      Susan Lynn · 3 months ago
      I found the same issue. I think I found a way to overcome it. At the bottom of the code you'll see the code "xStrNew = xStrOld". Instead, make it say xStrNew = " "

      It works for me.