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 Where:=xlLocationAsNewSheet
Charts.Add

oldi = i
Next
End Sub

---cut---