Bis jetzt haben wir uns wie man Dropdown-Listen erstellt Heute werde ich zeigen, wie man in Excel Erstellen einer Dropdown-Liste mit mehreren Auswahlmöglichkeiten in Excel .

Download Arbeitsbuch Praxis

Sie können das Übungsheft hier herunterladen.

Schritt-für-Schritt-Anleitungen zum Erstellen von Dropdown-Listen in Excel mit Mehrfachauswahlen

Hier haben wir einen Datensatz mit einer Spalte Buch Name Unser heutiges Ziel ist es, auf der Grundlage dieses Datensatzes eine Dropdown-Liste zu erstellen, die mehrere Auswahlmöglichkeiten bietet. Im folgenden Abschnitt werde ich Schritt für Schritt die Vorgehensweise erläutern.

SCHRITT 1: Erstellen einer Drop-Down-Liste mithilfe der Datenüberprüfung

Um eine Dropdown-Liste mit mehreren Auswahlmöglichkeiten zu erstellen, müssen wir zunächst eine Dropdown-Liste erstellen. Gehen wir die Prozeduren durch.

• Markieren Sie zunächst die Zelle, in der Sie die Dropdown-Liste erstellen möchten. Ich habe ausgewählt Zelle D5 .

• Gehen Sie dann zum Daten und wählen Sie Validierung von Daten von der Schleife.

• Dann, vom Validierung von Daten Fenster, wählen Sie Liste in Erlauben Sie und schreiben Sie die Bereichszellen, deren Daten Sie der Liste hinzufügen möchten, in den Abschnitt Quelle Feld.
• Alternativ können Sie auch auf den kleinen Pfeil nach oben im Feld Quelle und wählen Sie den Datenbereich aus dem Arbeitsblatt aus.

• Schließlich sehen wir eine Dropdown-Liste, die in Zelle D5 .

Ähnliche Lektüre:

• Erstellen einer Dropdown-Liste in Excel (unabhängig und abhängig)
• Mehrfachauswahl aus Dropdown-Liste in Excel (3 Wege)
• Erstellen einer abhängigen Dropdown-Liste in Excel
• Dropdown-Liste in mehreren Spalten in Excel erstellen (3 Wege)

SCHRITT 2: Aktivieren der Dropdown-Liste für die Mehrfachauswahl durch VBA-Code

Wir haben die Dropdown-Liste bereits erstellt. Nun ist es an der Zeit, die Dropdown-Liste für Mehrfachauswahlen vorzubereiten. Ich werde Folgendes verwenden 2 VBA Codes, die es ermöglichen, dass die Liste Mehrfachauswahlen zulässt, d. h. eine Wiederholung von Daten akzeptiert und eine Wiederholung von Daten nicht akzeptiert.

Fall 1: VBA-Code für Mehrfachauswahlen mit Wiederholungen

In diesem Abschnitt zeige ich, wie man eine Dropdown-Liste mit mehreren Auswahlmöglichkeiten erstellt, die eine Wiederholung von Daten enthält.

Lassen Sie uns die Verfahren durchgehen.

• Drücken Sie zunächst ALT + F11 zum Öffnen des VBA Fenster.
• Wählen Sie dann Projekt-Explorer . auch, doppelt - anklicken. auf dem Blatt, auf dem die Aufgabe erledigt werden soll.

• Gleichzeitig wird ein Code wird geöffnet.
• Schreiben Sie anschließend den folgenden Code in dieses Fenster.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" ThenTarget.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Kehren Sie schließlich zum Arbeitsblatt zurück, um mehrere Elemente in der Dropdown-Liste mit einer Wiederholung desselben Elements auswählen zu können.

Fall 2: VBA-Code für Mehrfachauswahl ohne Wiederholung

In diesem Abschnitt zeige ich, wie man eine Dropdown-Liste mit mehreren Auswahlmöglichkeiten erstellt, die keine Wiederholung von Daten erfordert.

Lassen Sie uns die Verfahren durchgehen.

• Drücken Sie zunächst ALT + F11 zum Öffnen des VBA Fenster.
• Wählen Sie dann Projekt-Explorer . auch, doppelt - anklicken. auf dem Blatt, auf dem die Aufgabe erledigt werden soll.

• Gleichzeitig wird ein Code Fenster erscheint.
• Geben Sie anschließend den folgenden Code in dieses Fenster ein.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue =Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Kehren Sie schließlich zum Arbeitsblatt zurück, um mehrere Elemente in der Dropdown-Liste auszuwählen, ohne dass sich das gleiche Element wiederholt.

Schlussfolgerung

Mit dieser Methode können Sie in Excel eine Dropdown-Liste mit mehreren Auswahlmöglichkeiten erstellen. Haben Sie Fragen? Dann schreiben Sie uns in den Kommentaren. Besuchen Sie unsere ExcelWIKI-Website für weitere Artikel über Excel .