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
  With row
     For i As Integer = 0 To contents.Length - 1
        If .Cells("Status") IsNot Nothing Then
           If DirectCast(.Cells("Status").Value, String).StartsWith _
            (contents(i)) Then ok = True          
         End If
         If .Cells("Zustand") IsNot Nothing Then
            If DirectCast(.Cells("Zustand").Value, String).StartsWith _
              (contents(i)) Then ok = True            
         End If
      Next i
   End With
   Return ok
End Function

Private Sub test()
 
   With datagridview1
      For Each row As DataGridViewRow In .Rows
          With row
             If FilterRow(row) Then
                For Each cell As DataGridViewCell In row.Cells
                    dim x as string = ""
                    If cell.Visible Then
                       If Not cell.Value Is Nothing Then
                          x = cell.Value.ToString                          
                       End If
                    End If
                    pdfTable.AddCell(x) '???????????
                 Next cell
             End If
          End With
      Next row
  End With
 
End Sub