Gruppe
Funktion
Problem
Der Formel in C1 soll eine Rundungsformel zur 5er-Rundung hinzugefügt werden.
StandardModule: Modul1
Sub SetRound()
Dim sFormula
sFormula = ActiveCell.Formula
sFormula = Right(sFormula, Len(sFormula) - 1)
sFormula = "=round(" & sFormula & "*2,1)/2"
ActiveCell.Formula = sFormula
End Sub