|
Hallo,
ich habe folgendes Problem und hoffe ihr könnt mir helfen:
Ich habe einige Tabellen und möchte dazu dynamische Diagramme erstellen, bei denen immer die letzten 20 Werte in das Diagramm eingehen.
Das funktioniert mit folgendem Code auch ganz gut.
Public Sub DiagrammQuelleAendern()
Dim oBlatt As Worksheet, oDia As ChartObject
Set oBlatt = Worksheets("Tabelle1")
With oBlatt
Set oDia = Sheets("Tabelle2").ChartObjects(1)
oDia.Chart.SetSourceData .Range("B" & .Cells(Rows.Count, 3).End(xlUp).Row - 20, "F" & .Cells(Rows.Count, 3).End(xlUp).Row)
End With
End Sub
Leider haben einige der Tabellen weniger als 20 Einträge. Deshalb würde ich gerne wissen, ob es für diesen Fall eine Möglichkeit gibt, den Anfangsbereich des Diagramms zu variieren, sodass er mir beispielsweise nur 15 oder 10 Datensätze, je nachdem wie viele halt vorhanden sind, in das Diagramm aufnimmt.
|