sub schleifenanzahl ($$$$) {
  my ($von, $bis, $schritt, $count )=@_;
  return $count * ( int( abs($bis-$von)/$schritt )+1 );
} # end sub schleifenanzahl