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
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