Folgende Ursprungsformel funktioniert:
Function FORMEL_1(Zelle)
Application.Volatile
If Left(Zelle.FormulaLocal, 1) = "=" Then _
FORMEL_1 = Right(Zelle.FormulaLocal, Len
(Zelle.FormulaLocal) - 1) Else _
FORMEL_1 = ""
End Function
Nach einigen Veränderungen sowie dem Einfügen von "VBA.Left" funktioniert nun nichts mehr (Fehlermeldung:"Argument ist nicht optional"):
Function FORMEL_1(Zelle As Range) As String
If VBA.Left(Zelle.HasFormula) Then _
FORMEL_1 = Right(Zelle.FormulaLocal, Len
(Zelle.FormulaLocal) - 1) Else _
FORMEL_1 = ""
End Function
Oder ist etwa alles falsch???
Danke!
Martin