Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With DataGridView1
            .Columns.Add("Vorname", "Vorname")
            .Columns.Add("Nachname", "Nachname")
            .Rows.Add("Hinni", "Gibsnich")
            .Rows.Add("Kalli", "Unbekannt")
            .Rows.Add("Ernst", "Moschlinger")
            .Rows.Add("Konrad", "Gunslinger")
            .Rows.Add("Bernhard", "Essensschlinger")
            .Rows.Add("Hinni", "Gibsnich")
            .Rows.Add("Kalli", "Unbekannt")
            .Rows.Add("Ernst", "Moschlinger")
            .Rows.Add("Kalli", "Gunslinger")
            .Rows.Add("Bernhard", "Essensschlinger")
        End With
 
        ZellenEinfaerben()
 
    End Sub
 
    Private Sub ZellenEinfaerben()
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Value = "Kalli" Then
                DataGridView1.Rows(i).Cells(0).Style.BackColor = BackColor.Red
            End If
        Next
    End Sub
 
    Private Sub btnFindFirst(sender As Object, e As EventArgs) Handles _
      btnFindFirst.Click
        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Style.BackColor = BackColor.Red _
              Then
                DataGridView1.CurrentCell = DataGridView1.Rows(i).Cells(0)
                Exit Sub
            End If
        Next
    End Sub
 
    Private Sub btnFindNext_Click(sender As Object, e As EventArgs) Handles _
      btnFindNext.Click
        Dim iIndex As Integer = DataGridView1.CurrentCell.RowIndex + 1
 
        For i As Integer = iIndex To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Style.BackColor = BackColor.Red _
              Then
                DataGridView1.CurrentCell = DataGridView1.Rows(i).Cells(0)
                Exit Sub
            End If
        Next
    End Sub
End Class

EALA FREYA FRESENA