Formule uit trendlijn plaatsen

[phoenixcmb]

Ik wil de formule die uit een trendlijn komt op een vaste plek zetten binnen de grafiek. Kan dit, en zo ja hoe?
De gegevens in de gafiek zijn dynamisch, dus de formule uit de trendlijn ook. Wanneer ik echter 1x de formule op een plak heb geplaatst (handmatig) en ik wijzig de gegevens dan komt de formule weer bij de trendlijn te staan.

 

[Wigi]

Hallo

zet dit

Sub Worksheet_change(ByVal target As Range)
    If Not Intersect(target, Range("B3:H9")) Is Nothing Then
        ActiveSheet.ChartObjects("Chart 1").Activate
        With ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel
            .Left = 67
            .Top = 36
        End With
    target.Cells(1).Select
    End If
End Sub

als code achter je werkblad.

Wigi

 

[phoenixcmb]

Hallo

zet dit

Sub Worksheet_change(ByVal target As Range)
    If Not Intersect(target, Range("B3:H9")) Is Nothing Then
        ActiveSheet.ChartObjects("Chart 1").Activate
        With ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel
            .Left = 67
            .Top = 36
        End With
    target.Cells(1).Select
    End If
End Sub

als code achter je werkblad.

Wigi

Bedankt voor je snelle reaktie, Ik heb je script in het werkblad geplaatst maar wanneer de trendlijn wijzigt, en dus ook de formule daaruit, dan blijft de formule niet op de plek staan waar ik die heb geplaatst.

 

[Wigi]

Je werkt met Events, gebeurtenissen. Je vraagt Excel iets te doen (op de juiste plaats zetten) wanneer er iets anders gebeurt.

Probleem nu is dat er wel een Event is zoals het updaten van een grafiek, maar dan:

1. moet die grafiek op een afzonderlijk tabblad staan
2. is die code niet voor de handliggend en ook niet alledaags gebruik, ook niet voor mij.

Als Event heb ik hier gespecifieerd het wijzigen van een cel in het bereik met de gegevens. Als daar dus iets wijzigt, gaat de formule wel goed geplaatst worden.

Wigi