ActiveX combobox leeg maken na keuze, keuze moet behouden blijven

[Remlo]

Beste,

ik tracht een tabel te filteren aan de hand van een combobox, wat lukt.
Wat me niet lukt is de combobox terug leeg te maken zonder dat het filter wordt gewijzigd.

Ik filter op waarde A, de tabel wordt gefilterd en daarna zou de combobox leeg moeten zijn.

 

[SjonR]

Plaats een bestandje aub.

 

[HSV]

Vang de listindex in een variabele.
Daarna de listindex op -1
De filter bedien je nu met de variabele.

Kort door de bocht:

dim c00
if combobox1.listindex > -1 then
    c00 = combobox1.value  'c00 is de variabele
    combobox1.listindex = -1  'maak het leeg
columns(1).autofilter 1, c00  'filter op c00
end if

 

[Remlo]

HSV,

hartelijk dank

 

[snb]

Private Sub Combobox1_Change()
  if combobox1.listindex > -1 then sheet1.columns(1).autofilter 1, combobox1
  combobox1.listindex=-1
end if

 

[HSV]

De variabele doet het beter. :d