EInträge aus LB suchen und copy

Hallo Forum,

ich möchte per VBA alle markierten Einträger einer Multiselect-Listbox in einem Sheet suchen - und wenn gefunden - diese untereinander
in ein Sheet kopieren.

Folgendes Makro kopiert mir nur den zuletzt selektierten Wert so oft untereinander wie es Anzahl der Selektierungen in der Listbox gibt.
Was muss man ändern?
Gruß
Chris

Dim wks As Worksheet
Dim iInd As Long
Dim rngzelle As Range

Set wks = Sheets("Auswahl")
i = 2

For iInd = 0 To UserForm3.ListBox1.ListCount - 1

  If UserForm3.ListBox1.Selected(iInd) Then
  LfdNr = UserForm3.ListBox1.List(UserForm3.ListBox1.ListIndex, 0)

Set rngzelle = Sheets("Rohdaten").Range("C:C").Find(What:=LfdNr, _
            LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
            
If Not rngzelle Is Nothing Then

wks.Cells(i, 5).Resize(, 18).Value = rngzelle.Resize(, 18).Value
i = i + 1
End If
Next iInd

End Sub