Guten Morgen,

ich verstehe nicht genau, was du willst. Denn bei mir wird ein neues Blatt mit dem Namen Diagramm1 erstellt.

Wenn du wirklich nur das i in dein Sub bekommen möchtest, dann probier folgendes:

Sub DiagrammNeuesBlattErstellen()
Dim i As Integer
  
  
For i = 2 To 30
    If Sheets("Kanal1").Cells(i, 1).Value = "" Then
     i = i - 1
Exit For
End If
Next i
      
    ThisWorkbook.Charts.Add Before:=Worksheets("Kanal2")
         
    With ActiveChart
        .ChartType = xlLineMarkers
        .Name = "Diagramm1"
         
        .SeriesCollection.NewSeries
        .SeriesCollection(1).Name = "='Kanal1'!$B$1"
        .SeriesCollection(1).Values = "='Kanal1'!$B$2:$B$" & i
        .SeriesCollection(1).XValues = "='Kanal1'!$A$2:$A$" & i
         
        .SeriesCollection.NewSeries
        .SeriesCollection(2).Name = "='Kanal1'!$C$1"
        .SeriesCollection(2).Values = "='Kanal1'!$C$2:$C$" & i
        .SeriesCollection(2).XValues = "='Kanal1'!$A$2:$A$" & i
         
        .SeriesCollection.NewSeries
        .SeriesCollection(3).Name = "='Kanal1'!$D$1"
        .SeriesCollection(3).Values = "='Kanal1'!$D$2:$D$" & i
        .SeriesCollection(3).XValues = "='Kanal1'!$A$2:$A$" & i
         
        .SeriesCollection.NewSeries
        .SeriesCollection(4).Name = "='Kanal1'!$F$1"
        .SeriesCollection(4).Values = "='Kanal1'!$F$2:$F$" & i
        .SeriesCollection(4).XValues = "='Kanal1'!$A$2:$A$" & i
         
        .SeriesCollection.NewSeries
        .SeriesCollection(5).Name = "='Kanal1'!$G$1"
        .SeriesCollection(5).Values = "='Kanal1'!$G$2:$G$" & i
        .SeriesCollection(5).XValues = "='Kanal1'!$A$2:$A$" & i
         
         
        .SeriesCollection(2).AxisGroup = 2
        .SeriesCollection(5).AxisGroup = 2
        .DisplayBlanksAs = xlInterpolated
        .ClearToMatchStyle
        .ChartStyle = 42
        .Legend.Position = xlTop
         
                 
    End With
     
End Sub

Die Variable muss durch ein & mit dem restlichen Vorgegebenen Code verbunden sein und darf nicht in Anführungszeichen stehen.

Gruß Daniel