VBA - Mehrfachauswahl Drop Down

[SteBen]

Hallo zusammen,

mit Hilfe des folgenden Codes lasse ich mir einen Zeitstempel in Spalte N schreiben - das passt soweit.

Mit dem 2. Code Teil (Mehrfachauswahl) möchte ich gerne, dass ich aus meinen vorher schon als Drop Down Liste hinterlegten Daten in Spalte D, mehrere Einträge auswählen kann.
Leider klappt das jedoch nicht. Der Code läuft auch ohne Fehlermeldung durch, nur kann ich immer noch nur einen Eintrag aus meinem Drop Down Menü auswählen.

Meine Tabelle ist als Tabelle formatiert.

Hat jemand eine Idee, was das Problem sein könnte?

Vielen Dank & Grüße
SteBen

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Zeitstempel
If Intersect(Target, Range("M10:M1000")) Is Nothing Then Exit Sub
If Cells(Target.Row, 13) Is Nothing Then
Cells(Target.Row, 14).Value = ""
Else
Cells(Target.Row, 14) = Now
End If


'Mehrfachauswahl
Const TargetColumn As Long = 4  ' Ziele in Spalte 4.

Dim blockedEvent As Boolean
Dim TargetOldText As String

If Target.Column = TargetColumn Then
        If Not blockedEvent Then
            blockedEvent = True
            If Not TargetOldText = "" And Not Target.Value = "" Then
                Target.Value = TargetOldText & ", " & Target.Value
            Else
                Target.Value = Target.Value
            End If
            TargetOldText = Target.Value
        Else
            blockedEvent = False
        End If
    Else
        TargetOldText = ""
    End If
   
   
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = TargetColumn Then
        TargetOldText = Target.Value
    End If
End Sub

[Klaus-Dieter]

Hallo,

es wäre hilfreicher, anstelle der Quelltexte die Datei vorliegen zu haben. Sonst kann man das nicht testen.

[SteBen]

Hallo Klaus-Dieter,

anbei meine Beispieldatei.

[Klaus-Dieter]

Hallo,

ich denke du solltest noch mal etwas ausführlicher beschreiben, was du da machen willst.

[SteBen]

Hi,

ich möchte aus meinem bestehenden Drop Down in Spalte D, mehrere Einträge auswählen können, nicht nur einen Eintrag, die dann durch Komma getrennt in der Zelle stehen sollen.

[Elex]

Hi

Mehrfachauswahl bei Datenüberprüfung, keine doppelte Auswahl (clever-excel-forum.de)

Gruß Elex

[Kuwer]

Hallo Steben,

die Bedingung

Code:

            If Not TargetOldText = "" And Not Target.Value = "" Then
                Target.Value = TargetOldText & ", " & Target.Value

wird nie greifen, da TargetOldText zu diesem Zeitpunkt immer leer ist.

Gruß Uwe

[SteBen]

Hi Elex,
Hi Uwe,

danke für Euren Input.

Ich habe den Code aus dem thread jetzt mal an meine Bedürfnisse angepasst, aber es wird nach wie vor nur ein Element aus dem Drop Down übernommen. Sobald ich ein zweites auswähle, wird das zuerst gewählte überschrieben....

Anbei mal meine aktualisierte Beispieldatei.

Danke Euch


  Mappe1.xlsm (Größe: 20,05 KB / Downloads: 2)

[Ralf A]

Für Dropdownzellen gibt es keine Mehrfachauswahl. Aber da Du sagst, die Daten liegen in einer formatierten Tabelle, kannst Du beliebig viele Slider (Datenschnitte) hinzufügen, die auch noch kontextabhängig reagieren. Und das, ohne eine einzige Zeile Code schreiben zu müssen...

[SteBen]

Hi Ralf,

ich suche eig. nach genau der Lösung, die Elex oben verlinkt hat. 

Mit Datenschnitten kann ich die Spalte ja nur filtern..?