Makro bzw. Funktion für Formelanzeige
Beate
Hallo Jan,
das ginge mit folgendem Makro was auf der Bearbeiten/Ersetzen-Ebene arbeitet:
Sub Formeln_Hochkomma()
Columns("F:F").Replace What:="=", Replacement:="'=", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Nur leider funktioniert es nicht, dies auf umgekehrtem Weg rückgängig zu machen.
Ein Ausweg wäre es, eine Hilfspalte anzulegen und dort folgende Formel einzufügen:
=DisplayCellFormula(F1)
dann sieht man in der Hilfsspalte die Formel in Spalte F. Diese Hilfsspalte könnte man per Makro ein- oder ausblenden.
Dafür müsste aber die
Function DisplayCellFormula in ein Modul kopiert werden:
Function DisplayCellFormula(InputCell As Range) As String
DisplayCellFormula = InputCell.FormulaLocal
End Function
Gruß,
Beate