This works:
With(
{_Reccount:CountIf(DierEvent,xDocaNummer>0)}
,ForAll(
Sequence(RoundUp(_Reccount/2000,0),1)
,With(
{
source: Filter(DierEvent,xDocaNummer>0)
}
,ForAll(
source
,With(
{
_TxtDocaNum:Text(xDocaNummer,"00000")
,_rec:ThisRecord
}
,Patch(
DierEvent
,_rec
,{
Animal:LookUp([@Animals] As AN,AN.'Animal Number'=_TxtDocaNum)
,xDocaNummer:0
}
))
)
)
)
)