Hallo,

ich habe folgendes Problem:

ich möchte bei diesem Diagramm eine bestimmte Menge an Daten einlesen. Es soll alles in einem satz drinnen stehen, aber variabel sein und abhängig, wieviele felder befüllt sind. mit der while schleife bekomm ich ja meine anzahl(maxi) raus, die ich brauche. Mein problem ist jetzt, wie ändere ich

ActiveChart.SeriesCollection(1).Values = _
        "='4. Quanitatives Ergebnis'!$AC$4:$AC$15"
    ActiveChart.SeriesCollection(1).XValues = _
        "='4. Quanitatives Ergebnis'!$Y$4:$Y$15"

das die nicht nur bis zeile 15 gehen, sondern halt 4+maxi zeilen einlesen.

hat wer einen rat??

Danke im vorraus!

Sub abcanalyse()

Dim maxi As Double
maxi = 0
While (Cells(4 + maxi, 25) <> "")
maxi = maxi + 1
Wend

ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkersStacked
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=""ABC-Analyse"""
    ActiveChart.SeriesCollection(1).Values = _
        "='4. Quanitatives Ergebnis'!$AC$4:$AC$15"
    ActiveChart.SeriesCollection(1).XValues = _
        "='4. Quanitatives Ergebnis'!$Y$4:$Y$15"
 
    ActiveChart.ApplyLayout (5)

end sub