Private Sub sevGrid_StartEditMode(Index As Integer, ByVal nRow As Long, ByVal _
  nCol As Long, sText As String, bCancel As Boolean)
 
fs_sev_grid_zelle = nRow & ";" & nCol              'merken der zeile und zelle 
' beim Editieren
fiGridNr = Index                                                       'merken 
' des index
end Sub

sevGrid(Index).ListItems(z).CellText(k)

Private Sub sevGrid_LostFocus(Index As Integer)
Dim Hilfe() As String
Dim z As Integer
Dim k As Integer
 
If fs_sev_grid_zelle <> "" Then
    Hilfe = Split(fs_sev_grid_zelle, ";")           'gemerkte Zeile / Zelle
    z = Hilfe(0)
    k = Hilfe(1)
    frmKIS.sevGrid_AfterUpdate Index, z, k, sevGrid(Index).ListItems( _
      z).CellText(k)
End If