With .Columns(.GetCol("Binnenfracht"))
    .InputType = INPUT_USER
    .InputMask = "######,##"
    .DisplayFormat = "###,###.00"
    .SaveEmptyValueAsNullValue = True
End With

If Grid1.Columns(nCol).DataType = dtNumeric Then
    Speicherwert = Replace(Speicherwert, " ", "")
    If Speicherwert = "," Then Speicherwert = ""
    If Right(Speicherwert, 1) = "," Then Speicherwert = Left(Speicherwert, Len( _
      Speicherwert) - 1)
 
    If Grid1.Columns(nCol).ColType <> TYPE_COMBOBOX 
    And Grid1.Columns(nCol).ColType <> TYPE_COMBOLIST Then
        Grid1.EditText = Speicherwert
    End If
 
    Speicherwert = Replace(Speicherwert, ",", ".")
End If
 
If .Columns(nCol).SaveEmptyValueAsNullValue = True And Speicherwert = "" Then
    If Not IsNull(.Recordset.Fields(.Columns(nCol).Key)) Then
        .Recordset.Fields(.Columns(nCol).Key) = Null
        .Recordset.Update
    End If
Else
    If Nz(.Recordset.Fields(.Columns(nCol).Key), -9999) <> Nz(Speicherwert, _
      -9999) Then
        .Recordset.Fields(.Columns(nCol).Key) = Speicherwert
        .Recordset.Update
    End If
End If
 
Cancel = 2