Private Sub Grid1_EditKeyUp(KeyCode As Integer, Shift As Integer)
  Dim z As Long
  Dim y As Long
 
  Select Case KeyCode
    Case 48 To 57
    With Grid1
      z = .Col
      y = .Row
      If op1.Value = True Then ' - nach unten ausfuellen
        If .Rows = y Then
          z = z + 1
          y = 0
        End If
        .DoEdit y + 1, z
      Else ' --------------------nach rechts ausfuellen
        If .Cols = z Then
          y = y + 1
          z = 0
          .DoEdit y, z + 1
        Else
          SendKeys "{TAB}", True
        End If
      End If
    End With
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de