' **************************************************************
'  Modul:  mdlFormelAusgabe  Typ = Allgemeines Modul
' **************************************************************

Option Explicit
' Beispiel für Formelauslesen mit UDF
' Peter Haserodt 2005
 
Public Function Deu_FormelA1(DieZelle As Range) As String
 If DieZelle.HasArray Then
  Deu_FormelA1 = "{" & DieZelle.FormulaLocal & "}"
 Else
  Deu_FormelA1 = IIf(DieZelle.HasFormula, _
    DieZelle.FormulaLocal, "Keine Formel")
 End If
End Function
 
Public Function Deu_FormelR1(DieZelle As Range) As String
 If DieZelle.HasArray Then
  Deu_FormelR1 = "{" & DieZelle.FormulaR1C1Local & "}"
 Else
  Deu_FormelR1 = IIf(DieZelle.HasFormula, _
    DieZelle.FormulaR1C1Local, "Keine Formel")
 End If
End Function
 
Public Function Eng_FormelA1(DieZelle As Range) As String
 If DieZelle.HasArray Then
  Eng_FormelA1 = "{" & DieZelle.Formula & "}"
 Else
  Eng_FormelA1 = IIf(DieZelle.HasFormula, DieZelle.Formula, "Keine Formel")
 End If
End Function
 
Public Function Eng_FormelR1(DieZelle As Range) As String
 If DieZelle.HasArray Then
  Eng_FormelR1 = "{" & DieZelle.FormulaR1C1 & "}"
 Else
  Eng_FormelR1 = IIf(DieZelle.HasFormula, _
   DieZelle.FormulaR1C1, "Keine Formel")
 End If
End Function