Diagramm erkennt Name der Datenreihen nicht
31.08.2017 13:13:01
Peter
ich habe ein Makro, dass die Diagramme in jedem Worksheet den Wertebereich bis zur letzten Spalte angibt. Das funktioniert auch super, nur erkennt er nicht, dass die Spalte B (also B5:B105) die Namen der "Datenreihen" angibt. Leider erkennt das Diagramm dies nicht. Ich hätte es gerne in der Legende Wie füge ich dies hinzu?
Wäre super, wenn mir jemand helfen könnte.
Sub Makro2()
IngLastColumn = ActiveSheet.Cells(5, ActiveSheet.Columns.Count).End(xlToLeft).Column
Set Bereich = ActiveSheet.Range(ActiveSheet.Cells(5, 2), ActiveSheet.Cells(105, IngLastColumn))
Range("A112").Select
Dim ws As Worksheet
Dim co As ChartObject
For Each ws In ThisWorkbook.Worksheets
ws.Activate
For Each co In ws.ChartObjects
co.Select
With ActiveChart
.ChartType = xlLine
.SetSourceData _
Source:=Bereich, _
PlotBy:=xlRows
.SetElement (msoElementLegendRight)
End With
Next co
Next ws
End Sub
Anzeige