Zur Anzeige in der originalen Sprache kann der optionale Parameter auf Null gesetzt bzw weggelassen werden.
=zellformel(A2;0) oder
=zellformel(A2)
Zur Anzeige in Englisch bei dem optionalen Parameter eine 1 eingegeben.
=zellformel(A2;1)
Nachfolgende der Code für ein allgemeines Modul:
Public Function zellformel(ByVal Zelle As Range, Optional bln As Boolean)
'Autor: Jürgen Hennekes
If bln = True Then
zellformel = Zelle.Formula
Else
zellformel = Zelle.FormulaLocal
End If
End Function
|
||||||||||||||||||||||||||||||||||||||||||||||
