kann mir vielleicht jemand sagen was man bei folgendem code ändern muß damit das diagramm mit der tabelle mitwächst?
Sub Makro3()
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sensor 1").Range("H12:I61"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "='Sensor 1'!R13C6:R61C7"
ActiveChart.SeriesCollection(2).XValues = "='Sensor 1'!R13C6:R61C7"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
Danke