<code>Private Sub grdDataGrid_KeyPress(KeyAscii As Integer) 
  <font color=green>' ENTER abfangen</font>
  If KeyAscii = 13 Then
    KeyAscii = 0
    SendKeys "{TAB}", True
 
    <font color=green>' oder alternativ:
    ' SendKeys "{RIGHT}", True</font>
  End If
End Sub</code>