Diagrammreihen zuviele angezeigt
13.02.2009 09:25:00
Ulf
Hallo,
in der angefügten Datei habe ich ein Diagramm und als Daten
3 Meßreihen von zwei Tagen. Also 6 Datenreihen.
Die Anzeige der aktuellen Messreihe wird über die
CommandButton_Messung_1, 2, 3 korrekt ausgeführt.
Dazu dient:
Sub diagramm_daten_lesen(i)
ActiveSheet.ChartObjects("Diagramm 1").Activate
Diagrammdaten = "C" + CStr(i + 4) + ":H" + CStr(i + 4)
ActiveChart.SetSourceData Source:=Sheets("Daten").Range(Diagrammdaten), PlotBy:=xlRows
End Sub
Das Problem kommt dann, wenn ich für eine Meßreihe die Daten von gester und
heute anzeigen will.
Sub diagramm_alle_daten_lesen(i)
ActiveSheet.ChartObjects("Diagramm 1").Activate
Diagrammdaten_gestern = "C" + CStr(i + 1) + ":H" + CStr(i + 1)
Diagrammdaten = "C" + CStr(i + 4) + ":H" + CStr(i + 4)
ActiveChart.SetSourceData Source:=Sheets("Daten").Range(Diagrammdaten, Diagrammdaten_gestern), _
_
PlotBy:=xlRows
End Sub
Hier werden nicht nur die daten der Zeile i+1 und Zeile i+4 angezeigt sondern
auch die Daten zwischen i+1 und i+4.
Gruß Ulf