ich hoffe Ihr könnt mir hier weiter helfen?!
ich verzweifel so langsam und find auch irgendwie keine Lösung.. :(
In einem bestehendem Diagramm mit zwei Mittelwertreihen sollen weitere Messerwerte aus x belibigen Arbeitsblättern dargestellt werden.
Soweit funktioniert das auch, aber nach dem 4 oder 5 hinzugefügtem Arbeitsblatt werden dann die Datenreihen im Diagramm nicht mehr angezeigt, in der Legende aber schon
Das Funktioniert irgendwie nur, wenn ich dann manuell das Chart in der Menüleiste über Diagrammtools/Entwurf/Daten auswählen anglicke.
Dann sind alle Dateinreihen in der Graphik sichtbar, oder Excel geht einfach zu und stürzt ohne Warung ab.
Das ist so mein Code und hab da schon etliches mit dem ActiveChart ausprobiert :(
Dim iW As Integer
Dim iR As Integer
Dim dataX As Range
Dim i As Integer
Dim dataN As String
Worksheets("Zusammenfassung").ChartObjects("Diagramm 14").Activate
For iW = Worksheets("Start_Mittelw").Index + 1 To Worksheets("Ende_Mittelw").Index - 1
'die Berechnung und das Kopieren in allen Arbeitsblättern zwischen Start und Ende
With Worksheets(iW) 'in den Arbeitsblättern dann folgende Aktion ausführen
iR = .Cells(Rows.Count, 7).End(xlUp).Row 'definiert die Länge der Range je Arbeitsblatt zum kopieren
Set dataX = .Range("D2:D" & iR) 'Spalte "R" für den Motorstrom
dataN = Worksheets(iW).Name 'Name des Ausgewählten Tabellenblatts (wird nachher im chart verwendet)
i = ActiveChart.SeriesCollection.Count + 1 'zählt die Serien im Diagramm
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = dataN
ActiveChart.SeriesCollection(i).AxisGroup = 1
ActiveChart.SeriesCollection(i).ChartType = xlLine
ActiveChart.SeriesCollection(i).Values = dataX
ActiveChart.PlotArea.Select
ActiveChart.Refresh
End With
strString = ""
Set objObjekt = Nothing
Next iW
ActiveCell.Select
End Sub
über Hilfe wäre ich sehr dankbar