Søgning i ListView

er sådan noget du er ude efter???


    'fylder listview
    Do Until i = 30
        Set itemX = ListView1.ListItems.Add(i, , "bla" + CStr(i))
        itemX.SubItems(1) = "yada" + CStr(i)
        i = i + 1
    Loop

    'søger igennem listview
    For i = 1 To ListView1.ListItems.Count
       
        If ListView1.ListItems(i).Text = "bla6" Then
            Debug.Print "har fundet bla6"
        End If

    'kigger efter "match" i subitem
        If ListView1.ListItems(i).SubItems(1) = "yada7" Then
            Debug.Print "har fundet SubItem yada7"
        End If
       
  Next i

eller har du brug for at søge efter noget der blevet "selected"

    For i = 1 To ListView1.ListItems.Count
        If (ListView1.ListItems(i).Selected) = True Then
            Debug.Print ListView1.ListItems(i).Text
            Debug.Print ListView1.ListItems(i).SubItems(1)
        End If
       
  Next i