Suchfunktion mit Textbox

Private Sub TextBox1_Enter()
Dim arr, arrData
Dim i      As Long, cnt As Long
Dim loletzteA As Long
Dim rng    As Range
With Worksheets("Adressen")
loletzteA = .Cells(.Rows.Count, 3).End(xlUp).Row  'hier auf 2 (vorher1 )gesetzt da spalte 1nicht mehr genutzt wird
arr = .Range("B3:G" & loletzteA).Value
End With
With ListBox1
If TextBox1.Value = "" Or TextBox1.ListIndex = 0 Then .List = arr: Exit Sub
.RowSource = ""
.Clear
ReDim arrData(1 To UBound(arr), 1 To UBound(arr, 2))
For i = LBound(arr) To UBound(arr)
If TextBox1 = arr(i, 2) Then
cnt = cnt + 1
arrData(cnt, 1) = arr(i, 1)
arrData(cnt, 2) = arr(i, 2)
arrData(cnt, 3) = arr(i, 3)
arrData(cnt, 4) = arr(i, 4)
arrData(cnt, 5) = arr(i, 5)
arrData(cnt, 6) = arr(i, 6)
End If
Next
If cnt = 0 Then Exit Sub
arrData = Application.Transpose(arrData)
ReDim Preserve arrData(1 To UBound(arr, 2), 1 To cnt)
If cnt = 1 Then .Column = arrData Else .List = Application.Transpose(arrData)
End With
End Sub