Private Sub DataGrid_verbrauch_CurrentCellChanged(ByVal sender As Object, ByVal _
  e As System.EventArgs) Handles DataGrid_verbrauch.CurrentCellChanged
        Dim inUpdateMode As Boolean = False
        Dim inEditMode As Boolean = True
        Dim currentCell As DataGridCell
        Dim editcell As DataGridCell
        Dim cellPos As Rectangle
 
 
        If Not inUpdateMode Then
            If inEditMode And Not DataGrid_verbrauch.CurrentCell.Equals( _
              editCell) Then
                inUpdateMode = True
                DataGrid_verbrauch.Visible = False
                currentCell = DataGrid_verbrauch.CurrentCell
                DataGrid_verbrauch.Item(editcell.RowNumber, _
                  editcell.ColumnNumber) = txtedit.Text
                DataGrid_verbrauch.CurrentCell = currentCell
                DataGrid_verbrauch.Visible = True
                inUpdateMode = False
                txtedit.Visible = False
                inEditMode = False
            End If
            editcell = DataGrid_verbrauch.CurrentCell
            txtedit.Text = CStr(DataGrid_verbrauch(editcell.RowNumber, _
              editcell.ColumnNumber))
            cellPos = DataGrid_verbrauch.GetCellBounds(editcell.RowNumber, _
            editcell.ColumnNumber)
            txtedit.Left = cellPos.Left - 1
            txtedit.Top = cellPos.Top + DataGrid_verbrauch.Top - 1
            txtedit.Width = cellPos.Width + 2
            txtedit.Height = cellPos.Height + 2
            txtedit.Visible = True
            inEditMode = True
        End If
 
    End Sub