Private Function FilterRow(row As DataGridViewRow) As Boolean
 
   Dim contents() As String = {"neu", "gebraucht"} 'gesuchte Einträge für true
   Dim ok As Boolean = False
   For i As Integer = 0 To contents.Length - 1
 
      If .Cells("Status") IsNot Nothing _
         AndAlso .Cells("Zustand").Value IsNot Nothing Then
         If DirectCast(.Cells("Status").Value, String).StartsWith_
            (contents(i)) Then ok = True
      End If
 
      If .Cells("Zustand") IsNot Nothing _
         AndAlso .Cells("Status").Value IsNot Nothing Then
         If DirectCast(.Cells("Zustand").Value, String).StartsWith _
            (contents(i)) Then ok = True
      End If
 
   Next i    
 
   Return ok
End Function