ich habe ein Diagramm, dass mir jeweils Daten auf Basis der letzten 6 Monate anzeigt.
Die Daten werden monatlich aktualisiert. Die jeweilige Monatsspalte wird mit den Daten aufgefüllt.
Jetzt bin ich soweit, dass ich herrausgefunden habe den Bereich zu verschieben, siehe Code unten, nur leider packt er mir die drei Berieche (siehe Scrennshot im JPG Anhang) zu einem zusammen.
Ich möchte aber nur die Datenbereiche verschieben und nicht den Beschriftungsbereich, und das Layout des Diagramms (auch im JPG) soll so bleiben wie es ist.
Weiß jemand Rat?
Sub Makro1()
Dim lngLetzteSpalte As Long
Dim chDiagramm As Chart
Set chDiagramm = Worksheets(1).ChartObjects("Diagramm 1").Chart
lngLetzteSpalte = Cells(6, Columns.Count).End(xlToLeft).Column
With Range("B15:B20")
Cells(6, lngLetzteSpalte + 1).Resize(.Rows.Count, 1) = .Value
End With
With chDiagramm
.SetSourceData Source:=Tabelle1.Range(Cells(5, lngLetzteSpalte - 4), Cells(10, _
lngLetzteSpalte + 1)), PlotBy:=xlColumns
End With
End Sub