Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bestehender Formel eine 5er-Rundung hinzufügen

Gruppe

RUNDEN

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