Private Sub sevGrid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, bCancel As Boolean)
 
  With sevGrid1
    If nCol = Satz Then
      sText = Format$(Val(Replace(sText, ",", ".")) * 100, "0.00")
    End If
  End With
End Sub