Dim iRow As Integer
Dim sText As String
Dim i As Integer
Dim itemX As ListItem
 
<font color=green>' Suche nach "muster"</font>
sText = "muster"
 
iRow = 1
Do Until iRow < 1 
  iRow = lvw_Search(ListView1, sText, iRow)
  If iRow > 0 Then
    <font color=green>' Eintrag nach ListView2 kopieren</font>
    With ListView1.ListItems(iRow)
      Set itemX = ListView2.ListItems.Add , , .Text
      For i = 1 To ListView1.ColumnsHeaders.Count - 1
        itemX.SubItems(i) = .SubItems(i)
      Next i
    End With
  End If
Loop