Private Sub sevGrid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
    With sevGrid1
        If nCol = 7 Then
           If .CellNew("LeAnzahl") <> "" And .CellNew("LePreis") <> "" Then
              .CellNew(11) = 0
              .CellNew("LeTotal") = Format$(.CellNew("LeAnzahl") * .CellNew( _
                "LePreis"), _
              "#####0.00")
            End If
        End If