Private Sub Grid1_EditKeyUp(KeyCode As Integer, Shift As Integer)
  With Grid1
    ' Wenn 1. Spalte editiert prüfen...
    If .Col = 1 Then
      ' Prüfen, ob Zahl eingegeben wurde
      Select Case KeyCode
        Case 48 To 57          
          ' Cursor in nächste Zeile setzen
          .DoEdit .Row + 1, 1
      End Select
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de