Sub graph_test()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"C:\*\Standarddiagramm_fuer_makro.crtx" _
)
ActiveChart.SeriesCollection(1).XValues = "='Tabelle1'!$D$3:$AA$3"
Dim i As Integer
i = 11
Dim k As Integer
k = 1
Do While i < 50
If Range("A" & i) = "Ist" Then
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(k).Name = "='Tabelle1'!$C$" & "i"
ActiveChart.SeriesCollection(k).Values = "='Tabelle1'!$D$" & i & ":$AA$" & i
End If
i = i + 1
k = k + 1
Loop
Dim j As Integer
j = 0
Do While j < ActiveChart.SeriesCollection.Count + 1
ActiveChart.SeriesCollection(j).Select
With Selection.Border
.ColorIndex = 37
.Weight = xlMedium
.LineStyle = xlContinuous
End With
Selection.MarkerStyle = -4142
j = j + 1
Loop
End Sub