Private Sub DGV_Excel1_CellPainting(sender As Object, _
                   e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
             Handles DGV_Excel1.CellPainting
 
        If e.RowIndex = -1 Or e.ColumnIndex = -1 Then Exit Sub
        If Not e.ColumnIndex = search_columnindex Then Exit Sub
        If IsDBNull(DGV_Excel1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) _
          Then Exit Sub
 
        Dim vl As String = _
            DGV_Excel1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString
 
        'Entspricht der Zellwert einem Suchbegriff (Startswith)
        Dim searched As Boolean
        For i As Integer = 0 To searchlist.Count - 1
            searched = vl.StartsWith(searchlist(i))
            If searched Then Exit For
        Next i
 
        If searched Then
            'Zelle gelb markieren und eine DGV-Checkbox true stempeln
            Using bry As New SolidBrush(Color.Yellow)
                e.Graphics.FillRectangle(bry, e.CellBounds)
            End Using
            e.Paint(e.CellBounds, DataGridViewPaintParts.Border)
            e.Paint(e.CellBounds, DataGridViewPaintParts.ContentForeground)
            e.Handled = True
        End If
 
    End Sub