Public Class Form1
 
    Dim dtNamen As DataTable
    Dim iKalli As Integer = 0
 
    Dim LeuteAuflistung As String = "Hinni Gibsnich,Kalli Unbekannt,Erst" & _
      "Moschlinger,Kalli Gunslinger,Bernhard Essensschlinger,Hinni" & _
      "Gibsnich,Kalli Unbekannt,Erst Moschlinger,Konrad Gunslinger,Kalli" & _
      "Essensschlinger"
    Dim arrLeute() As String = Nothing
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dtNamenInitialisieren()
        LeuteAuflisten()
        dgvNamenInitialisieren()
        KalliSuchen()
    End Sub
 
    Private Sub dtNamenInitialisieren()
 
        dtNamen = New DataTable
        dtNamen.TableName = "Namensliste"
 
        Dim keys(1) As DataColumn
        Dim column As New DataColumn
        column.DataType = System.Type.GetType("System.Int32")
        With column
            .ColumnName = "ID"
            .AutoIncrement = True
            .AutoIncrementStep = 1
        End With
        dtNamen.Columns.Add(column)
        keys(0) = column
        dtNamen.PrimaryKey = keys
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Vorname"
        dtNamen.Columns.Add(column)
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Nachname"
        dtNamen.Columns.Add(column)
 
    End Sub
 
    Private Sub dgvNamenInitialisieren()
 
        Dim bs As New BindingSource
        bs.DataSource = dtNamen
 
        With dgvNamen
            .DataSource = bs
            .ReadOnly = True
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = True
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            .ScrollBars = ScrollBars.Both
            .RowsDefaultCellStyle.BackColor = Color.White
            .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
            .Columns(0).Width = 50
        End With
    End Sub
 
    Private Sub LeuteAuflisten()
 
        Dim arrPerson() As String = Nothing
 
        arrLeute = LeuteAuflistung.Split(",")
 
        Dim i As Integer = 0
 
        For i = 0 To arrLeute.Count - 1
            arrPerson = arrLeute(i).Split(" ")
            dtNamenFuellen(arrPerson(0), arrPerson(1))
        Next
 
 
    End Sub
    Private Sub dtNamenFuellen(ByVal Vorname As String, ByVal Nachname As _
      String)
 
        Dim newRow As DataRow = dtNamen.NewRow
        newRow("Vorname") = Vorname
        newRow("Nachname") = Nachname
        dtNamen.Rows.Add(newRow)
 
    End Sub
 
    Private Sub KalliSuchen()
        For i As Integer = 0 To dgvNamen.Rows.Count - 1
            If dgvNamen.Rows(i).Cells(1).Value = "Kalli" Then
                dgvNamen.Rows(i).DefaultCellStyle.BackColor = BackColor.Red
            End If
        Next
    End Sub
 
    Private Sub btnFindFirstKalli_Click(sender As Object, e As EventArgs) _
      Handles btnFindFirstKalli.Click
 
        FindNextKalli()
 
    End Sub
 
    Private Sub FindNextKalli()
        If iKalli = dgvNamen.Rows.Count Then
            iKalli = 0
        End If
        For i As Integer = iKalli To dgvNamen.Rows.Count - 1
            If dgvNamen.Rows(i).DefaultCellStyle.BackColor = BackColor.Red Then
                dgvNamen.CurrentCell = dgvNamen.Rows(i).Cells(1)
                dgvNamen.Rows(i).Selected = True
                iKalli = i + 1
                Exit Sub
            End If
        Next
    End Sub
 
End Class

EALA FREYA FRESENA