'benötigt ein sevdatagrid mit dem namen grid1
 
option explicit
 
Private Sub Form_Load()
  With Grid1
    .LockUpdate True
    .CheckBoxStyle = CHECKBOX_MODERN
    .AllowEdit = True
    .AllowMultiSelect = True
    .AutoSort = True
    .AutoUpdate = True
    .DataMode = Mode_List
 
    'Spalten ausblenden
    For z = 0 To 5
      .ColumnAdd z, z
      .AddItem z
    Next z
    'autom. Neuzeichnen wieder aktivieren
    .LockUpdate False
    .Refresh
  End With
End Sub
 
Private Sub Grid1_EditKeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 48 To 57, 8
      If Grid1.Col = Grid1.Cols Then
        Grid1.DoEdit Grid1.Row + 1, 2
        Grid1.Text(Grid1.Row, Grid1.Col) = Chr(KeyAscii)
      Else
        SendKeys "{TAB}"
      End If
    Case Else
      KeyAscii = 0
  End Select
End Sub

cu puppet

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