Find alle forekomster i listView

'--------------------------------------- Form1 ---------------------------------------
Option Explicit

Private Sub Form_Load()
  With ListView1
      .View = 3
      .ColumnHeaders.Add , , "Column1", 1200
      .ColumnHeaders.Add , , "Column2", 1200
      .ColumnHeaders.Add , , "Column3", 1200
      .ColumnHeaders.Add , , "Column4", 1200
      .ColumnHeaders.Add , , "Column5", 1200
  End With

Dim i As Long
Dim Litem As ListItem

  For i = 1 To 50
    Set Litem = ListView1.ListItems.Add(, , "Column" & i)
    With Litem
        .SubItems(1) = "Column" & i
        .SubItems(2) = "Column" & i
        .SubItems(3) = "Column" & i
        .SubItems(4) = "Column" & i
    End With
  Next i

  With ListView1
      For i = 1 To .ListItems.Count
        If InStr(1, .ListItems(i).Text, "0") Then
          .ListItems(i).Bold = True
          .ListItems(i).ListSubItems(1).Bold = True
          .ListItems(i).ListSubItems(2).Bold = True
          .ListItems(i).ListSubItems(3).Bold = True
          .ListItems(i).ListSubItems(4).Bold = True
        End If
      Next i
  End With
End Sub
'--------------------------------------- Form1 ---------------------------------------

har du problemmer med det... :o)

Svar til sjh:
Nej jeg har ingen problemer med din løsning jeg tænkte nok lidt anderledes men du får point for din løsning