listbox met gefilterde data lukt niet

[appie36]

Hallo,

Ik gebruik deze code om een tabel te filteren en de resultaten in een listbox te krijgen. De tabel wordt gefilterd op de goede manier, maar in de listbox zie je alleen de eerste regel.
Ik kom er niet uit waar de fout zit, misschien ziet hier iemand wat?

Mvg
Ab


Private Sub CommandButton8_Click() 'Na filter listbox1 vullen
ListBox2.Clear
Blad2.Range("Tabel8").AutoFilter 7, ComboBox7


ListBox2.List = Blad2.Range("A2:I1100").SpecialCells(xlCellTypeVisible).Value

End Sub
Private Sub CommandButton10_Click() 'Filter uitzetten
Blad2.Range("Tabel8").AutoFilter
ListBox2.List = Blad2.Range("A2:I1100").SpecialCells(xlCellTypeVisible).Value
End Sub





Private Sub UserForm1_Activate() 'Listbox1 vullen
With Sheets("tblBewerking")
sq = .Range("A2:I" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
With ListBox2
.Clear
.ColumnCount = 9
.ColumnWidths = "20;50;50;50;50;50;50;50;50"
.List = sq
End With
End Sub

 

[VenA]

Voor het gemak maar weer geen voorbeeldbestandje en code tussen de daarvoor bestemde tags plaatsen blijft ook nog steeds moeilijk? Waarom ga je hier http://www.helpmij.nl/forum/showthread.php/912073-hele-rij-verwijderen-in-werkblad-met-vba niet verder? Staat toch nog als niet opgelost?

 

[appie36]

Hallo VenA

Die vorige vraag is opgelost, vergeten het als opgelost te zetten.

Dat van die tags is zijn dat die twee groter en kleiner tekens?

 

[appie36]

Dan leg ik de vraag op een andere manier uit, het filteren lukt wel.

Hoe krijg ik de gefilterde data van Tabel1 in ListBox1 ?

 

[VenA]

Zonder voorbeeldbestandje.

ListBox1.List = Sheet1.ListObjects(1).DataBodyRange.SpecialCells(12).Value

 

[WHER]

Met zelfgemaakt basic voorbeeldbestand:

 

[appie36]

Ik heb deze gevonden, maar als ik deze aanpas voor mijn eigen brouwsel geeft hij na fileren alleen de eerste regel. De tabel op de achtergrond wordt wel helemaal gefilterd. Kom er niet achter waar het zit.

 

[snb]

Dan leg ik de vraag op een andere manier uit, het filteren lukt wel.

Hoe krijg ik de gefilterde data van Tabel1 in ListBox1 ?

Kopieer de gefilterde records naar een eigen gebied en vul daarmee de lijst met

with sheet1.cells(1).currentregion
   .autofilter 1,"aaa"
   .copy sheet1.cells(1,100)
   .autofilter
end with
listbox1.list=sheet1.cells(1,100).currentregion.value
sheet1.cells(1,100).currentregion.clearcontents

 

[WHER]

ik heb je bestand nog even aangepast, zo heb je twee mogelijke manieren om dit aan te pakken: via een lus of zoals SNB: filteren >> kopiëren naar een lege range >> Listbox vullen >> range terug leegmaken.Bekijk bijlage Listbox.xlsm

 

[appie36]

Het werkt, zo eenvoudig was het nog niet dus. In ieder geval bedankt voor het mee denken en oplossen :thumb:

 

[VenA]

Het is vrij eenvoudig als je je even verdiept in het gebruik van een tabel (Listobjects). Je hoeft niets eerst te kopiëren naar een andere plek en een lus is ook niet nodig. Als er niets aan de lay-out van de listbox gaat wijzigen dan zou ik dat eenmalig instellen en niet elke keer via code.