Hallo :)
habe wieder mal ein Problem :(
ich habe einen Blatt, das mehrer Diagramen enthält.
ich möchte dass, sie bis letzten Eintrag aktualisiert werden.
Es sollte beachtet werden, dass z.B heute hat Diagram 2 Datenreihen morgen 3 und so weiter. Also sollte der Datenquellenbereich immer auf neue erkannt werden.
ich habe jetzt folgendes geschrieben:
.........
Dim wks_target As Excel.Worksheet
Set wks_target = ActiveWorkbook.ActiveSheet
With wks_target
nRowsCnt = .Cells(.Rows.Count, 1).End(xlUp).Row
nColsCnt = .Cells(31, .Columns.Count).End(xlToLeft).Column
anzahl_charts = ActiveWorkbook.ActiveSheet.ChartObjects.Count
For I = 1 To anzahl_charts
wks_target.ChartObjects(I).Select
On Error Resume Next
ActiveChart.SetSourceData Source:=wks_target.Range(Cells(31, 1), Cells_(row1,nColsCnt))
On Error GoTo 0
Next
End With
Es sollte also in dem Teil: "ActiveChart.SetSourceData Source:=wks_target.Range(Cells(31, 1), Cells_(row1,nColsCnt))" .
Das heisst jetzt, dass die Diagramen werden ab ersten bis letzten Spalte aktualisert.
Ihc möchte allerdings, dass jede Diagram ihre Individuelle Datenreihen behält , z.B. Diagram 1, Range ab C31 bis F & letzte Zeile.
könnt mir jemand helfen... ?
Wäre echt super!!!!
Danke
viele Grüße
Anja