Suche in einer anderen Datei

Private Sub CommandButton1_Click()
Dim zelle As Range
Dim strZelle As String
ListBox1.Clear
With Range("c2:B10000" & Range("c10000").End(xlUp).Row) 'Suche bis Zeile 10000
Set zelle = .Find(TextBox1.Value, LookIn:=xlValues)
If Not zelle Is Nothing Then
strZelle = zelle.Address
Do
With ListBox1
ListBox1.ColumnWidths = "0 Pt;60 Pt"
.ColumnCount = 3
.AddItem zelle.Address           .List(.ListCount - 1, 1) = "Zeile " & zelle.Row       _
_
_
_
_
.List(.ListCount - 1, 2) = Cells(zelle.Row, 1)
End With
Set zelle = .FindNext(zelle)
Loop While zelle.Address  strZelle
End If
End With
End Sub