Dim suchwert
        suchwert = KundennummerTextBox1.Text.Trim
        Dim r
        Try
 
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                If DataGridView1.Rows(i).Cells(0).Value.ToString = suchwert Then
                    Dim rowIndex As Integer = i
                    Dim colIndex As Integer = r
                    'Markiert die Zeile
                    DataGridView1.Rows(i).Selected = True
                    'Scrollt zur Angegeben(markierten) Zeile
                    DataGridView1.FirstDisplayedScrollingRowIndex = i
                End If
            Next
        Catch ex As Exception
                    End Try