Als je dan toch niet schuw bent om een macro te gebruiken kan je evengoed alles uitvoeren in
code, dan heb je al die hulpkolommen niet meer nodig.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'maaklijst
ComboBox1.LinkedCell = "": ComboBox1.ListIndex = -1
sn = Blad2.Range("B3:B14")
With CreateObject("System.Collections.ArrayList")
For i = 1 To UBound(sn)
Set fObj = Range("C5:E10").Find(sn(i, 1), , xlValues, xlWhole)
If fObj Is Nothing Then
If Not .Contains(sn(i, 1)) Then .Add sn(i, 1)
End If
Next
.Sort
ComboBox1.List = Application.Transpose(.ToArray)
End With
If Not Intersect(Target, Range("C5:E10")) Is Nothing Then
ComboBox1.LinkedCell = Target.Address
Else
Exit Sub
End If
End Sub