hab schon gegooglt, aber nix gefunden und es dann per Hand mit F4 gemacht. Ziemlich nervig bei über 200 Formeln pro Arbeitsblatt.
Gibt es eine Möglichkeit bei allen Formeln in einem Arbeitsblatt die Dollarzeichen einzufügen?
Danke
Sub Dollar_in_Formeln()
On Error GoTo Fehler
Dim RNG As Range
For Each RNG In Selection.SpecialCells(xlCellTypeFormulas)
RNG.Formula = Application.ConvertFormula(RNG.Formula, xlA1, , xlAbsolute)
Next
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub