Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mehrfachauswahl bei Dropdown Liste

Mehrfachauswahl bei Dropdown Liste
22.02.2018 13:51:03
Thomas
Hallo zusammen,
da sich dieses Problem bei einem anderen Thema von mir herauskristallisiert hat und deshalb etwas untergegangen ist, poste ich das hier nochmal.
Ich würde gerne bei einem Dropdown Menü in einer Spalte eine Mehrfachauswahl ermöglichen. Die Informationen für das Dropdown Menü sind auf einem separaten Tabellenblatt und dann per "Namen definieren" und "Datenüberprüfung" in die entsprechende Spalte eingefügt.
Mit Hilfe einer Anleitung von einer anderen Seite habe ich folgenden Code generiert.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim wertold As String
Dim wertnew As String
On Error GoTo Errorhandling
If Not Application.Intersect(Target, Range("H11:H50")) Is Nothing Then
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo Errorhandling
If Not Application.Intersect(Target, rngDV) Is Nothing Then
Application.EnableEvents = False
wertnew = Target.Value
Application.Undo
wertold = Target.Value
Target.Value = wertnew
If wertold  "" Then
If wertnew  "" Then
Target.Value = wertold & ", " & wertnew
End If
End If
End If
Application.EnableEvents = True
End If
Errorhandling:
Application.EnableEvents = True
End Sub

Leider funktioniert das nicht so wirklich.
Weiß jemand woran das liegen könnte, bzw. was ich falsch gemacht habe?
Danke & VG
Thomas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrfachauswahl bei Dropdown Liste
22.02.2018 18:25:40
onur
Hi,
1)Ich weiss nicht, was dieser Code mit einer Combobox zu tun hat.
2)"und dann per "Namen definieren" und "Datenüberprüfung" in die entsprechende Spalte eingefügt" - Was denn jetzt - Combobox oder Datenüberprüfung?
3)Datenüberprüfung und Combobbox sind 2 verschiedene paar Schuhe.
4)Multiselect bei Comboboxen kannst du einfach in deren Eigenschaften einstellen, bei Datenüberprüfung gibt es sowas nicht (wie denn auch - mehrere Werte in eine Zelle?).
Anzeige
AW: Mehrfachauswahl bei Dropdown Liste
27.02.2018 09:52:43
Thomas
Hi,
1) Von einer Combobox war auch nie die Rede
2) Es geht um eine Datenüberprüfung. Aber anstatt die Daten die zur Auswahl stehen direkt in das Feld der Datenüberprüfung einzutragen, habe ich diese in einem separaten Tabellenblatt angelegt (so können die Auswahlmöglichkeiten leichter angepasst werden).
Anschließend habe ich den entsprechenden Auswahlmöglichkeiten einen Namen zugewiesen (per Option "Namen definieren") und diesen Namen dann als Quelle für die Listenauswahl bei der Datenüberprüfung eingetragen.
3) schon klar
4) Comboboxen möchte ich ja nicht haben. Und bei der Datenüberprüfung geht die Mehrfachauswahl sehr wohl. Die verschieden ausgewählten Daten werden dann mit Komma getrennt in die Zelle eingetragen (sofern der Wert nicht vorher schon drin stand).
Genau dafür ist ja der Code gedacht, nur dass er leider nicht so funktioniert wie er soll.
Gruß
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Mehrfachauswahl bei Dropdown-Listen in Excel


Schritt-für-Schritt-Anleitung

Um eine Dropdown-Liste mit Mehrfachauswahl in Excel zu erstellen, befolge diese Schritte:

  1. Datenblatt vorbereiten: Erstelle eine Liste von Werten, die in der Dropdown-Liste angezeigt werden sollen. Diese sollten in einem separaten Tabellenblatt stehen.

  2. Namen definieren: Markiere die Liste und gehe auf Formeln > Namen definieren, um der Liste einen Namen zu geben (z.B. MeineAuswahl).

  3. Datenüberprüfung aktivieren:

    • Selektiere die Zelle, in der die Dropdown-Liste erscheinen soll.
    • Gehe zu Daten > Datenüberprüfung.
    • Wähle im Dropdown-Menü Liste aus und gebe als Quelle =MeineAuswahl ein.
  4. VBA-Code hinzufügen:

    • Drücke Alt + F11, um den VBA-Editor zu öffnen.
    • Füge im entsprechenden Arbeitsblatt den folgenden Code ein:
    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim rngDV As Range
       Dim wertold As String
       Dim wertnew As String
       On Error GoTo Errorhandling
       If Not Application.Intersect(Target, Range("H11:H50")) Is Nothing Then
           Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
           If rngDV Is Nothing Then GoTo Errorhandling
           If Not Application.Intersect(Target, rngDV) Is Nothing Then
               Application.EnableEvents = False
               wertnew = Target.Value
               Application.Undo
               wertold = Target.Value
               Target.Value = wertnew
               If wertold <> "" Then
                   If wertnew <> "" Then
                       Target.Value = wertold & ", " & wertnew
                   End If
               End If
           End If
           Application.EnableEvents = True
       End If
    Errorhandling:
       Application.EnableEvents = True
    End Sub
  5. Testen: Schließe den VBA-Editor und teste die Dropdown-Liste in der Excel-Tabelle, um sicherzustellen, dass die Mehrfachauswahl funktioniert.


Häufige Fehler und Lösungen

  • Dropdown funktioniert nicht: Vergewissere dich, dass die Datenüberprüfung korrekt eingerichtet ist und die Liste im Namen definiert wurde.
  • Mehrfachauswahl wird nicht gespeichert: Prüfe, ob der VBA-Code richtig eingefügt wurde und die Zielzelle im Code korrekt angegeben ist.
  • Dropdown bietet keine Werte: Stelle sicher, dass die Zellen mit den Werten korrekt referenziert sind und die Liste nicht leer ist.

Alternative Methoden

Wenn Du eine Dropdown-Liste mit Mehrfachauswahl ohne VBA erstellen möchtest, kannst Du auch ein Listenfeld für Mehrfachauswahl verwenden. Hierzu:

  1. Gehe zu Entwicklertools > Einfügen und wähle Listenfeld (Formularsteuerelement).
  2. Platziere das Listenfeld auf dem Arbeitsblatt und verlinke es mit der Datenquelle.
  3. Du kannst die Auswahlmöglichkeiten im Listenfeld durch Halten der Strg-Taste gleichzeitig auswählen.

Praktische Beispiele

  • Beispiel 1: Du hast eine Liste von Obstsorten und möchtest in einer Zelle mehrere Früchte auswählen, z.B. Äpfel, Bananen.

  • Beispiel 2: Du möchtest mehrere Projekte in einer Zelle festhalten, wie Projekt A, Projekt B, Projekt C, um den Überblick zu behalten.

Beide Beispiele demonstrieren, wie die Mehrfachauswahl in einer Zelle effektiv genutzt werden kann.


Tipps für Profis

  • Nutze Datenüberprüfung in Kombination mit VBA, um die Flexibilität Deiner Dropdown-Listen zu erhöhen.
  • Experimentiere mit Checkboxen in einer Dropdown-Liste für eine benutzerfreundliche Auswahl.
  • Denke daran, eine Fehlerbehandlung im VBA-Code zu implementieren, um unerwartete Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich eine Dropdown-Liste mit mehreren Werten in einer Zelle erstellen?
Verwende den oben beschriebenen VBA-Code, um die Mehrfachauswahl zu ermöglichen.

2. Ist es möglich, die Dropdown-Liste ohne VBA zu erstellen?
Ja, Du kannst ein Listenfeld für Mehrfachauswahl verwenden, jedoch ist die Benutzeroberfläche etwas weniger intuitiv.

3. Funktioniert dies auch in Excel für Mac?
Die grundlegenden Schritte sind ähnlich, jedoch kann der VBA-Editor in Excel für Mac leicht variieren.

4. Kann ich die Dropdown-Liste auch filtern?
Ja, Du kannst zusätzliche Filteroptionen in den VBA-Code integrieren, um die Auswahlmöglichkeiten basierend auf vorherigen Eingaben anzupassen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige