Listbox mit Daten aus externer Tabelle füllen

Private Sub Logistikkategorie_Change()
Menge_Logistik_Artikel.Value = ""
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Equipment Logistik").Range("A:A")
Me.Vorauswahl.Clear
Set rngCell = .Find(Me.Logistikkategorie.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.Vorauswahl
.ColumnCount = 5
.AddItem
.List(.ListCount - 1, 0) = rngCell.Row
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 4).Value
.ColumnWidths = "0cm;5cm;4cm;4cm;2cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address  strFirstAddress
Else
MsgBox "Equipment nicht gefunden"
End If
End With
End Sub