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
cuDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen