Private Sub do_filter_setzen()
Dim I As Integer
 
    For I = ListView1.ListItems.Count To 1 Step -1
 
        If Not ListView1.ListItems(I).SubItems(2) = maschine Then
 
            ListView1.ListItems.Remove I
 
        End If
    Next
 
    ListView1.SortKey = 12              
    ListView1.SortOrder = lvwAscending 
    ListView1.Sorted = True
ende:
End Sub