Suchen, vergleichen & übertragen

Private Sub CommandButtoncercacomanda_Click()
' Suchen der Bestellungen
Dim wonr As String
wonr = [TextBoxNImpianto].Value
Sheets("Bestelltes Material").Select
Range("A3").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.ScrollColumn = 1
Selection.AutoFilter Field:=5, Criteria1:=wonr
Range("A4:" & Range("A4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
'übertrag in die ListBox
Dim z As Long
Dim i As Long, n As Long, tmpCount As Long
z = Cells(Rows.Count, 1).End(xlUp).Row
With ListBox1
.ColumnCount = 8
.ColumnWidths = "2,2cm;3,5cm;4cm;1,8cm;1,5cm;3cm;0,5cm;1,8cm"
For i = 2 To z
If Rows(i).Hidden = False Then
.AddItem Cells(i, 1)
tmpCount = .ListCount - 1
For n = 1 To 7
.List(tmpCount, n) = Cells(i, n + 1)
Next n
End If
Next i
End With
End Sub