Gruppe
Funktion
Bereich
RUNDEN
Thema
Bestehender Formel eine 5er-Rundung hinzufügen
Problem
Der Formel in C1 soll eine Rundungsformel zur 5er-Rundung hinzugefügt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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