Private Sub sevGrid_RowChange(ByVal nRow As Long)
Dim rst As Recordset
 
If Me.FilterOn = True Then
Me.FilterOn = False
End If
 
With sevGrid
strArtikel = .Text(nRow, 1)
 
 
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Set rst = Me.RecordsetClone
    rst.FindFirst "[ArtikelNr] = '" & strArtikel & "'"
    If rst.NoMatch Then
    Beep
    GoTo ExitHere
    Else
    Me.Bookmark = rst.Bookmark
    Me.Refresh
    End If
    rst.Close
 
End With
 
Call DataGrid1
 
ExitHere:
 
End Sub