Private Function DiagrammErstellen(sTabellenName As String, iChartNr As Integer)
Dim iAnzahlSpalten As Variant
Dim iZeile, iSpalte As Integer
Dim i As Integer: i = 0
iZeile = 9
iSpalte = 1
iAnzahlSpalten = Cells(1, Columns.Count).End(xlToLeft).Column
ThisWorkbook.Worksheets(sTabellenName).Activate
ActiveSheet.Shapes.AddChart2(, xlLine, , , 700, 500).Select
Application.CutCopyMode = False
For i = 1 To iAnzahlSpalten
<strong>ActiveSheet.ChartObjects(iChartNr).Chart.SeriesCollection.NewSeries</strong>
ActiveSheet.ChartObjects(iChartNr).Chart.FullSeriesCollection(i).Values = range(Cells(iZeile, iSpalte), Cells(9, iSpalte).End(xlDown))
iSpalte = iSpalte + 1
Next i
End Function