Private Sub Grid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal sText As String)
 
  If nCol = Spaltenindex_der_ComboBox Then
    With .Recordset
      ' .Edit  ' Falls DAO
      .Fields("ZuBerechnendeSpalte") = BerechneterWert
      .Update
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de