Hallo,

folgendes Problem:

Ich habe einen Kalender in Tabellenform, in den ich meine Noten hineinschreibe.

Z.B. 9S bedeutet 9 Punkte (s)chriftlich, 14M bedeutet 14 Punkte (m)ündlich.

Jede Zeile des Kalender bildet eine Woche, wobei in der ersten Zelle jeweils das Datum des Montags steht. Die darauffolgenden Zellen sind die Tage von Montag bis Freitag.

Die Noten sollen in einer Kurve fürs mündlich und einer Kurve fürs schriftliche in einem Diagramm dargestellt werden.

Da ich kein VBA-Profi bin, aber diverse andere Programmiersprachen beherrsche, stelle ich mir die Auswertung so vor:

Variablen
Datum;
x, y;

begin
für x = Zeile 1 bis Zeile 52 mache
begin
für y = Zelle 2 bis Zelle 7 mache
begin
Datum = (Datum.Zelle 1 + y); //Zelle 1 enthält den Mo der Woche
Wenn Zelle(x,y) nicht leer und Zelle(x,y) enthält 'S' dann Diagramm.Schriftlich.Datum gleich Wert(Zelle(x,y) ohne 'S');
Wenn Zelle(x,y) nicht leer und Zelle(x,y) enthält 'M' dann Diagramm.Mündlich.Datum gleich Wert(Zelle(x,y) ohne 'M');
ende
ende
ende

Es fehlt bloß jemand, der das für mich in VBA gießen kann, also, alle Profis sind gefragt! Ich bedanke mich im Vorraus.