ich würde gerne die erste und letzte Zeile des Datenbereichs eines eingebetteten Diagramms ausgeben lassen.
Kann mir jemand weiterhelfen?
Vielen Dank
Jan
https://www.herber.de/bbs/user/128692.xlsm
Sub Makro1()
Dim rng As Range
ActiveSheet.ChartObjects("Diagramm 3").Select
Set rng = Range(Split(ActiveChart.FullSeriesCollection(1).Formula, ",")(2))
MsgBox rng.Row
MsgBox rng.Row + rng.Rows.Count - 1
End Sub
cu