Noch 'ne Frage zur ListBox

Private Sub cmdSuchen_Click()
Dim lng As Long, i As Long, j As Long
Dim myLbArray() As Variant
'Application.ScreenUpdating = False  'nach erfolgreichen Tests aktivieren
frmEingabe.ListBox1.Clear 'Listbox leeren
frmEingabe.ListBox1.ColumnCount = 17 'spaltenanzahl der Listbox festlegen
If Len(frmEingabe.TextBox1) = 0 Then  'Beispiel-Prüfung, ob Textbox1 leer ist
MsgBox "Es muss für diese Suche immer ein Wert in Textbox1 vorhanden sein!", _
vbInformation, "Hinweis"
Else
With Worksheets(1)
'Datenfelddimensionen festlegen
ReDim myLbArray(0 To 16, 0 To .UsedRange.Rows.Count - 11)
For lng = 11 To Worksheets(1).UsedRange.Rows.Count
'Bedingung in Tabelle prüfen
If InStr(LCase(Cells(lng, 53).Value), LCase(frmEingabe.TextBox1.Value)) > 0 Then
'in Datenfeld eintragen
For j = 0 To 15
myLbArray(j, i) = .Cells(lng, j + 53).Text
Next
myLbArray(j, i) = lng 'Zeilennummer der Tabelle
i = i + 1
End If
Next lng
End With
'Datenfeld auf gefüllte Eintraege verkleinern
ReDim Preserve myLbArray(0 To 16, 0 To i - 1)
'Listbox mit gedrehtem Datenfeld füllen
frmEingabe.ListBox1.List = Application.Transpose(myLbArray)
End If
Application.ScreenUpdating = True
End Sub