Wie erstelle ich eine Dropdown-Liste mit mehreren Auswahlen oder Werten in Excel?

Standardmäßig können Sie nur ein Element in einer Datenüberprüfungs-Dropdown-Liste in Excel auswählen. Wie können Sie mehrere Auswahlen in der Dropdown-Liste treffen, wie unten gezeigt? Die Methoden in diesem Artikel können Ihnen helfen, das Problem zu lösen.

Erstellen Sie eine Dropdown-Liste mit Mehrfachauswahl mit VBA-Code

Dieser Abschnitt enthält zwei VBA-Codes, die Ihnen helfen sollen, mehrere Auswahlen in Dropdown-Listen in einem Arbeitsblatt vorzunehmen. Die beiden VBA-Codes können Folgendes erreichen:

Sie können einen der folgenden VBA-Codes anwenden, um eine Mehrfachauswahl in einer Dropdown-Liste in einem Arbeitsblatt in Excel vorzunehmen. Bitte gehen Sie wie folgt vor.

1. Öffnen Sie das Arbeitsblatt, das die Dropdown-Listen zur Datenvalidierung enthält, aus denen Sie eine Mehrfachauswahl treffen möchten. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie aus Code anzeigen in dem Kontextmenü.

2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code in das Codefenster. Siehe Screenshot:

VBA-Code 1: Mehrfachauswahl in einer Dropdown-Liste ohne Duplikate zulassen

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Jetzt können Sie mehrere Elemente aus der Dropdown-Liste im aktuellen Arbeitsblatt auswählen.

Angenommen, Sie haben versehentlich ein Element ausgewählt und müssen es entfernen, ohne die gesamte Zelle zu löschen und von vorne zu beginnen. Der folgende VBA-Code 2 kann Ihnen einen Gefallen tun.

VBA-Code 2: Mehrfachauswahl in einer Dropdown-Liste ohne Duplikate zulassen (vorhandene Elemente löschen, indem Sie sie erneut auswählen)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Anmerkungen:

Erstellen Sie einfach eine Dropdown-Liste mit mehreren Auswahlen mit einem erstaunlichen Werkzeug

Hier empfehlen wir die Mehrfachauswahl-Dropdown-Liste Merkmal von Kutools for Excel für dich. Mit dieser Funktion können Sie bei Bedarf problemlos mehrere Elemente aus der Dropdown-Liste in einem bestimmten Bereich, einem aktuellen Arbeitsblatt, einer aktuellen Arbeitsmappe oder allen geöffneten Arbeitsmappen auswählen.

1 Klicken Kutoolen > Dropdown-Liste > Mehrfachauswahl-Dropdown-Liste > Einstellungen. Screenshot:

2. In dem Mehrfachauswahl Dropdown-Listeneinstellungen Dialogfeld, bitte wie folgt konfigurieren.

• 2.1) Geben Sie den Anwendungsbereich in der an Gelten Sektion. In diesem Fall wähle ich Aktuelles Arbeitsblatt von dem Spezifizierter Umfang Dropdown-Liste;
• 2.2) In der Textrichtung Wählen Sie im Abschnitt eine Textrichtung aus, die Ihren Anforderungen entspricht.
• 2.3) In der Separator Geben Sie in das Feld ein Trennzeichen ein, mit dem Sie die mehreren Werte trennen.
• 2.4) Überprüfen Sie die Fügen Sie keine Duplikate hinzu Box in der Optionen Abschnitt, wenn Sie keine Duplikate in Dropdown-Listenzellen erstellen möchten;
• 2.5) Klicken Sie auf OK Taste. Siehe Screenshot:

3. Bitte klicken Sie Kutoolen > Dropdown-Liste > Mehrfachauswahl-Dropdown-Liste um die Funktion zu aktivieren.

Jetzt können Sie mehrere Elemente aus der Dropdown-Liste im aktuellen Arbeitsblatt oder einem beliebigen Bereich auswählen, den Sie in Schritt 2 angegeben haben.

In Verbindung stehende Artikel:

---

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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!

Lesen Sie mehr... Kostenfreier Download... Kauf...