Goedenavond allemaal,
ik wil graag me tabel sorteren maar dan zonder dubbele waardes die tevoorschijn komen. Nu heb ik van VenA afgelopen week deze code gekregen voor het sorteren:
With Sheets(1).ListObjects(1)
.Range.Sort .Range(1, 3), 1, , , , , , xlYes
ListBox1.List = .DataBodyRange.Value
.Range.Sort .Range(1, 3), 2, , , , , , xlYes
End With
Ben ik blij mee werkt goed maar nu heb ik wel dubbele waardes in me combobox en ik krijg het niet voor elkaar om deze eruit te halen of hier iets op aan te voegen. Dit deed ik normaal met:
With CreateObject("scripting.dictionary")
For Each Lloc In Range("ADRESfilter")
.Item(Lloc.Value) = Lloc.Value
Next Lloc
cboWERKfltr.List = .keys
End With
End Sub
Als ik deze code 2e in me userform zet en uiteraard doorverwijs naar een andere range en combobox dan krijg ik een foutmelding. Graag wil ik deze 2 zien te combineren maar dit lukt me helaas niet.
Kan iemand mij verder helpen of advies geven?
Alvast bedankt
ik wil graag me tabel sorteren maar dan zonder dubbele waardes die tevoorschijn komen. Nu heb ik van VenA afgelopen week deze code gekregen voor het sorteren:
With Sheets(1).ListObjects(1)
.Range.Sort .Range(1, 3), 1, , , , , , xlYes
ListBox1.List = .DataBodyRange.Value
.Range.Sort .Range(1, 3), 2, , , , , , xlYes
End With
Ben ik blij mee werkt goed maar nu heb ik wel dubbele waardes in me combobox en ik krijg het niet voor elkaar om deze eruit te halen of hier iets op aan te voegen. Dit deed ik normaal met:
With CreateObject("scripting.dictionary")
For Each Lloc In Range("ADRESfilter")
.Item(Lloc.Value) = Lloc.Value
Next Lloc
cboWERKfltr.List = .keys
End With
End Sub
Als ik deze code 2e in me userform zet en uiteraard doorverwijs naar een andere range en combobox dan krijg ik een foutmelding. Graag wil ik deze 2 zien te combineren maar dit lukt me helaas niet.
Kan iemand mij verder helpen of advies geven?
Alvast bedankt