For Each lva As ListViewItem In lv.Items
            If lva.SubItems(1).Text = "5" And lva.SubItems(3).Text = "41" Then
                lva.SubItems(7).Text = "Typ1"
            End If
        Next
 
        For Each lva As ListViewItem In lv.Items
            If lva.SubItems(1).Text = "5" And lva.SubItems(3).Text = "59" Then
                lva.SubItems(7).Text = "Typ1"
            End If
        Next
 
        For Each lva As ListViewItem In lv.Items
            If lva.SubItems(1).Text = "5" And lva.SubItems(3).Text = "91" Then
                lva.SubItems(7).Text = "Typ1"
            End If
        Next
 
        For Each lva As ListViewItem In lv.Items
            If lva.SubItems(1).Text = "5" And lva.SubItems(3).Text = "283" Then
                lva.SubItems(7).Text = "Typ1"
            End If
        Next
 
        For Each lva As ListViewItem In lv.Items
            If lva.SubItems(1).Text = "5" And lva.SubItems(3).Text = "315" Then
                lva.SubItems(7).Text = "Typ1"
            End If
        Next
 
        For Each lva As ListViewItem In lv.Items
            If lva.SubItems(1).Text = "5" And lva.SubItems(3).Text = "347" Then
                lva.SubItems(7).Text = "Typ1"
            End If
        Next

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

Zitat:

Du benötigst vermutlich eine Datei oder Datenbank, in der die Beziehung zwischen den zu ergänzenden Beschreibungen und den entsprechenden IDs der Listviewitems eingetragen ist.