Alternativknap vs. Diagram

Ups fejl i formlen

=HVIS(G22=1;Statistik!$E$7:$E$9;HVIS(G22=2;Statistik!$E$11:$E$12;Statistik!$E$14:$E$16)))

xl siger at det ikke kan lade sig gører at skrive hvis formler i dataområde og værdier......

Hvad gør jeg så ??

Prøv at lave et separat område hvor grafen henter sine data, og så placerer du hvis-sætningen i cellerne her.

Eneste lille bøvlede ting er, at du så er nødt til at kopiere hvis-sætningen ud på hele området.

Hej Chewie

Jeg har haft samme problem med en graf, hvor mine områder ændrede sig pga jeg med en makro indsatte nye linier.

Jeg løste problemet med en makro, som kig ind og satte område for data til graf. Det hjalp.

Hilsen

Lars

Kig = gik ;-)

Prøv i øvrigt at se på nedenstående - der en en række grafikfunktioner ,og jeg vil tro at de kan tilpasses dine behov

http://j-walk.com/ss/excel/files/chartseriesinfo.exe

jeg klarede den med denne macro
---------------------------------------------
Sub TelefonDiagram()
'www.SRKnudsen.dk
    ActiveSheet.ChartObjects("Diagram 5").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A7:A8,E7:E8"), _
        PlotBy:=xlColumns
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A7:A9,E7:E9"), _
        PlotBy:=xlColumns
    ActiveWindow.Visible = False
    Windows("Statistik.xls").Activate
    Range("H1").Select
   
End Sub
Sub VilHa()

    ActiveSheet.ChartObjects("Diagram 5").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A11:A13,E11:E13" _
        ), PlotBy:=xlColumns
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A11:A12,E11:E12" _
        ), PlotBy:=xlColumns
    ActiveWindow.Visible = False
    Windows("Statistik.xls").Activate
    Range("H1").Select
   
End Sub
Sub Opklad()

    ActiveSheet.ChartObjects("Diagram 5").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A14:A16,E14:E16" _
        ), PlotBy:=xlColumns
    ActiveWindow.Visible = False
    Windows("Statistik.xls").Activate
    Range("H1").Select
'wwwSRKnudsen.dk
End Sub

---------------------------------

Tak for indsatsen