|	Zeit	|	Temperatur
----------------------------------------------
	|	15	|	30
	|	20	|	15
	|	25	|	40
*	|		|

	|	Zeit	|	Temperatur
----------------------------------------------
	|	15	|	30
	|	20	|	15
	|	25	|	40
*	|	20[]	|

	|	Zeit	|	Temperatur
----------------------------------------------
	|	15	|	30
	|	20	|	[]
	|	20	|	15
	|	25	|	40
*	|		|

Public Class Test
 
	'DataGridView dgv ist im FormDesigner erstellt und im Form vorhanden
 
	Private dt As DataTable
	Private WithEvents dv As DataView
	Private WithEvents cm As Currency Manager
 
	'Zwischenspeicher
	Private currentRowIndex As Integer
	Private oldVal As Integer
	Private newVal As Integer
 
	'Initialisierung
	Private Sub init(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles Me.Load
		dt = New DataTable
 
		dt.Columns.Add("index", GetType(Integer))
		dt.Columns.Add("Zeit", GetType(Integer))
		dt.Columns.Add("Temperatur", GetType(Integer))
 
		dt.Columns(1).DefaultValue = 0
		dt.Columns(2).DefaultValue = 0
 
		dv = New DataView(dt)
 
		dgv.DataSource = dv
	End Sub
 
	'Neue Zeile ==> bekommt automatisch einen Index zugewiesen
	Private Sub dgv_RowCreated(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles cm.PositionChanged
		Dim drv As DataRowView = DirectCast(cm.Current, DataRowView)
		If drv.IsNew Then
			drv.Item(0) = dt.Rows.Count
		End If
	End Sub
 
	'Zeile wird bearbeitet ==> Ursprünglichen Wert merken
	Private Sub dgv_CellBeginEdit(ByVal sender As Object, _
				ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) _
				Handles dgv.CellBeginEdit
		oldVal = dgv.CurrentCell.Value
	End Sub
 
	'Bearbeiten beendet (Zellenwechsel) ==> Wertevergleich alt/neu, Sortieren, 
' _VERSUCH_, wieder in die richtige Zeile zu kommen
	Private Sub dgvDrehzahlPunkte_CellValueChanged(ByVal sender As Object, _
				ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
				Handles dgvDrehzahlPunkte.CellEndEdit
		newVal = dgv.CurrentCell.Value
		If newVal <> oldVal Then
			currentRowIndex = dgv.CurrentRow.Cells.Item(0).Value
			dgv.Sort(dgv.Columns(1), System.ComponentModel.ListSortDirection.Ascending)
			For Each Row As DataGridViewRow In dgv.Rows
				If Row.Cells(0).Value = currentRowIndex Then
					cm.Position = Row.Index
				End If
			Next
		End If
	End Sub
End Class

----------
VG
U.B.