Range(
"J4"
).
Select
Selection.
End
(xlToRight).
Select
Selection.
End
(xlToRight).
Select
Selection.
End
(xlToRight).
Select
Selection.
End
(xlToRight).
Select
Selection.
End
(xlToRight).
Select
Selection.
End
(xlToRight).
Select
Selection.
End
(xlToLeft).
Select
Dim
lz
As
Variant
lz = ActiveCell.Column
Sheets(
"Diagramm"
).
Select
ActiveSheet.ChartObjects(
"Diagramm 1"
).Activate
ActiveChart.PlotArea.
Select
ActiveChart.SeriesCollection(1).Values = Sheets(
"Tabelle4"
).Range(Cells(5, 10), Cells(5, lz))