in welke munt wordt een aandeel/koers genoteerd ?

[cow18]

goeie middag iedereen, een blijkbaar niet zo'n simpele vraag (anders had ik ze niet gesteld)
opgelet voor excel>=365 !!!

zie bijlage, ik gebruik de formule "AANDELENGESCHIEDENIS" om de koers van een aandeel te kennen. Het gekke is dat Excel blijkbaar voorin de cel de munt er bij zet, maar dat de cel zelf in numberformat "standaard" staat.
Nu ben ik eigenlijk geïnteresseerd om bijvoorbeeld die $,€ of yen eruit te halen (als numberformat) om daarmee dan een daarbij behorende bereik datzelfde numberformat te geven (bv. "#.##0,00 €"), maar hoe weet ik nu dat daar een "€" voorin staat ?

 

[cow18]

gevonden.
Als je in VBA ".text" opvraagt ipv. ".Value"
je moet het maar weten
Kan het ook zonder VBA ?

 

[cow18]

blijkbaar zoiets, stom eigenlijk

Sub Test()
     Dim s1, s2, Format_, c
     For Each c In Range("C3:J3").Cells
          s1 = "\" & Left(Trim(c.Text), 1) & " "     'munt symbool
          s2 = "#,##0.00"                    'numberformat
          Format_ = s1 & s2 & ";[red]" & s1 & "-" & s2     'samengestelde munt & numberformat
          With c.Offset(2)
               .Value = -123456.789
               .NumberFormat = Format_       'instellen numberformat
          End With
     Next
End Sub