Dear Jos,

Perfect solution, thank you very much. Very kind of you :-)

best regards

Andras

Hi Andreas,

I assume this what you expected !

ClearAll["Global`"]

calcresults = 
  Import["D:\\En\\Mathematica_Stuff\\CALCRESULTS.xlsx", {"Data", 1}];
p1                       = calcresults[[All, {1 , 2}]];
p2                       = calcresults[[All, {1 , 3}]];
p3                       = calcresults[[All, {1 , 4}]];
flowresults  = calcresults[[All,  {1 , 5} ]]; 

pressureplot = ListLinePlot[{p1, p2, p3} 
  , PlotStyle -> {Green , Blue , Red} 
  , Frame -> {{True, None}, {True, True}}
  , FrameStyle -> Automatic
  , FrameTicksStyle -> {{None, 
     Red}, {Directive[FontColor -> Gray, White], None}}
  , PlotLegends -> 
   Placed[{"Pressure Col B", "Pressure Col C", "Pressure Col D"}, 
    Bottom]
  , PlotRangePadding -> 0
  , ImagePadding -> 40
  ]
flowplot = ListLinePlot[ 
  flowresults 
  , Frame -> {{None, True}, {None, None}}
  , FrameTicks -> All
  , FrameStyle -> Automatic
  , FrameTicksStyle -> {{None, 
     Blue}, {Directive[FontColor -> Gray, White], None}}
  , PlotRangePadding -> 0
  , ImagePadding -> 40
  , PlotLegends -> {Style["Flowplot", Blue]}
  ]
Overlay[{pressureplot, flowplot}]

I hope this will help, see file attached !

Regards....Jos

Attachments:

@Hendrik, I know this code but is much more complicated as you aleready mentioned. The function "Overlay" is simple to use. Thanks anyway for the tip and reply !

Regards,....Jos

Dear Jos,

I've summarized the results of a lengthy engineering calculation in a spreadsheet, CALCRESULTS.xlsx. I try to plot results with the attached notebook ListLinePlot.nb. I would like to combine pressureplot and flowresults within one chart, where pressures belong to the left axis, and flowresults belong to the right axis, because they are very different in magnitude. Timepoints are the same.

Tx in advance, Andras

Attachments: