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
|