Private Sub sevGrid3_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
Dim zeile As Integer
Dim Position As Integer
 
'FilNu = sevGrid3.Text(nRow, "FilNr")
'Menge = sevGrid3.Text(nRow, "Menge")
'Position = Val(Right$(sevGrid3.Text(nRow, "RestIDNr"), 2))
'sSQL = "FilNr = " & "'" & FilNu & "'"
'zeile = sevGrid2.FindFirst(sSQL, True)
'sevGrid2.Text(zeile, Position + 3) = sevGrid2.Text(zeile, Position + 3) - Menge
 
Position = Val(Right$(sevGrid3.Text(nRow, "RestIDNr"), 2))
zeile = sevGrid2.FindFirst("FilNr = " & "'" & sevGrid3.Text(nRow, "FilNr") & _
  "'", True)
sevGrid2.Text(zeile, Position + 3) = sevGrid2.Text(zeile, Position + 3) - _
sevGrid3.Text(nRow, "Menge")
 
End Sub