ich habe ein Tool gebaut, welches mir Mittels einer Dropdownliste(Datenüberprüfung) eine Mehrfachauswahl ermöglicht. Dafür führe ich auf dem Tabellenblatt diesen Code aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim strSep As String
Dim rngEdit As Range
'Check "Edit Entries" box, to make changes
' to multiple selection data validation cells
'Set rngEdit = Worksheets("AdminNotes").Range("EditMode")
If Worksheets("VorhandeneBaureihen").Range("D1") = "x" Then Exit Sub
strSep = Chr(10) 'line break separator
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
'If rngEdit.Value = False Then
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If Target.Column > 1 Then
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
Target.Value = oldVal _
& strSep & newVal
End If
End If
End If
' End If
End If
Columns("E:BA").Rows.AutoFit
exitHandler:
Application.EnableEvents = True
End Sub
Jetzt möchte ich aus der Zelle mit der Mehrfachauswahl einzelne Textabsätze wieder löschen. Leider macht mir dabei immer wieder die Datenüberprüfung einen Strich durch die Rechnung.
Weiß jemand Rat oder kennt jemand eine elegantere Lösung für mein Problem.
Vielen Dank vorab. Ich freue mich über jede Rückmeldung