Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As Object)
  Dim nID As Long
 
  With Item
 
    nID = Val(.CellText("IdARKosten"))
    .CellText("IdARKosten") = ""
    If nID > 0 Then
      oRsIdARKosten.Seek "=", nID
      If Not oRsIdARKosten.NoMatch Then
        .CellText("IdARKosten") = oRsIdARKosten.Fields("Beschreibung")
        .CellText("Anrechenbar") = oRsIdARKosten.Fields("Anrechenbar")
 
     End If
    End If
    ARKosten = Val(.CellText(9))
    Satz1 = Val(.CellText(5)) / 100
    Lookup
        .CellText(8) = Grundhon
  End With
End Sub