Der Code für ein allgemeines Modul. Siehe auch
Programmierung -> Code aus Forum.
Public Sub Fomeln_absolut_setzen()
'Code für ein allgemeines Modul
On Error Resume Next
Dim rngZelle As Range
For Each rngZelle In Selection.SpecialCells(xlCellTypeFormulas)
rngZelle.Formula = Application.ConvertFormula(rngZelle.Formula, xlA1, , xlAbsolute)
Next
If Err.Number <> 0 Then
MsgBox "Es wurden keine Formeln im markierten Bereich gefunden.", 48
Else
MsgBox "Alle Formeln im markierten Bereich wurden absolut gesetzt.", 64
End If
End Sub
Um alle Dollarzeichen, innerhalb der Formeln, wieder zu entfernen.
Public Sub Dollarzeichen_loeschen()
'Code für ein allgemeines Modul
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas).Replace What:="$", Replacement:="", LookAt:=xlPart
If Err.Number <> 0 Then
MsgBox "Es wurden keine Formeln im markierten Bereich gefunden.", 48
Else
MsgBox "In allen Formeln im markierten Bereich wurden die Dollarzeichen entfernt.", 64
End If
End Sub