Dim NumberOfRows As Integer
         Dim X As Object
         Counter = 2
 
         ' Calculate the number of rows of data.
         NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
 
         With Worksheets("Puma 2.2 Diagramm Upgrade")
            .Range(.Cells(2, 1), _
            .Cells(NumberOfRows + 1, 1)) = _
            ActiveChart.SeriesCollection(1).XValues
         End With