Geachte.
na lang zoeken iets gevonden op het netwerk wat ik zou kunnen gebruiken om meerdere keuzes mogelijk te maken in een dropdown menu,
ik maak veel gebruik van dropdowns, en om te voorkomen dat ik een reeks onder elkaar moet zetten, leek dit een goede optie.
alleen werkt die niet
volgende vraag omdat deze draait in de actieve worksheet, is het mogelijk om deze voor meerdere dropdowns te gebruiken in dezelfde worksheet
wie kan de fout eruit halen? voor mij net te veel onbekende codes.
Gr
na lang zoeken iets gevonden op het netwerk wat ik zou kunnen gebruiken om meerdere keuzes mogelijk te maken in een dropdown menu,
ik maak veel gebruik van dropdowns, en om te voorkomen dat ik een reeks onder elkaar moet zetten, leek dit een goede optie.
alleen werkt die niet
volgende vraag omdat deze draait in de actieve worksheet, is het mogelijk om deze voor meerdere dropdowns te gebruiken in dezelfde worksheet
wie kan de fout eruit halen? voor mij net te veel onbekende codes.
Code:
Private Sub Dropdown_Change(ByVal Target As Range)
'Code by Sumit Bansal from https://trumpexcel.com
' To allow multiple selections in a Drop Down List in Excel (without repetition)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Address = "$E$8" Then
'is het mogelijk om deze formule op meerdere dropdowns in het zelfde blad te gebruiken
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & ", " & Newvalue
Else:
Target.Value = Oldvalue
End If
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub
Gr