ich habe eine Datei die ständig, Tag für Tag, mit neuen Daten gefüllt wird.
Dabei müsste ich den Diagramm immer aktualisieren - linien nach unten ziehen damit die neuen DAten auch für das Diagramm erfassbar werden.
Hier ist der Diagramm und die Änderungen die ich mit dem Macrorecorder aufgenommen habe.
ActiveWindow.SmallScroll Down:=-54
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Select
Windows("Bestandsbericht.xls").SmallScroll Down:=75
ActiveChart.SeriesCollection(1).Values = "=Gesamt!R11C2:R110C2"
ActiveChart.SeriesCollection(1).XValues = "=Gesamt!R11C1:R110C1"
ActiveChart.SeriesCollection(2).XValues = "=Gesamt!R11C1:R110C1"
ActiveChart.SeriesCollection(3).XValues = "=Gesamt!R11C1:R110C1"
ActiveChart.SeriesCollection(4).XValues = "=Gesamt!R11C1:R110C1"
ActiveChart.SeriesCollection(5).XValues = "=Gesamt!R11C1:R110C1"
Windows("Bestandsbericht.xls").SmallScroll Down:=-72
ActiveChart.SeriesCollection(3).Select
Windows("Bestandsbericht.xls").SmallScroll Down:=60
ActiveChart.SeriesCollection(3).Values = "=Gesamt!R11C4:R110C4"
Windows("Bestandsbericht.xls").SmallScroll Down:=-57
ActiveChart.SeriesCollection(2).Select
Windows("Bestandsbericht.xls").SmallScroll Down:=60
ActiveChart.SeriesCollection(2).Values = "=Gesamt!R11C3:R110C3"
Windows("Bestandsbericht.xls").SmallScroll Down:=-66
ActiveChart.SeriesCollection(4).Select
Windows("Bestandsbericht.xls").SmallScroll Down:=54
ActiveChart.SeriesCollection(4).Values = "=Gesamt!R11C5:R110C5"
Windows("Bestandsbericht.xls").SmallScroll Down:=-57
ActiveChart.SeriesCollection(5).Select
Windows("Bestandsbericht.xls").SmallScroll Down:=81
ActiveChart.SeriesCollection(5).Values = "=Gesamt!R11C6:R110C6"
Ich habe ein rngFind (Variable as Range) gesetzt (set) und könnte somit die letzte Zeile ermitteln.
Wie kann ich das oben einfügen, damit das Diagramm die linien automatisch erweitert und ich es nciht alles per Hand machen muss?
Grüße und danke schon für die Hilfe!
Darren