Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal
Home Zurück Vor
Download Beispiel-Arbeitsmappe

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

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

Copy funktioniert nur einmal
Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?)
SVerweis funktioniert nicht
PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion
Zelladressen von FunktionsParametern ermitteln
Teilzahlen runden / bestimmte Summe
Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht
VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion
Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings?
Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht
Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion
Userform mit Löschfunktion
Abrunden in vba
Frage zu Wenn Dann Funktion
Wenn-Funktion
Frage zur Funktion DISAGIO
Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt
VBA Suchfunktion erweitern
Makro funktioniert nicht richtig
zählenwenn-funktion mit mehreren kriterien
Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office
Runden
Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen
Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile")
Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht
Rundenauslosung
WENN-Funktion
Hide-Funktion in einem Frame
Suchfunktion
Date Funktion
Filter funktioniert nicht
Funktionsname austauschen