xlScatter Chart - vind hoogste X-waarde

[Rattewrat]

Hallo,

Ik probeer door middel van VBA het punt in een Scatter chart te vinden met de hoogste X-waarde, maar ik krijg het niet voor elkaar. Zou iemand mij hier mee kunnen helpen? Dit is wat ik tot nu toe heb:

Dim MaxVal As Integer
MaxVal = 0

    ActiveSheet.ChartObjects("Chart 1").Activate
        For i = 1 To ActiveChart.SeriesCollection.Count
            If ActiveChart.SeriesCollection(j).XValues > MaxVal Then
                MaxVal = ActiveChart.SeriesCollection(j).XValues
            End If
        Next j

En hij loopt vast op ActiveChart.SeriesCollection(j).XValues. Ik heb al meerdere dingen geprobeerd, maar ik krijg dit stukje code niet aan de praat. Hulp zou fantastisch zijn!

Groet,

Willem

 

[Rattewrat]

Niet meer nodig, heb het antwoord al gevonden!

Mocht het iemand anders helpen, ik heb het probleem opgelost met:

P = ActiveChart.SeriesCollection(j).Points.Count
X = WorksheetFunction.Index(ActiveChart.SeriesCollection(j).XValues, P)
Y = WorksheetFunction.Index(ActiveChart.SeriesCollection(j).Values, P)

Groet,

Willem