l = 120 'Zeile
c = Lettre2NumCol("BP") 'Spalte
Dia_Num = 5 'Nummer des Diagramms
For k = 2 To 3
'Selektierung die Datei
Cells(l + 1, c - 1).Select
ActiveCell.End(xlDown).Select
Zone1 = ActiveCell.Address
Selection.Offset(0, 2).Select
Zone2 = ActiveCell.Address
Set D = Range(Cells(l + 1, c - 1), Zone1)
Set X = Range(Cells(l + 1, c + 1), Zone2)
Set MaPlageMultiZone = Union(X, D)
ZoneSelection = MaPlageMultiZone.Select
'Plottierung die Kurve
ActiveSheet.ChartObjects("Diagramm " & Dia_Num & "").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(k).Delete
ActiveChart.SeriesCollection(k).Name = Cells(l, c)
ActiveChart.SeriesCollection(k).XValues = D
ActiveChart.SeriesCollection(k).Values = X
ActiveChart.SeriesCollection(k).Select
Selection.MarkerStyle = -4142
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
c = c + 3
Next k