Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, _
  OldValue As Variant, Cancel As Integer)
 
  <font color=green>' Prüfen, ob Zelle "leer"</font>
  If DataGrid1.Columns(ColIndex).Value = "" Then
    If MsgBox("Datenspalte wirklich löschen?", _
      vbQuestion + vbYesNo, "Achtung!") = vbNo Then
 
      Cancel = True
    End If
  End If
End Sub