Bernds Rappelkiste

Hier nun mal das Script:

Option Explicit
Option Compare Text

'(c)1999 Andreas K. andreas@example.org

Const TrennZ = "-+/*^()"
Const ZahlZ = "-.,0123456789"
Const HochZ = "0123"
Const Hoch2Z = "º¹²³"

Function FORMELTEXT(Bereich, Aktuell As String) As String

Application.Volatile

  Dim Art As Integer, i As Integer, j As Integer, k As Integer, n As Integer
  Dim BezAnf As Integer
  Dim tI As String, tA As String, c As String * 1, buf As String * 256, tF As String

  On Error Resume Next
  tI = Bereich.FormulaLocal
  If Left(tI, 1) = "=" Then
    tA = ""
    Art = 0                                   ' 0: Operand erwartet
    n = Len(tI)
    For i = 2 To n + 1
      If i > n Then
        c = ""
        k = 1
      Else
        c = Mid(tI, i, 1)
        k = InStr(TrennZ, c)
      End If
      If k = 0 Then
        k = InStr(ZahlZ, c)
        If k = 0 Then
          If Art = 0 Then
            Art = 2                           ' 2: Bezug oder Funktion
            BezAnf = i
          End If
        Else
          If Art < 2 Then                     ' 1: Operand
            Art = 1
            tA = tA & c
          End If
        End If
      Else
        If Art = 2 Then
          If c = "(" Then
            tA = tA & Mid(tI, BezAnf, i - BezAnf)
          Else
            With Range(Mid(tI, BezAnf, i - BezAnf))
              tF = CStr(.Value)
              tF = Format(.Value, .NumberFormat)
            End With
            tA = tA & tF
          End If
        End If
        Select Case c
        Case "*"
          c = "·"
        Case "^"
          j = InStr(HochZ, Mid(tI, i + 1, 1))
          If i < n And j > 0 And (i + 1 = n Or InStr(TrennZ, Mid(tI, i + 2, 1)) > 0) Then
            c = Mid(Hoch2Z, j, 1)
            i = i + 1
          End If
        End Select
        tA = tA & c
        Art = 0                               ' 0: Operand erwartet
      End If
    Next
    n = Len(tA)
    buf = tA
    FORMELTEXT = Left(tA, n)
  Else
    FORMELTEXT = ""
  End If

End Function

Wie man am Copyright-Vermerk sieht, ist das Ding schon recht alt. Den Namen und die E-Mail-Adresse habe ich vorsichtshalber anonymisiert, da die angegebene Domain wohl inzwischen anderweitig vermarktet wird und ich auch zum angegebenen Namen bei Google nichts gefunden habe.

Sollte sich Andreas hier wiederfinden, soll er sich doch bitte mal bei mir melden.

Hinweis für alle mit Excel 2013: Da Excel wie oben erwähnt ab 2013 eine eigene Funktion FORMELTEXT() besitzt, bekommt man eine Warnmeldung, dass das Script den gleichen Namen hat. Möchte man dies vermeiden (ich habe bisher außer der Warnmeldung keine negativen Folgen bemerkt), muss man im Script ein bisschen Hand anlegen und z. B. FORMELTEXT durch FORMELTEXT2 ersetzen. Das sollte man dann gleich zu Anfang machen, denn sonst muss man später wieder alle Formeln in den Zellen anpassen.