Private Sub sevGrid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
    With sevGrid1
        If nCol = 9 Or 10 Then
           ' Totalbetrag errechnen
           .CellNew(11) = 0
           If .CellNew("LeAnzahl") <> "" And .CellNew("LePreis") <> "" Then
              .CellNew("LeTotal") = .CellNew("LeAnzahl") * .CellNew("LePreis")
           End If
        End If
    End With
End Sub

            .Columns(11).LockEdit = True
            .Columns(11).InputType = INPUT_CURRENCY
            .Columns(11).DisplayFormat = "#####0.00"