' Allgemein Teil der UserForm
Dim WithEvents oGrid As sevDataGrid2.sevGrid

' Beim Initialisieren:
Private Sub UserForm_Initialize()
  Set oGrid = Me.sevGrid1
...

Private Sub oGrid_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, Cancel As Integer)
 
  MsgBox "BeforeUpdate " & sText
End Sub
 
Private Sub oGrid_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal sText As String)
 
  MsgBox "After Update: " & sText
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de