XY Diagram dynamisch aktualisieren

Hallo Excelfreunde,
Ich habe ein XY Diagram (Werte über Zeit), welches dynamisch aktualisiert werden soll. Dazu haben wir in Zelle Z43 die aktuelle Zeit und in Zelle Z44 den Wert aus Z43 minus ein frei wählbares Interval.
Das klappt erstaunlicherweise sogar, trotz meiner stümperhaften Kenntnisse in VBA Syntax.

Private Sub Worksheet_Calculate()
If Range("Z43")  Z43 Then 'Wert hat sich geändert
Set TB = ThisWorkbook.Sheets("MAIN")
TB.ChartObjects("Diagramm 26").Activate
ActiveChart.Axes(xlCategory).MinimumScale = Range("z44")
ActiveChart.Axes(xlCategory).MaximumScale = Range("z43")
ActiveChart.SeriesCollection(2).XValues = Worksheets("EXPORT").Range("a9:a1000")
ActiveChart.SeriesCollection(2).Values = Worksheets("EXPORT").Range("o9:o1000")
ActiveChart.SeriesCollection(3).XValues = Worksheets("EXPORT").Range("a9:a1000")
ActiveChart.SeriesCollection(3).Values = Worksheets("EXPORT").Range("p9:p1000")
ActiveChart.SeriesCollection(4).XValues = Worksheets("EXPORT").Range("a9:a1000")
ActiveChart.SeriesCollection(4).Values = Worksheets("EXPORT").Range("q9:q1000")
End If
End Sub

Die Frage ist, kann man diese Automatik auch ohne "Activate" + "ActiveChart" schreiben? Ich habe es probiert in der Form:


With Diagramm 26
.Axes(xlCategory).MinimumScale = Range("z44")
.Axes(xlCategory).MaximumScale = Range("z43")
End With

Aber ohne Erfolg, auch ein paar Variationen helfen mir nicht weiter. Was mache ich diesmal falsch?
Gruß
Rainer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Set TB = ThisWorkbook.Sheets("MAIN") With TB.ChartObjects("Diagramm 26").Chart .Axes(xlCategory).MinimumScale = Range("z44") .Axes(xlCategory).MaximumScale = Range("z43") .SeriesCollection(2).XValues = Worksheets("EXPORT").Range("a9:a1000") .SeriesCollection(2).Values = Worksheets("EXPORT").Range("o9:o1000") .SeriesCollection(3).XValues = Worksheets("EXPORT").Range("a9:a1000") .SeriesCollection(3).Values = Worksheets("EXPORT").Range("p9:p1000") .SeriesCollection(4).XValues = Worksheets("EXPORT").Range("a9:a1000") .SeriesCollection(4).Values = Worksheets("EXPORT").Range("q9:q1000") End With

With TB.ChartObjects("Diagramm 26").Chart With .Axes(xlCategory) .MinimumScale = Range("z44") .MaximumScale = Range("z43") End With With .SeriesCollection(2) .XValues = Worksheets("EXPORT").Range("a9:a1000") .Values = Worksheets("EXPORT").Range("o9:o1000") End With With .SeriesCollection(3) .XValues = Worksheets("EXPORT").Range("a9:a1000") .Values = Worksheets("EXPORT").Range("p9:p1000") End With With .SeriesCollection(4) .XValues = Worksheets("EXPORT").Range("a9:a1000") .Values = Worksheets("EXPORT").Range("q9:q1000") End With End With

Noch ein Update:

Range("a9:a1000")

ist natürlich ziemlich kurzsichtig, wenn man mehr als 990 Werte bekommen kann. Bei einem "dynamischen Diagramm" vermutlich nicht ungewöhnlich.
Aus:


.SeriesCollection(2).XValues = Worksheets("EXPORT").Range("a9:a1000")
.SeriesCollection(2).Values = Worksheets("EXPORT").Range("o9:o1000")

habe ich nun gemacht:


.XValues = Worksheets("EXPORT").Range("A" & FirstRow & ":A" & LastRow)
.Values = Worksheets("EXPORT").Range("O" & FirstRow & ":O" & LastRow)

wobei natürlich die beiden Rows erst gefunden werden müssen mit:


LastRow = Worksheets("EXPORT").Cells(Rows.Count, 1).End(xlUp).Row
FirstRow = LastRow - 30 * Range("N39") 'N39 time interval in minutes
FirstRow = IIf(FirstRow

Der Term 30 * N39 ergibt sich bei mir aus dem Messdatenabstand von 2 Sekunden.
Viel Spaß damit,
Rainer

Beliebteste Forumthreads (12 Monate)

XY Diagram dynamisch aktualisieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread