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