function Vektor2=spikes_zahlen(Matrix,Schwellwert)
[Zeilen,Spalten]=size(Matrix);
Vektor2=[];
for n=1:Zeilen
    Vektor=[];
    for n2=2:Spalten
        if Matrix(n,n2)>2& Matrix(n,n2-1)<2  %Kommentar von Jutta:
                                             %hier muesste Schwellwert
                                             %statt 2 stehen!
            Vektor=[Vektor,n2];
        end
    end
Vektor2=[Vektor2,length(Vektor)];

end
Mittelwert=mean(Vektor2)
Standardabweichung=std(Vektor2)