function [ListeRueck, ZZreturn] = NachbarSuche(xcoord, ycoord, I, S, Liste, ZeilenZaehler)
h=-1;
j=-1;
    for h=-1:1:1
        for j=-1:1:1
            if abs(I(xcoord+h,ycoord+j) - I(xcoord,ycoord)) < S % Schwellwertausschlusskriterium
                if ismember([xcoord+h ycoord+j], Liste, 'rows')~=1
                         Liste(ZeilenZaehler,1)=xcoord+h;
                         Liste(ZeilenZaehler,2)=ycoord+j;
                         ZeilenZaehler=ZeilenZaehler+1;
                         [ListeRueck, ZZreturn]=NachbarSuche(xcoord+h, ycoord+j, I, S, Liste, ZeilenZaehler);
                         Liste=ListeRueck;
                         ZeilenZaehler=ZZreturn;
                end
            end
        end
    end

ZZreturn=ZeilenZaehler;
ListeRueck=Liste;

end