Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Runden mit VBA vs. Rundungsfunktion in Excel

Runden mit VBA vs. Rundungsfunktion in Excel
14.02.2005 15:16:19
Bernd
Hallo Spezialisten,
ich möchte Euro-Werte (Ganze Zahlen) in Tausend-Euro-Werte per VBA umrechnen. Dabei ergeben sich Rundungsprobleme. VBA rundet anders als die übliche Funktion "Runden(Zahl;Anzahl_Stellen)".
(Auszug aus dem Code)
...
For Each cell In Selection
cell.Value = Round(cell.Value, 0)
Next
...
VBA-Ergebnisse:
102.500 = 102 (falsch)
105.500 = 105 (korrekt)
110.500 = 110 (falsch)
Hat jemand einen Tipp ?
Danke und Gruß
Bernd

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Runden mit VBA vs. Rundungsfunktion in Excel
Ute
versuchs mal so:
For Each cell In Selection
cell.Value = application.Round(cell.Value, 0)
Next
Ute
AW: Runden mit VBA vs. Rundungsfunktion in Excel
Bernd
sorry, habe mich beim zweiten Ergebnis vertippt (VBA-Ergebnis = 106 bzw. korrekt)
AW: Runden mit VBA vs. Rundungsfunktion in Excel
Galenzo
[b1]=Worksheetfunction.Ceiling([a1],1000)
entspricht der Funktiono =OBERGRENZE(..
AW: Runden mit VBA vs. Rundungsfunktion in Excel
Bernd
Vielen Dank an euch für die schnellen Tipps.
Das Problem liegt darin, dass die VBA-Vorgabe mathematisch rundet und die Excel-Funktion kaufmännisch. Application.round rundet leider anders als die normale Excel-Funktion.
Ich hab jetzt aber eine Lösung gefunden (mir ist das mal im Rahmen der Euro-Umstellung über den Weg gelaufen):
Public

Function Round(ByVal Number As Double, ByVal digits As Integer) As Double
Round = Int(Number * 10 ^ digits + 0.5) / 10 ^ digits
End Function

dies im Modul vorangestellt und dann gehts.
Gruß
Bernd
Anzeige

46 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige