Private Sub sevGrid2_EditKeyPress(KeyAscii As Integer)
  With sevGrid2
    If .Col = .GetCol("xy") And KeyAscii > 31 And Not IsNull(.EditValue) Then
      If .IsEditMode = MODE_ADDNEW Then .CellNew(12) = .EditSubItem(1)
      IDKontoKa = sevGrid2.EditSubItem(1)
    End iF
  End WIth
End SUb

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de