Suchfunktion Textbox

Private Sub TextBox1_Change()
Dim arr, arrData
Dim i      As Long, cnt As Long
Dim loletzteA As Long
Dim rng    As Range
Application.EnableEvents = True
With Worksheets("Daten")
loletzteA = .Cells(.Rows.Count, 3).End(xlUp).Row
arr = .Range("B3:G" & loletzteA).Value
End With
With ListBox1
If TextBox1.Value = "" Or TextBox1.Value = 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 Left(TextBox1, 1) = Left(arr(i, 2), 1) Then                                     '  für einen Buchstaben
' If LCase(Left(TextBox1, 2)) = LCase(Left(arr(i, 2), 2)) Then          '  für Zwei Buchstaben
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