Grafiek (gegevensreeks) aanpassen

[ikkek]

Hallo,

Ik wil graag een gegevensreeks van een grafiek (automatisch) aanpassen.
Op blad1 hebben wij een grafiek staan. Op blad2 staat de gegevensreeks.

Als er gegevens (binnen bereik) worden aangepast, wordt de grafiek ook aangepast. Als we echter een nieuwe regel aanmaken willen we die ook graag opnemen in de grafiek.

We hebben een macro gemaakt die automatisch de reeks aanpast, maar die past ook de x en y as aan.

Heeft iemand een idee ?

Mijn huidige macro:

Sheets("Blad1").Activate
ActiveSheet.ChartObjects("Grafiek 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Blad2").Range("A1",
Range("A1").End(xlToRight).End(xlDown)), _
PlotBy:=xlColumns

Als bijlage een (voorbeeld)-bestand. (ingepakt)

Mvg,
ikkek.

 

[Jan van Asseldonk]

Ik kan je rar-bestand wel openen maar dat lijkt leeg te zijn. Krijg het in elk geval niet uitgepakt.
Misschien heb je alvast iets aan een van de bijgevoegde voorbeelden van Stephen Bullen.
Meer voorbeelden vind je op zijn internetpagina.

 

[ikkek]

Hallo Jan,

Bedank voor uw reactie.

Ik heb het probleem opgelost. Wel op een andere manier.
Het was mijn bedoeling om de selectie automatisch te laten uitbreiden.
Heb nu gekozen voor de eerste 10 records. (ook voor overzicht van grafiek)

Mvg,
Ikkek