Schönen guten Tag zusammen,

ich benötige mal Eure Hilfe.
Ich erstelle über ein Makro mit folgendem Quellcode ein Diagramm.


Workbooks(Workbooks.Count).Activate
Worksheets("Tabelle1").Select

Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet, name:="Statistik"
ActiveChart.ChartType = xlColumnStacked
Datenbereich = "A2:E" & Zähler_Projekte
Datenbereich2 = "A1:E1"
ActiveChart.SetSourceData Source:=Worksheets("Tabelle1").Range(Datenbereich), _
PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = Worksheets("Tabelle1").Range(Datenbereich2)

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Test"
.ChartTitle.Font.Size = 10
.ChartTitle.Font.Color = RGB(228, 0, 69)
.ChartTitle.Font.FontStyle = "Fett"
.ChartTitle.Font.Underline = xlUnderlineStyleSingle
.Axes(xlCategory, xlPrimary).TickLabels.Font.FontStyle = "Fett"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Volume [in T]"
.Axes(xlValue, xlPrimary).AxisTitle.Font.FontStyle = "Fett"
.Axes(xlValue, xlPrimary).AxisTitle.Font.Color = RGB(0, 0, 0)
.Axes(xlValue, xlPrimary).TickLabels.NumberFormat = "$#,##0_);($#,##0)"
.Axes(xlValue, xlPrimary).DisplayUnit = xlThousands
.Axes(xlValue, xlPrimary).MaximumScale = 40000000
.Axes(xlValue, xlPrimary).MinimumScaleIsAuto = True
.Axes(xlValue, xlPrimary).MajorUnit = 5000000
.Axes(xlValue, xlPrimary).TickLabels.Font.FontStyle = "Fett"
.Axes(xlValue, xlPrimary).TickLabels.Font.Color = RGB(0, 0, 0)
.Axes(xlValue, xlPrimary).HasDisplayUnitLabel = False
.ChartArea.Interior.Color = RGB(255, 255, 255)
.PlotArea.Interior.Color = RGB(255, 255, 255)
.PlotArea.Fill.Visible = True
.PlotArea.Border.Color = RGB(0, 0, 0)
.HasLegend = True
.Legend.Delete
End With

In diesen Diagrammen sind sehr viele Projekte abgebildet.
Daher würde ich gerne die Projektnamen, die in dem Diagramm angezeigt werden als Datenbeschritung in der Form "Legenden mit Linie 2" darstellen.
Ist das irgendwie möglich?
Ich würde mich sehr über ein paar Hilfestellungen freuen.

LG

kirkhamster