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