ListBox selected item

Private Sub ListBox7_Click() 'Bünde aufrufen
  Dim a, rF As Range
  Dim i, x As Integer
  Sheets("Tabelle1").Activate
  
  For a = 1 To Me.ListBox7.ListCount
    If ListBox7.ListIndex = -1 Then
    With Sheets("Tabelle1")
    Set rF = Columns(1).Find(what:=ListBox7, lookat:=xlWhole)
    a = Range(rF, rF.End(xlDown).Offset(-1)).Offset(i, 1).Resize(i, 6)
  End With
  End If
  Next
    With ListBox9
    .Clear
    .ColumnCount = 6
    .List = a
    End With
  End Sub

.List = a