function Normalize(Datum, NormZP)

load(sprintf('%i/%i_Rohdaten.mat', Datum, Datum)) 
if (NormZP == 0)
    disp('No normalization is done.');
end

for i=1:length(ZPListe)
    %relative Werte berechnen falls Normalisierung erwünscht
    if (NormZP == 0)
        eval(sprintf('R=t%s;', ZPListe(i,:)));    
    else
        eval(sprintf('R=t%s./t%s;', ZPListe(i,:), addZeros(NormZP, 5)));
    end 
    
    M(i,:)=mean(R);             %Mittelwert in Zeile 5 schreiben
    S(i,:)=std(R);              %Standardabweichung in Zeile 6 schreiben
              
    for spalte=1:24   
       %Extreme suchen. Falls es ein Outliner ist rausnehmen und Mean und Std neu berechnen 
       
       [ext, werteOext] = extreme(R(:,spalte)); 
       
       if ext == 9999
          N(i,spalte)=4; %muss man noch ändern!!!!!!!!!
       elseif (abs(ext-mean(werteOext)) > abs(2*std(werteOext)))
          M(i,spalte)=mean(werteOext); 
          S(i,spalte)=std(werteOext);
          N(i,spalte)=3; %muss man noch ändern!!!!!!!!!!
       else
           N(i,spalte)=4; %
       end
    end
  
     eval(sprintf('n%s=R;', ZPListe(i,:)));
    
    clear R
end

clear R ext werteOext spalte i t*

    mkdir(sprintf('%i/%s', Datum, addZeros(NormZP, 5)))
    save(sprintf('%i/%s/%i_norm_%s.mat', Datum, addZeros(NormZP, 5), Datum, addZeros(NormZP, 5)))

cd(sprintf('%i/%s', Datum, addZeros(NormZP, 5)))
    
mkdir TTest/fig    
mkdir TTest/csv
mkdir Bar/fig
mkdir Bar/csv
mkdir Plots/fig
mkdir Plots/jpg
mkdir Welch/fig
mkdir Welch/csv
mkdir Anova/fig
mkdir Anova/csv
cd ..
cd ..