VBA-Code Optimierung
19.01.2017 10:10:53
Franky
hätte eine eine bitte und zwar wie könnte ich diesen Teilabschnitt meines Programms optimieren, also einfacher schreiben?
'AGN Balken
ActiveChart.SeriesCollection(1).Name = "=""AGN"""
ActiveChart.SeriesCollection(1).Values = ActiveSheet.Range("$I$11:$AB$11")
ActiveChart.SeriesCollection(1).Interior.ColorIndex = 30
'AGP Balken
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""AGP"""
ActiveChart.SeriesCollection(2).Values = ActiveSheet.Range("$I$17:$AB$17")
ActiveChart.SeriesCollection(2).Interior.Color = RGB(105, 139, 34)
'AGW Linie mit Marker
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""AGW"""
ActiveChart.SeriesCollection(3).Values = ActiveSheet.Range("$I$23:$AB$23")
ActiveChart.SeriesCollection(3).Format.Line.Weight = 3
ActiveChart.SeriesCollection(3).Border.ColorIndex = 23
ActiveChart.SeriesCollection(3).ChartType = xlLineMarkers
ActiveChart.SeriesCollection(3).MarkerBackgroundColor = RGB(0, 102, 204)
ActiveChart.SeriesCollection(3).MarkerForegroundColor = RGB(0, 102, 204)
ActiveChart.SeriesCollection(3).MarkerStyle = xlMarkerStyleDiamond
ActiveChart.SeriesCollection(3).MarkerSize = 10
'AGW Vorwoche Gestrichelte Linie mit Marker
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "=""AGW - Vorwoche"""
ActiveChart.SeriesCollection(4).Values = _
"='AGW Übersicht KW03.2017'!$I$26:$AA$26"
ActiveChart.SeriesCollection(4).Format.Line.Weight = 3
ActiveChart.SeriesCollection(4).XValues = ActiveSheet.Range("$I$5:$AB$5")
ActiveChart.SeriesCollection(4).Border.ColorIndex = 15
ActiveChart.SeriesCollection(4).ChartType = xlLineMarkers
ActiveChart.SeriesCollection(4).MarkerBackgroundColor = RGB(192, 192, 192)
ActiveChart.SeriesCollection(4).MarkerForegroundColor = RGB(192, 192, 192)
ActiveChart.SeriesCollection(4).Format.Line.DashStyle = msoLineDash
ActiveChart.SeriesCollection(4).MarkerStyle = xlMarkerStyleCircle
ActiveChart.SeriesCollection(4).MarkerSize = 8
ActiveChart.Axes(xlValue).MajorGridlines.Select
'Datenreihen hinzufügen und einige Löschen
ActiveChart.SeriesCollection(4).ChartType = xlLineMarkers
ActiveChart.SeriesCollection(3).ApplyDataLabels
ActiveChart.SeriesCollection(3).Points(2).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(3).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(4).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(5).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(7).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(8).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(9).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(10).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(11).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(13).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(14).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(15).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(17).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(18).DataLabel.Delete
ActiveChart.SeriesCollection(3).Points(19).DataLabel.Delete
ActiveChart.Axes(xlValue).MajorGridlines.Select