title: excel vba listbox filling with filtered data
body: <p>i have a sheet "Database UI" with adres on column D</p>
  
  <p>i have a sheet "Database Klant" with all the customers with there adres</p>
  
  <p>i try to filter and show all rows from Database UI with the same adres on userform1</p>
  
  <p>the problem is that the listbox1 stays empty no errors show
  what did i wrong in the code </p>
  
  <pre><code>    Private Sub userform_Initialize()
      Dim RowMax As Integer
      Dim wsh As Worksheet
      Dim countExit As Integer
      Dim CellCombo2 As String
      Dim i As Integer
  
      Set wsh = ThisWorkbook.Sheets("Database IU")
      RowMax = wsh.Cells(Rows.Count, "D").End(xlUp).Row
      'find last row of sheet in column D
  
      ListBox1.Clear
      'clear all value of comboBox1
  
      With ListBox1
          For i = 1 To RowMax
              If wsh.Cells(i, "D").Value = str3 Then
              'Just show value of mapping with column D
          .ColumnWidths = "50;50;50;50;50;50;50;50;50;50"
          .AddItem wsh.Cells(i, "E").Value
          .List(.ListCount - 1, 1) = wsh.Cells(i, "F").Value
          .List(.ListCount - 1, 2) = wsh.Cells(i, "G").Value
          .List(.ListCount - 1, 3) = wsh.Cells(i, "H").Value
          .List(.ListCount - 1, 4) = wsh.Cells(i, "I").Value
          .List(.ListCount - 1, 5) = wsh.Cells(i, "J").Value
          .List(.ListCount - 1, 6) = wsh.Cells(i, "K").Value
          .List(.ListCount - 1, 7) = wsh.Cells(i, "L").Value
          .List(.ListCount - 1, 8) = wsh.Cells(i, "M").Value
          .List(.ListCount - 1, 9) = wsh.Cells(i, "N").Value
          .List(.ListCount - 1, 10) = wsh.Cells(i, "O").Value
  
          Else
          End If
          Next i
      End With
  End Sub
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/AMPa5.jpg" alt="enter image description here">
  thanks in advance</p>