Office: (Office 365) Problem im Code für Mehrfachauswahl in Dropdownliste

Hallo beisammen,

ich soll für meinen Stiefvater eine Tabelle über seine Bestandskunden und deren Produkte erstellen und bin dabei nun auf folgendes Problem gestoßen:
Ich brauche in mehreren Spalten eine Mehrfachauswahl wo die Grunddaten über Dropdown Listen eingespielt werden.
Dies habe ich nach einigem hin und her und googeln und videos schauen nun soweit geschafft und zwar mit folgendem VBA Code:

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 wertold As String
Dim wertnew As String

'** Errorhandling
On Error GoTo ErrorHandler

'** Mehrfachauswahl im definierten Bereich durchführen
If Not Application.Intersect(Target, Range("E2:I600")) Is Nothing Then

'**Range definieren
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo ErrorHandler

'** 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
Exit Sub

'** Errorhandling
ErrorHandler:
Application.EnableEvents = True
Exit Sub

End If
End Sub

Dies erfüllt zwar seinen Zweck aber nur wenn man die Zelle durch Mausklick auf eine andere Zelle verlässt. Immer wenn man die aktuelle Zelle mit Enter verlassen will kommen Fehlermeldungen auf und der Code vervielfacht das bereits ausgewählte um ein vielfaches. Wenn man wieder in die Zelle geht und alles entfernt und dann enter drückt gibt es keine Probleme und ich kann wieder die Mehrfachauswahl benutzen und es gibt - sofern ich nun mit Mausklick die Zelle verlasse - auch keine Probleme mehr.
Habt ihr Ideen wie ich dieses Problem berichtigen kann, sodass der Benutzer wieder mit Enter die Zelle verlassen und somit zur nächsten springen kann?
Ich habe nur sehr wenig Erfahrung im Coding und komme selber nicht auf den Fehler im Code und würde mich über Hilfe freuen.

 

es fehlt eine Prüfung ob der einzutragende Wert schon vorhanden ist. es wird nur geprüft ob alt und neu nicht leer sind.
ergänze verscuhsweise den Teil

Code:

If wertnew <> "" Then
        If InStr(1, wertold, wertnew) > 0 Then 'doppelte vermeiden
         Target.Value = wertold
        Else
         Target.Value = wertold & ", " & wertnew
        End If
      End If

 

Warum so umfangreich?

Code:

Modul
Option Explicit

Public StTarget As String

Diese Arbeitsmappe
Option Explicit

Private Sub Workbook_Open()
    If ActiveSheet.Name = "Tabelle1" And Target.Column = 8 Then
        StTarget = Target
    End If
End Sub

Tabelle
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 8 Then
        Application.EnableEvents = False
        Target = StTarget & " " & Target
        Application.EnableEvents = True
        StTarget = Target
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 8 Then
        StTarget = Target
    End If
End Sub

wie in Deinem Beispiel muss die Eingabe mit Enter abgeschlossen werden.