VBA workbook_Change : Multiple selection drop down box

[RaymondC]

Hallo allen,

Ik heb op worksheet Data een drop down (kolom F, starten vanaf cel 4 - meerdere selecties mogelijk), waarvoor onderstaande code wordt gebruikt.

Maar nu wil ik nog een andere drop down met meerdere selectie's toevoegen.

Echter 2x workbook_change lukt niet, hoe kan ik dit oplossen?

Ook gepost op https://www.mrexcel.com/board/threads/multiple-selection-drop-down-list.1165286/

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim lUsed As Long
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 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 = 6 Then
    If oldVal = "" Then
        'do nothing
    Else
        If newVal = "" Then
            'do nothing
    Else
    lUsed = InStr(1, oldVal, newVal)
        If lUsed > 0 Then
        If Right(oldVal, Len(newVal)) = newVal Then
            Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 2)
    Else
        Target.Value = Replace(oldVal, newVal & ", ", "")
    End If
    Else
        Target.Value = oldVal _
        & ", " & newVal
    End If

        End If
    End If
    End If
End If

exitHandler:
Application.EnableEvents = True
End Sub

 

[snb]

Vebeter de struktuur van je werkblad: 1 gegeven (bijv. naam) per cel, niet diverse gescheiden door een komma.