aanpassen macro

[Boerman]

Ik hanteer de onderstaande macro:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("ScMin1")
.MaximumScale = Range("ScMax1")
.MinorUnit = Range("MaUnit1")
.MajorUnit = Range("MaUnit1")
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
Application.ScreenUpdating = True

End Sub

Hiermee wordt bereikt dat de grafiek wordt aangepast op het moment dat er een waarde in dit tabblad wijzigt (Private Sub Worksheet_Change(ByVal Target As Range).

Is het ook mogelijk, dat wanneer ik een wijziging aanbreng in een ander tabblad, dat deze macro wordt uitgevoerd.
Wat dient ik hiervoor aan te passen in deze macro?

Boerman

 

[paulva]

Hiervoor kan je het event Workbook_SheetChange uit ThisWorkbook gebruiken in plaats van het event Worksheet_Change uit Sheet1.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Verander dan ook 'ActiveSheet' in 'Sheets("Sheet1")' (de naam van het blad waar de grafiek staat)

 

[Boerman]

Bedankt voor je reactie.

Boerman