listbox toont niet alle gegevens?

[Dummy1912]

Hallo,

ik probeer de listbox te vullen met het opdracht ID en deze werkt
maar ik zou 14 records of meer moeten krijgen maar hij toont er maar 1

enig idee wat wij verkeerd doen aub

For i = 2 To Sheet5.Range("B1000000").End(xlUp).Offset(1, 0).Row
For j = 1 To 7

h = Application.WorksheetFunction.CountIf(Sheet5.Range("B" & 2, "H" & i), Sheet5.Cells(i, j))
If h = 1 And LCase(Sheet5.Cells(i, j)) = LCase(txtid.value) Or h = 1 And Sheet5.Cells(i, j) = Val(txtid.value) Then
Me.ListBox1.AddItem

        
For X = 1 To 7
Me.ListBox1.List(ListBox1.ListCount - 1, X - 1) = Sheet5.Cells(i, X) '' hij toont maar 1 lijn :(
Next X
End If
Next j
Next i

Dank u

 

[Dummy1912]

Hallo,

Ik denk dat wij het hebben opgelost

Me.ListBox1.RowSource = ""
  Set DataSH = Sheet1
DataSH.Range("T9").Value = txtSearch.Text
DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range("T8:T9") _
, CopyToRange:=DataSH.Range("V8:AM8")


ListBox1.RowSource = Sheet1.Range("outdata").Address(external:=True)

toont nu alle records

Toch bedankt.