Private Sub Grid1_EditKeyUp(KeyCode As Integer, Shift As Integer)
  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
        End If
        .DoEdit y, z + 1
      End If
    End With
  End Select
End Sub

cu puppet

Wer ?berall seinen Senf dazu gibt, kommt schnell in den Verdacht ein W?rstchen zu sein!