Direkt zum Inhalt

Wie wähle ich mehrere Elemente aus der Dropdown-Liste in eine Zelle in Excel aus?

Die Dropdown-Liste wird häufig in der täglichen Excel-Arbeit verwendet. Standardmäßig kann nur ein Element in einer Dropdown-Liste ausgewählt werden. In einigen Fällen müssen Sie jedoch möglicherweise mehrere Elemente aus der Dropdown-Liste in einer einzelnen Zelle auswählen (siehe Abbildung unten). Wie können Sie in Excel damit umgehen?

doc Wählen Sie mehrere Elemente aus der Dropdown-Liste 1 aus doc Pfeil rechts doc Wählen Sie mehrere Elemente aus der Dropdown-Liste 2 aus

Wählen Sie mehrere Elemente aus der Dropdown-Liste in einer Zelle mit VBA aus

Wählen Sie einfach und schnell mehrere Elemente aus der Dropdown-Liste in einer Zelle aus


Wählen Sie mehrere Elemente aus der Dropdown-Liste in einer Zelle mit VBA aus

Hier sind einige VBA, die Ihnen bei der Lösung dieses Problems einen Gefallen tun können.

Wählen Sie doppelte Elemente aus der Dropdown-Liste in einer Zelle aus

1. Klicken Sie nach dem Erstellen einer Dropdown-Liste mit der rechten Maustaste auf die Registerkarte Blatt, um sie auszuwählen Code anzeigen in dem Kontextmenü.
doc Wählen Sie mehrere Elemente aus der Dropdown-Liste 3 aus

2. Dann in der Microsoft Visual Basic für Applikationen Fenster, kopieren Sie den folgenden Code und fügen Sie ihn in das leere Skript ein.

VBA: Wählen Sie mehrere Elemente aus der Dropdown-Liste in einer Zelle aus

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 Sub

3. Speichern Sie den Code und schließen Sie das Fenster, um zur Dropdown-Liste zurückzukehren. Jetzt können Sie mehrere Elemente aus der Dropdown-Liste auswählen.

Hinweis:

1. Mit dem VBA werden die Elemente nach Leerzeichen getrennt, die Sie ändern können xStrNew = xStrNew & "" & Zielwert an andere, um das Trennzeichen nach Bedarf zu ändern. Zum Beispiel, xStrNew = xStrNew & "," & Zielwert trennt die Elemente durch Kommas.

2. Dieser VBA-Code funktioniert für alle Dropdown-Listen im Blatt.

Wählen Sie mehrere Elemente aus der Dropdown-Liste in eine Zelle ohne Wiederholung aus

Wenn Sie nur eindeutige Elemente aus der Dropdown-Liste in eine Zelle auswählen möchten, können Sie die obigen Schritte wiederholen und den folgenden Code verwenden.

VBA: Wählen Sie mehrere Elemente ohne Wiederholung aus der Dropdown-Liste in eine Zelle aus

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

Beide oben genannten VBA-Codes unterstützen nicht das Löschen von Teilen des Zellinhalts, sondern nur das Löschen aller Elemente der Zelle.


Wählen Sie einfach und schnell mehrere Elemente aus der Dropdown-Liste in einer Zelle aus

In Excel gibt es außer VBA-Code keine anderen Möglichkeiten, mehrere Elemente aus der Dropdown-Liste in einer Zelle auszuwählen. Allerdings ist die Mehrfachauswahl-Dropdown-Liste Merkmal von Kutools for Excel kann diesen Job schnell und einfach mit Klicks erledigen.

Tipp: Bevor Sie dieses Tool anwenden, installieren Sie bitte zunächst Kutools für Excel. Gehen Sie jetzt zum kostenlosen Download.
Schritt 1: Wählen Sie Kutoolen > Dropdown-Liste > Mehrfachauswahl-Dropdown-Liste
Schritt 2: Legen Sie im Dialogfeld Mehrfachauswahl-Dropdown-Liste die Einstellungen fest
  1. Umfang festlegen;
  2. Geben Sie das Trennzeichen für Trennelemente in einer Zelle an;
  3. Bestimmen Sie die Textrichtung;
  4. Klicken Sie auf OK.
    doc mehrere Elemente aus Dropdown-Liste auswählen kte 1
Ergebnis:

Wählen Sie mehrere Elemente aus der Dropdown-Liste kutools

Note: Um die Funktion „Dropdown-Liste mit Mehrfachauswahl“ nutzen zu können, sollten Sie bitte zunächst Kutools für Excel installieren Klicken Sie zum Herunterladen und haben Sie jetzt eine kostenlose 30-Tage-Testversion.

Erstellen Sie einfach eine dynamische Dropdown-Liste mit zwei oder mehreren Ebenen in Excel

In Excel ist das Erstellen einer Dropdown-Liste mit zwei oder mehreren Ebenen komplex. Hier das Dynamische Dropdown-Liste Nutzen von Kutools for Excel kann dir einen Gefallen tun. Sie müssen nur die Daten wie im gezeigten Beispiel bestellen, dann den Datenbereich und den Ausgabebereich auswählen und dann dem Dienstprogramm überlassen.  Klicken Sie für 30 Tage kostenlose Testversion!
doc erweiterte Kombinationszeilen
 
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Como posso utilizar a função com a planilha bloqueada?
This comment was minimized by the moderator on the site
Hi, Macros, try below code, it supports to select multi items in drop down list in protected sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) 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 Sub

And also Kutools for Excel 26.1 and later versions supports this job in protected sheet.
This comment was minimized by the moderator on the site
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Ejemplo:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
COORDINAR
ANALIZAR Y RECOMENDAR

sí selecciono:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

me aparece
ANALIZAR Y RECOMENDAR, TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y RECOMENDAR.....
This comment was minimized by the moderator on the site
Hi, Gorgelys, Kutools's multi-select drop down list can help you. The items you selected will be in the order like you want.
This comment was minimized by the moderator on the site
the code works but won't let me delete can someone please post the new code.
This comment was minimized by the moderator on the site
bonjour,
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
comment faire ?
merci par avance
This comment was minimized by the moderator on the site
Hi, sorry for that. We will upgrade our feature next version to avoid this problem. Thank you for your feekback.
This comment was minimized by the moderator on the site
Merci bcp
Mais à quand la nouvelle version ?
This comment was minimized by the moderator on the site
Hi, we have updated this version for you, but this is a beta version, please download it from this: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
If there are any problems, welcome for your feedback.
This comment was minimized by the moderator on the site
Merci,
Je vais la télécharger et essayer.
Bonne journée
This comment was minimized by the moderator on the site
Hi, the new version is in planning, since next version will upgrade multiple features, it may take somewhat time.
This comment was minimized by the moderator on the site
Hi! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
This comment was minimized by the moderator on the site
Hi, Vero, Kutools for Excel's Multi-select Drop-down List feature suports selecting multiple items from drop down list in the whole worksheet or across workbook, just specify the Specified Scope in the Multi-select Drop-down List Settings dialog.
This comment was minimized by the moderator on the site
How can I do that for the fist formula you provided :) Thanks in advanced!
This comment was minimized by the moderator on the site
Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?
This comment was minimized by the moderator on the site
I am also finding that after selecting multiple items using the updated VBA code, I still cannot clear the cell, it just keeps multiplying.
Does anyone have a solution for this yet?
This comment was minimized by the moderator on the site
Hi, Rusty, the code I have updated for making it more stable. But because the cell is in data validation, blank is out of data validation, the code cannot solve this problem.
This comment was minimized by the moderator on the site
the code works but carries over across all cells and multiplies in the cells and wont allow delete can you assist?
This comment was minimized by the moderator on the site
If I create a sheet with dropdown list using checkboxes, is there a way to share this workbook with this checkboxes feature?
This comment was minimized by the moderator on the site
How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations