Private Sub sevGrid1_BeforeUpdate(ByVal nRow As Long, _
  ByVal nCol As Long, sText As String, iCancel As Integer)
  With sevGrid1
      If nCol = 5 Or nCol = 7 Or nCol = 11 Or nCol = 13 Or nCol = 15 Or nCol = _
        17 Then
         ' If CBool(sText) = True Then
         If sText = "Wahr" Then
            sText = "1"
         Else
            sText = "0"
         End If
      End If
      iCancel = 0
  End With
End Sub