ich habe ein kleines Problemchen...
Ich habe in meinem Formular eine Dropdownliste hinterlegt, aus der eine Mehrfachauswahl möglich sein soll.
Ich habe folgendes Makro dafür gefunden: Private Sub Worksheet_Change(ByVal Target As Range) Dim rngDV As Range Dim wert_old As String Dim wertnew As String On Error GoTo Errorhandling If Not Application.Intersect(Target, Range("D3")) 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 Soweit funktioniert es auch. Also, ich kann mehrere Werte auswählen.
Das Problem dabei ist aber: Wenn man die Vorlage öffnet, steht bereits ein Text in der Zelle (1. Listeneintrag).
Dieser soll automatisch gelöscht werden, sobald man einen der anderen 4 Einträge auswählt. Man soll also die 4 weiteren Einträge untereinander frei kombinieren können.
Ein weiteres Problem ist, dass ich z. B. Eintrag 2 so oft hinzufügen kann, wie ich will. Also mit jedem Klick wird dieser wieder und wieder hinzugefügt.
Ich hätte lieber, wenn der Eintrag beim ersten Klick hinzugefügt wird und beim zweiten Klick wieder entfernt wird.
Könnte mir jemand den Code entsprechend ändern? Oder ist das überhaupt möglich?
Vielen Dank für eure Hilfe!