VBA - Problem

Private Sub cmdSuchen_Click()
Dim zelle As Range
Dim sBegriff As String
sBegriff = TextBox1.Value
If sBegriff = "" Then Exit Sub
Set zelle = Worksheets("Index").Columns(1) _
.Find(sBegriff, LookIn:=xlValues, LookAt:=xlWhole)
If zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
Else
MsgBox "Suchbegriff befindet sich in Zelle " & _
zelle.Address
End If
zelle.Select
Rows(ActiveCell.Row).Select
Unload Me
End Sub

Private Sub cmdSuchen_Click()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frmCD_Titel_Suche_im_Index
.ListBox1.Clear
Sheets("Index").Activate
i = 0
For lng = 7 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 2).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 1).Value
.ListBox1.Column(0, i) = Cells(lng, 1).Value
.ListBox1.Column(1, i) = Cells(lng, 2).Value
.ListBox1.Column(2, i) = Cells(lng, 3).Value
.ListBox1.Column(3, i) = Cells(lng, 4).Text
.ListBox1.Column(4, i) = Cells(lng, 5).Value
.ListBox1.Column(5, i) = Cells(lng, 6).Value
.ListBox1.Column(6, i) = Cells(lng, 7).Value
.ListBox1.Column(7, i) = Cells(lng, 8).Value
.ListBox1.Column(8, i) = Cells(lng, 9).Text
.ListBox1.Column(9, i) = Cells(lng, 10).Value
i = i + 1
Else
End If
Next lng
End With
End Sub

Private Sub ListBox1_Click()
Dim zelle As Range
Dim sBegriff As String
sBegriff = TextBox1.Value
If sBegriff = "" Then Exit Sub
Set zelle = Worksheets("Index").Columns(2) _
.Find(sBegriff, LookIn:=xlValues, LookAt:=xlWhole)
If zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
Else
MsgBox "Suchbegriff befindet sich in Zelle " & _
zelle.Address
End If
zelle.Select
Rows(ActiveCell.Row).Select
Unload Me
End Sub