Hallo,
wie könnte ich es lösen?
möchte im nachfolgenden Code ein Diagramm erzeugen.
aber ich möchte den bereich für dass Diagramm auf
die zuvor markierten Zellen anwenden. Kann mir einer helfen?
Range("L1:L2").Select
Range(Selection, Selection.End(xlToRight)).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Liste").Range("L1:O2"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="AusgabenOrt"
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
ActiveChart.HasLegend = False