Private Sub Grid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText As _
  String, Cancel As Integer)
 
    If Grid1.IsEditMode = MODE_ADDNEW Then
        If Grid1.CellNew(2) = "" Then
            MsgBox "Kein Name"
            Cancel = -1
            Grid1.DoEdit nRow, nCol
        End If
    ElseIf Grid1.IsEditMode = MODE_EDIT Then
        If Grid1.Text(nRow, 2) = "" Then
            MsgBox "Kein Name"
            Cancel = -1
            Grid1.DoEdit nRow, nCol
        End If
    End If
 
End Sub