AW: Diagramm automatisch einlesen
28.10.2015 08:43:31
Beverly
Hi Bastian,
erstelle ein leeres Diagramm und führe dann diesen Code aus - dann werden alle Datenreihen eingetragen:
Sub ReihenEinfuegen()
Dim lngZeile As Long
For lngZeile = 3 To IIf(IsEmpty(Cells(Rows.Count, 2)), _
Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
With ActiveSheet.ChartObjects(1).Chart
With .SeriesCollection.NewSeries
.XValues = Range(Cells(lngZeile, 29), Cells(lngZeile, 38))
.Values = Range(Cells(lngZeile, 39), Cells(lngZeile, 48))
.Name = Cells(lngZeile, 2)
End With
End With
Next lngZeile
End Sub
Damit sich das Diagramm bei neu hinzukommenden Daten automatisch um diese Datenreihen ergänzt: erweitere deine Tabelle auf die Spalten mit den Formeln.