Makro das Diagramm erstellt anpassen
10.02.2015 12:07:53
Christian
habe mir beim Erstellen eines Diagrammes folgendes Maro aufgezeichnet.
Gibt es eine Möglichkeit den Bereich BK:CT dynamisch zu gestalten, sodass das Diagramm automatisch mit den 36 letzten Spalten in der Tabelle erstellt wird, welche zur Zeit BK:CT sind, aber es kommt monatlich eine Spalte hinzu.
Außerdem wäre es gut, wenn man das Makro über eine Schaltfläche starten kann.
Vielen Dank
Christian
Sub test1()
' test1 Makro
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("BK4:CT20")
ActiveChart.SeriesCollection(1).Name = "=WE!$A$19"
ActiveChart.SeriesCollection(1).Values = "=WE!$BK$19:$CT$19"
ActiveChart.SeriesCollection(15).Delete
ActiveChart.SeriesCollection(14).Delete
ActiveChart.SeriesCollection(13).Delete
ActiveChart.SeriesCollection(12).Delete
ActiveChart.SeriesCollection(11).Delete
ActiveChart.SeriesCollection(10).Delete
ActiveChart.SeriesCollection(9).Delete
ActiveChart.SeriesCollection(8).Delete
ActiveChart.SeriesCollection(7).Delete
ActiveChart.SeriesCollection(6).Delete
ActiveChart.SeriesCollection(5).Delete
ActiveChart.SeriesCollection(4).Delete
ActiveChart.SeriesCollection(3).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveWindow.ScrollColumn = 81
ActiveWindow.ScrollColumn = 79
ActiveWindow.ScrollColumn = 77
ActiveWindow.ScrollColumn = 74
ActiveWindow.ScrollColumn = 72
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 68
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 64
ActiveWindow.ScrollColumn = 63
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 56
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 53
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 51
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 38
ActiveSheet.Shapes("Diagramm 3").ScaleWidth 2.3930557743, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 3").ScaleHeight 1.2662040682, msoFalse, _
msoScaleFromTopLeft
End Sub