$Eintragszaehler = 0;
for ($BL=1;$BL<=16;$BL+=1)
{
out "<br />$BL";
    get "Id==* range=0,1", "betreuung_$BL";
    for ($i=0;$i<=$_amount_all;$i+=500)
    {
    out "<br />$i";
        get "Nummer<>\"\" range=$i,500", "betreuung_$BL", "betreuung_$BL";
        while (get_next "betreuung_$BL")
        {
       $bnr = $Nummer;
       get "Nummer==$bnr" , "EMAIL";
       if (get_next "EMAIL")
       {
                 out "wahrscheinlich Haha $i $BL<br />";
              }
       else
       {
                 put ["Nummer",$bnr], "EMAIL";
                 $Eintragszaehler = $Eintragszaehler+1;
                 $Eintraege.= "Die $bnr war in der EMAIL-Datenbank nicht eingetragen.\n\n";
       }
        }
    }
}