Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = Range("A1").Formula
If Left(x, 1) = "=" Then MsgBox "Formel: " & x
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then MsgBox "formel:" & Target.FormulaLocal
End Sub