I want to write a function which loops through a column and creates a
chart.
for some reason it isnt working and it dont gives an error at all.

any ideas what is wrong?

---cut---
Sub DiagrammErstellen()

Dim oldi
oldi = 2

For i = 2 To Application.WorksheetFunction.CountA("A:A") Step 10

Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(oldi +
":" + i + "," + oldi + ":" + i + "")
'ActiveChart.SetSourceData
Source:=Sheets("Tabelle1").Range("A2:A7,B2:B7")
ActiveChart.Location Whe=xlLocationAsNewSheet
Charts.Add

oldi = i
Next
End Sub

---cut---


--
A.S.
------------------------------------------------------------------------
A.S.'s Profile: http://www.excelforum.com/member.php...o&userid=26003
View this thread: http://www.excelforum.com/showthread...hreadid=393646