if(length(bins.oben[[1]])>=length(bins.oben[[2]])){
        tag.oben <- TRUE
        sno.tagging.oben <- append(sno.tagging.oben, colnames(current.col))
        print.oben <- collect.mRNA.genes.CDbox[bins.oben[[1]],4]


        abstand.oben <- 0
        for (o in 2:number.bins){
          if(length(bins.oben[[o]]) == 0){
            abstand.oben <- abstand.oben+1
          }
          else{
            break
        }

        }

        collect.abstand.oben[i] <- abstand.oben
    }