VBA - Mehrfachauswahl Drop Down
05.01.2022, 13:43
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
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
