Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdown / Mehrfachauswahl

Forumthread: Dropdown / Mehrfachauswahl

Dropdown / Mehrfachauswahl
09.11.2016 14:12:14
Berndt
Hallo Leute,
habe auf
http://www.excel-inside.de/funktionen-a-tipps/895-dropdown-liste-mit-mehrfachauswahl
ein richtig cooles Makro gefunden, um mehrere Namen über einer Dropdown auszuwählen.
Private Sub Worksheet_Change(ByVal Target As Range)
'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes
'** Dimensionierung der Variablen
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String
'** Errorhandling
On Error GoTo Errorhandling
'** Mehrfachauswahl im definierten Bereich (Bsp. D6:D24) durchführen
If Not Application.Intersect(Target, Range("D6:D24")) Is Nothing Then
'**Range definieren
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo Errorhandling
'** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
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
Allerdings benötige ich beim Optimieren noch etwas Hilfe.
Klicke ich zweimal auf den selben Namen in der Dropdown, doppelt sich dieser in der Zelle. Das heisst eine Prüfung müsste rein, ob der Name vll. schon ausgewählt wurde.
Und möchte ich z.B. von 3 Namen 2 händig löschen, schiebt das Makro einen Riegel vor und verhindert dies.
Vll. kann mir jmd mit diesen 2 Problemen helfen.
VG Berndt
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown / Mehrfachauswahl
12.11.2016 19:28:11
GraFri
Hallo
Für händisches löschen kenn ich keine Lösung. Würde alles löschen und neu eingeben.
Doppelte Einträge vermeiden:
Private Sub Worksheet_Change(ByVal Target As Range)
'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes
'** Dimensionierung der Variablen
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String
'** Errorhandling
On Error GoTo Errorhandling
'** Mehrfachauswahl im definierten Bereich (Bsp. D6:D24) durchführen
If Not Application.Intersect(Target, Range("D6:D24")) Is Nothing Then
'**Range definieren
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo Errorhandling
'** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
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
If InStr(wertold, wertnew) = 0 Then
Target.Value = wertold & ", " & wertnew
Else
Target.Value = wertold
End If
End If
End If
End If
Application.EnableEvents = True
End If
Errorhandling:
Application.EnableEvents = True
End Sub

mfg, GraFri
Anzeige
AW: Dropdown / Mehrfachauswahl
14.11.2016 09:51:28
Berndt
Vielen Dank. Es funktioniert. freue mich.
doch noch eine Kleinigkeit...
14.11.2016 09:58:21
Berndt
Wie allerding kann ich den fixen Bereich nach unten hin variabel gestalten.
wenn ich folgenden Code verwende funktioniert die Mehrfachauswahl nicht mehr.
Wo liegt der Fehler?
'** Mehrfachauswahl im definierten Bereich (Bsp. D6:D24) durchführen
LZ = Ws.Cells(Ws.Rows.Count, 4).End(xlUp).Row
If Not Application.Intersect(Target, Range("D6:D" & LZ)) Is Nothing Then

VG Berndt
Anzeige
AW: doch noch eine Kleinigkeit...
14.11.2016 18:27:25
GraFri
Hallo
Variabler Bereich:
Private Sub Worksheet_Change(ByVal Target As Range)
'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes
'** Dimensionierung der Variablen
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String
Dim LZ As Integer
'** Errorhandling
On Error GoTo Errorhandling
'** Mehrfachauswahl im definierten Bereich (Bsp. D6:D24) durchführen
'If Not Application.Intersect(Target, Range("D6:D24")) Is Nothing Then
With ActiveSheet
LZ = .Cells(.Rows.Count, 4).End(xlUp).Row
End With
If Not Application.Intersect(Target, Range("D6:D" & LZ)) Is Nothing Then
'**Range definieren
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo Errorhandling
'** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
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
If InStr(wertold, wertnew) = 0 Then
Target.Value = wertold & ", " & wertnew
Else
Target.Value = wertold
End If
End If
End If
End If
Application.EnableEvents = True
End If
Errorhandling:
Application.EnableEvents = True
End Sub

mfg, GraFri
Anzeige
Danke
15.11.2016 08:52:46
Berndt
Vielen Vielen Dank. Jetzt haut alles hin.

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Anzeige
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Anzeige
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Anzeige
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Anzeige
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
zahl + text in einer Zelle?
dieter

Hallo Forum,
gibt es wohl ein Möglichkeit in einer Zelle Zahl und text zu haben?
Etwa so: in A1 steht eine zahl; in A3 soll dann der Inhalt aus A1 und der text stehen,z.B. EUR.
(Aus platzgründen kann ich keine neue zelle für den text nehmen)
Danke für Eure Tips
23.10.2008 14:46:00
Thread-ID: 1018660
7 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Dropdown-Liste mit Mehrfachauswahl in Excel erstellen

Schritt-für-Schritt-Anleitung

Um eine Dropdown-Liste mit Mehrfachauswahl in Excel zu erstellen, kannst du die folgenden Schritte ausführen:

  1. Daten vorbereiten: Erstelle eine Liste der Einträge, die du in deiner Dropdown-Liste anzeigen möchtest. Diese Liste kann in einer separaten Tabelle oder im gleichen Arbeitsblatt platziert werden.

  2. Dropdown-Liste erstellen:

    • Wähle die Zelle aus, in der die Dropdown-Liste erscheinen soll.
    • Gehe zu Daten > Datenüberprüfung.
    • Wähle Liste aus und gib den Bereich der vorbereiteten Daten ein.

  3. VBA-Code einfügen:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Doppelklicke auf das Arbeitsblatt, in dem du die Dropdown-Liste erstellt hast.

    • Füge den folgenden VBA-Code ein:

      Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String
Dim LZ As Integer
On Error GoTo Errorhandling

With ActiveSheet
   LZ = .Cells(.Rows.Count, 4).End(xlUp).Row
End With

If Not Application.Intersect(Target, Range("D6:D" & LZ)) Is Nothing Then
   Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
   If rngDV Is Nothing Then GoTo Errorhandling
   Application.EnableEvents = False
   wertnew = Target.Value
   Application.Undo
   wert_old = Target.Value
   If wert_old <> "" Then
       If wertnew <> "" Then
           If InStr(wert_old, wertnew) = 0 Then
               Target.Value = wert_old & ", " & wertnew
           Else
               Target.Value = wert_old
           End If
       End If
   End If
End If
Errorhandling:
Application.EnableEvents = True
End Sub

  4. Testen der Dropdown-Liste: Kehre zu Excel zurück und teste die Dropdown-Liste, indem du mehrere Einträge auswählst.

Häufige Fehler und Lösungen

  • Doppelte Einträge: Wenn du denselben Eintrag zweimal auswählst, wird dieser in der Zelle verdoppelt. Um dies zu verhindern, kannst du den oben genannten VBA-Code verwenden, der prüft, ob der Eintrag bereits vorhanden ist.

  • Händisches Löschen nicht möglich: Momentan gibt es keine eingebaute Möglichkeit, einen ausgewählten Eintrag manuell zu löschen, ohne die gesamte Liste zu löschen und neu einzugeben. Eine mögliche Lösung könnte darin bestehen, einen Button zu erstellen, der bei Klick die Auswahl zurücksetzt.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch ein Listenfeld für Mehrfachauswahl verwenden:

  1. Gehe zu Entwicklertools > Einfügen und wähle ein Listenfeld aus.
  2. Setze die Eigenschaft MultiSelect auf fmMultiSelectMulti.
  3. Füge die gewünschten Elemente aus deiner Liste hinzu.

Diese Methode ermöglicht es dir, mehrere Einträge auszuwählen, ohne den VBA-Code zu verwenden.

Praktische Beispiele

  • Beispiel für eine Liste mit Namen: Angenommen, du möchtest mehrere Namen in einer Zelle auswählen. Erstelle eine Liste mit Namen und verwende den oben angegebenen VBA-Code.

  • Beispiel für eine Liste mit Produkten: Wenn du eine Dropdown-Liste für Produkte in einer Tabelle erstellen möchtest, gehe genauso vor und passe den Bereich entsprechend an.

Tipps für Profis

  • Dynamische Bereiche: Verwende dynamische Bereiche oder Tabellen, damit deine Dropdown-Liste automatisch aktualisiert wird, wenn du neue Daten hinzufügst.

  • Formatierung: Du kannst die Zelle so formatieren, dass sie sich von anderen abhebt, um die Benutzerfreundlichkeit zu erhöhen.

  • Filtern: Überlege, ob du eine Filterfunktion einbauen möchtest, um die Auswahl in der Dropdown-Liste zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich eine Dropdown-Liste ohne VBA erstellen? Es gibt keine native Funktion in Excel, um eine echte Mehrfachauswahl über eine Dropdown-Liste ohne VBA zu erstellen. Du kannst jedoch ein Listenfeld verwenden.

2. Kann ich die Auswahl zurücksetzen? Ja, du kannst einen Button erstellen, der die ausgewählten Werte in der Zelle zurücksetzt, indem du einen weiteren VBA-Code hinzufügst.

3. Funktioniert das in allen Excel-Versionen? Die oben beschriebenen Methoden funktionieren in Excel 2010 und neueren Versionen. Stelle sicher, dass du die Entwickleroptionen aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige