Excel ungewünschte Datenreihen
18.02.2020 08:36:38
Tim
.ChartType = xlLineMarkers
.Location where:=xlLocationAsNewSheet, Name:="Preise"
' Die Preise der Anbieter für AC als Diagramm dargestellt
.SeriesCollection.NewSeries
With .SeriesCollection(1) 'Preise AC
.XValues = Worksheets("Test").Range(xAchse)
.Values = Worksheets("Test").Range(preiseAC)
.Name = "AC Preise der Anbieter"
.ChartType = xlColumnClustered
With .Border
.LineStyle = xlContinuous
.Color = RGB(72, 118, 255)
.Weight = xlThin
End With
.MarkerStyle = xlMarkerStyleCircle
.MarkerSize = 3
End With 'SeriesCollection
'Die Preise der Anbieter für DC als Diagramm dargestellt
.SeriesCollection.NewSeries
With .SeriesCollection(2) 'Preise DC
.Values = Worksheets("Test").Range(preiseDC)
.Name = "DC Preise der Anbieter"
.ChartType = xlColumnClustered
With .Border
.LineStyle = xlContinuous
.Color = RGB(0, 0, 0)
.Weight = xlThin
End With
.MarkerStyle = xlMarkerStyleCircle
.MarkerSize = 3
End With 'SeriesCollection
'Mittelwerte werden angezeigt als ein Graph mit dauerhaft dem selben Wert
.SeriesCollection.NewSeries
With .SeriesCollection(3) 'Mittelwert AC
.Values = Worksheets("Test").Range(mittelwertAC)
.Name = "Mittelwert AC"
.ChartType = xlLineMarkers
With .Border
.LineStyle = xlDashDot
.Color = RGB(72, 118, 255)
.Weight = xlThin
End With
.MarkerStyle = xlNone
End With 'SeriesCollection
.SeriesCollection.NewSeries
With .SeriesCollection(4) 'Mittelwert DC
.Values = Worksheets("Test").Range(mittelwertDC)
.Name = "Mittelwert DC"
.ChartType = xlLineMarkers
With .Border
.LineStyle = xlDashDot
.Color = RGB(178, 34, 34)
.Weight = xlThin
End With
.MarkerStyle = xlNone
End With 'SeriesCollection
End With
Guten Tag,
ich möchte mittels eines Buttons ein Diagramm erstellen. Allerdings entstehen hierbei immer mehr Datenreihen. Es dürften eigentlich nur vier erstellt werden. Allerdings entstehen mehr als vier teilweise, diese Datenreihen sind dann aber leer.
Woran kann dies liegen?