Hoi Pimboli,

Onderstaande Functie geeft de formule weer van een cel naar keuze. De formule wordt omgezet naar het Engels )

Function GetFormula(Cell As Range) As String
   GetFormula = Cell.Formula
End Function

Op deze pagina vind je ook een VBA procedure om alle formules die op een blad staan in een apart blad te tonen. (Alweer in 't Engels )

groetjes

PS. Ik blijf met je meehopen dat één van de specialisten hier een Nederlandse oplossing uit zijn mouw kan schudden.
 

Hoi, een vraag die meer vragen oproept dan antwoorden geeft?

Oplossing voor Spyder:  Bovenste msgBox geeft de locale taalversie van de formule.
Oplossing voor Pimboli: Onderste msgBox geeft de formule van ELKE voorwaardelijke opmaak... telkens voor cel A3.

Wel effe opletten: Bij voorwaardelijke opmaak wordt er rekening gehouden met relatieve en absolute verwijzingen.  Voer je de macro uit terwijl cel A3 geselecteerd is, dan krijg je de juiste Voorwaardelijke opmaak.  Is er een andere cel geselecteerd, dan krijg je ook de juiste voorwaardelijke opmaak, maar dan moet je rekening houden met relatieve verwijzingen.

Sub test()
    Dim i As Integer
    MsgBox Range("A3").FormulaLocal
    For i = 1 To Range("A3").FormatConditions.Count
        MsgBox Range("A3").FormatConditions.Item(i).Formula1
    Next
End Sub

Luc