function workplot(a,b,c,d,fname)

% a = Datenreihe 1 (numerisch)
% b = Datenreihe 2 (numerisch)
% c = Positionen der xticks (numerisch = 1:1:length(a))
% d = Vektor mit den xticks (strings)
% fname = Titel des Plots

% Vergewissern dass die Vektoren gleich lang sind
if numel(a)==numel(d) && numel(b)==numel(d);

z1(length(a))=0;    
z=z1';

A=[a z];
B=[z b];

figure;
[ax,h1,h2]=plotyy(c,A,c,B,'bar','bar');

% Beschriftung der x-Achse veraendern + drehen
xticklabel_rotate((1:1:length(d)),90,d,'color','k','fontsize',12);
%set(ax,'xticklabel',d,'xtick',(1:1:length(d)));


% Eigenschaften der Linien festlegen
%set(h1,'linestyle','-','color','r');
%set(h2,'linestyle','-','color','b');

set(h1,'barlayout','grouped','barwidth',1,'edgecolor','k','facecolor','r');
set(h2,'barlayout','grouped','barwidth',1,'edgecolor','k','facecolor','b');

% y-Achsen beschriften
set(get(ax(1),'ylabel'),'string','Erste y-Achse','color','r','fontsize',14);
set(get(ax(2),'ylabel'),'string','Zweite y-Achse','color','b','fontsize',14);

% y-Achsen Grenzen bestimmen
set(ax(1),'ylim',[-500,500],'ytick',-500:100:500,'fontsize',12);
set(ax(2),'ylim',[-1,1],'ytick',-1:0.2:1,'fontsize',12);


% Farbe der y-Achsen festlegen
%set(ax(2),'ycolor','b');
%set(ax(1),'ycolor','r');

grid on;

% Titel des Diagrams
title(fname,'fontsize',20);

% Diagram als .png speichern
%print e -dpng;
print test -dpdf;
else
    fprintf('Vektoren sind nicht gleich lang!!!')
end
end