Hallö!
ich habe einen Datenbereich, der mal 8760 Zeilen und mal 365, mal 55 umfasst (und das in 45 Dateien). Nun möchte ich über einige Spalten ein Diagramm erzeugen.
z sind die Zeilen im Diagramm (also mal 8760, mal 365, ...)
und

Mein Versuch (s.u.) schlägt fehl:

Dim Bereich As Range
Set Bereich = Range(Cells(1, 7), Cells((z + 2), 8))
' z steht für die Zeilen
' und die x-Achse ist in Spalte 7, die y in 8
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("chicago").Range(Bereich), PlotBy:=xlColumns
' hier steigt das Makro aus? Liegt es an der Range?
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.ChartArea.Select
.SizeWithWindow = True
End With

Gruß von der Spree

Carsten