Hi,

ich hab mit dem Makrorecorder das erstellen eines Diagrammes automatisiert. Dies gilt aber dummerweise nur für das eine Tabellenblatt. Was muss ich nun angeben das dies für das aktive Blatt gilt, so dass ich nicht für jedes Blatt das Makro ändern muss.

ActiveChart.SetSourceData Source:=Sheets("M1").Range("A9:A274,E9:F274"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="M1"

Bin für jeden Tipp dankbar.

Klaus