Diagramm weiterschreiben
chris58
Ich habe eine Excel Datei, wo ich diverse Index auf einer Gesamtübersicht laden kann. Mittels eines Makros werden die Daten für jeden Tag in die Liste "Statistik" geschrieben. Nun will ich über einen Button diese Statistik mittels eines Diagramms aufrufen. Ich habe mir dazu ein Makro mit dem Recorder gemacht. Nun scheitere ich aber an dem, wenn nun die Daten weitergeschrieben werden, also über B4 hinaus, dann sollen diese Daten ebenfalls in diesem Diagramm aufscheinen. Wie könnte ich das lösen ?
Das Datum steht in: A3:.......jeweils bis zum letzten Eintrag
Die Daten des Index stehen in: B3: ..........jetzt bis B4............aber das geht ja dann weiter bis.......sagen wir B10000
Danke
chris
Sub baltic()
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("B3:B4"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Uebersicht"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Baltic Dry Index"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlTimeScale
ActiveChart.Axes(xlCategory).Select
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("B3:B4"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Statistik!R3C1:R4C1"
End Sub
Anzeige