Lave graf, som løbende justeres i forhold til de seneste 30 dage

hvor mange rækker skal med ?

Det drejer sig om et fast antal (10 rækker)

ok har du allerede oprettet et diagram ?
hvis ikke så start med det
så laver jeg en VBA kode som kan opdatere grafen

Jeg lytter lige med her =)

Ja, jeg har allerede oprettet et diagram.

Kan jeg uploade det nogen steder?

indsæt koden i et alm. modul

Sub Makro2()
Dim x
x = Cells(1, 255).End(xlToLeft).Column
Range(Cells(1, x - 30), Cells(10, x)).Select
x = Selection.Address: Range("A1").Select
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=ActiveSheet.Range(x), PlotBy:=xlRows
ActiveWindow.Visible = False
Range("A1").Select
End Sub

Diagrammet opdateres når du kører koden
kan evt. gøres automatisk ved ændring af celle

forudsætter du har dato i række 1 og værdier i 2 til 10

Det ser rigtig godt ud. Jeg kan bare ikke helt få det til at funge. Der skal nok bare arbejdes lidt med mit ark - så plejer det at give sig.

sub tst()
ActiveSheet.ChartObjects(1).Activate
end sub

Aktiver ark hvor graf er
evt. deaktiver graf (klik på celle uden for graf)
kør kode
så skulle graf gerne være aktiveret (ramme omkring)
er den det ?

Som jeg forstår opgaven, så vil jeg mene det kan klare med relativt få formler... Jeg har lavet et lille eksempel på

http://www.officekonsulenterne.dk/excel/Dynamiske%20emner.xls

Her skriver man data på første ark, og når der bliver tilføjet en ny kolonne i rådata arket så vil matricen på ark2 kun tage de "bageste" 30 kolonner.

herefter vil man relativt nemt kunne pege en graf på den matrice der er på ark 2. Således vil den graf altid være opdateret med de bageste 3 kolonner.

/Christian
ck@officekonsulenterne.dk

Det var lige præcis løsningen. Tusind tak!

velbekomme, du siger bare til en anden gang ;)

/Christian

Jeg sidder i samme problem som vedkommende der startede denne tråd. Linket med "løsningen" som kedde65 kom med, virker desværre ikke mere. Er der nogen der kan fortælle mig hvad han gjorde for at få løst problemet?

/Johan