Private Sub DataGridView1_KeyPress(ByVal sender As Object, ByVal e As _
      KeyPressEventArgs) _
        Handles DataGridView1.KeyPress
 
        'Markierungen löschen
        For i As Integer = 0 To sender.Rows.Count - 1
            If sender.Rows(i).Selected() = True Then
                sender.rows(i).selected() = False
            End If
 
        Next
 
 
        If e.KeyChar > " " Then
            strSearch += e.KeyChar.ToString
        End If
        Dim posi As Integer = Search(strSearch, Me.DataGridView1)
        If posi >= 0 Then
            'm_BMB.Position = posi
            'gefunden
            Me.Label15.Text = "gefunden: " & strSearch
        Else
            ' nix gefunden
            Me.Label15.Text = "nix gefunden: " & strSearch
        End If
        'Positionsanzeige im Label 
        'Pos()
        'Positionsanzeige in Statusbar
        'TSSLPos()
 
    End Sub

  Public Function Search(ByVal str As String, ByVal dgv As DataGridView)
 
        Try
            For i As Integer = 0 To dgv.Rows.Count - 1
                If dgv.Rows(i).Cells(0).Value.ToString.ToLower.StartsWith(str) _
                  Then
                    dgv.Rows(i).Selected() = True
                    Return i
                End If
            Next
        Catch ex As Exception
        End Try
 
        Return -1
 
    End Function

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################