Hi
ich hab unmengen von Daten in verschiedenen "Sheets" und möchte diese in ein Oberflächendiagramm einfügen
Code in Excel lautet:
Dim a As Integer
Dim intRow As Integer
Dim intSheets As Integer
For intSheets = 1 To 2
a = 5
For intRow = 1 To 1
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(intRow).Name = Sheets(intSheets).Cells(a, 1)
ActiveChart.SeriesCollection(intRow).Values = Sheets(intSheets).Range(Cells(a, 3), Cells(a + 95, 3))
ActiveChart.SeriesCollection(intRow).XValues = Sheets(intSheets).Range(Cells(a, 2), Cells(a + 95, 2))
a = a + 96
Next intRow
Next intSheets
Funktioniert für das Erste Tabellenblatt, für die restlichen leider nicht mehr. Kann mir jemand sagen was ich ändern muss?
Grüße Tobi
|