Option Explicit
Dim nAction As Long
Dim nGridRow As Long
Dim nGridCol As Long
 
Private Sub Form_Timer()
  Me.TimerInterval = 0
  Select Case nAction
    Case 1
      Grid1.DowEdit nGridRow, nGridCol
  End Select
End Sub
 
Private Sub sevGrid_Bestellliste_AfterUpdate(ByVal nRow As Long, _
  ByVal nCol As Long, ByVal sText As String)
 
  With sevGrid_Bestellliste
    If nCol = .GetCol("Bestellt") Then
      If CBool(sText) = True Then
        nGridRow = Row
        nGridCol = .GetCol("Bestellmenge")
        nAction  = 1
        Me.TimerInterval = 50
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de