Dim kritvals() As String = {"41", "59", "91", "283", "315", "347"}
 
For Each lva As ListViewItem In lv.Items
   With lva
      If .SubItems.Count >= 8 Then
         If .SubItems(1).Text = "5" AndAlso _
            kritvals.Contains(.SubItems(3).Text) Then
 
            .SubItems(7).Text = "Typ1"
            '.backcolor = ....
         End If
      End If
   End With
Next lva