Hallo,

bei folgendem Code habe ich das Problem, dass er mir neben den Spalten, auch Zeilen ins Diagramm einträgt, was er eigentlich nicht soll. Leider finde ich den Grund nicht. Hoffe mir kann da jemand helfen!

Sub Diagramm_Q()
  Dim i As Integer, n

    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
      .ChartType = xlXYScatter
      For i = 3 To Cells(1, Columns.Count).End(xlToLeft).Column Step 9
        n = n + 1
        .SeriesCollection.NewSeries
        .SeriesCollection(n).Values = Range(Cells(3, i), Cells(Columns.Count, i).End(xlUp))
        .SeriesCollection(n).XValues = "='Tabelle5'!$A$1:$A$180"
        .SeriesCollection(n).Name = "Q_z"
        .Axes(xlCategory).Select
        .Axes(xlCategory).MaximumScale = 1.2
        .Axes(xlCategory).MaximumScale = 1
        .Axes(xlCategory).MajorUnit = 0.2
        .Axes(xlCategory).MajorUnit = 0.08
                      
      Next
    End With
End Sub