Jos,

Here is a solution I made using the Presentations package ($50) which I sell through my web site.

<< Presentations`
list1 = FinancialData["GE", "Feb. 5, 2014"];
list2 = FinancialData["Gold", "March. 5, 2014"];

For plotting, I scale up the gold price by a factor of 4. (Is that actually the gold price?)

list1a = list1 /. {date : {__}, price_} :> {date, 4 price};

Then I make custom ticks for GE, Gold and also for the dates. With Presentations we can treat everything as a graphics primitive and just draw them, one after another, in one plot.. So the following draws the plot:

dateticks = 
  CustomDateTicks[{{2014, 2}, {2015, 2}, {4, "Month"}, 4}, 
   DateString[#, {"MonthNameShort", "  ", "Year"}] &];
goldticks = 
  CustomTicks[4 # &, {20, 30, 2, 2}, 
   CTNumberFunction -> (Style[#, ColorData["Legacy"]["Orange"]] &)];
geticks = 
  CustomTicks[Identity, {50, 90, 10, 4}, 
   CTNumberFunction -> (Style[#, Blue] &)];

Draw2D[
 {DateListDraw[list1a, PlotStyle -> Orange],
  DateListDraw[list2, PlotStyle -> Blue],
  Text["Gold", {3.609*^9, 95}],
  Text["GE", {3.618*^9, 73.34}]},
 AspectRatio -> 0.3,
 Frame -> True,
 FrameTicks -> {{goldticks, geticks}, {dateticks, 
    dateticks // NoTickLabels}},
 BaseStyle -> {FontSize -> 12},
 ImageSize -> 500]