Done_SatzTextfortschritt.R