[COLOR="DarkSlateGray"][B]Sub EUR_FRF()
Dim oCel As Range
For Each oCel In Selection.Cells
If Not IsEmpty(oCel) And IsNumeric(oCel.Value) Then oCel.FormulaR1C1 = "=" & [COLOR="Sienna"]Replace(oCel.Value, ",", ".")[/COLOR] & "*6.55957"
Next oCel
End Sub
Sub FRF_EUR()
Dim oCel As Range
For Each oCel In Selection.Cells
If Not IsEmpty(oCel) And IsNumeric(oCel.Value) Then oCel.FormulaR1C1 = "=" & [COLOR="Sienna"]Replace(oCel.Value, ",", ".")[/COLOR] & "/6.55957"
Next oCel
End Sub[/B][/COLOR]