VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bestehender Formel eine 5er-Rundung hinzufügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und RUNDEN