Bankers Rounding bei Prozentwerten

Hallo liebes Forum,
ich stehe gerade auf dem Schlauch und hoffe, ihr könnt mir helfen. Ich möchte per VBA in einem Excel-Zellbereich Prozentzahlen mit den standardmäßigen Nachkommastellen runden zu "ganzzahligen" Prozentwerten, also bspw. 0,521234 zu 0,52. Als Besonderheit soll nicht kaufmännisch gerundet werden, sondern gemäß dem bankers rounding. Genau das sollte mit ROUND direkt gehen:


Sub BankersRounding()
Dim rngZelle As Range
Set rngZelle = ThisWorkbook.Sheets(1).Range("A1")
rngZelle.Value = Round(rngZelle.Value, 2)
End Sub

Was jetzt passiert ist folgendes: wenn in A1 der Wert 0,545 steht (also 54,5%), dann rundet ROUND klassisch kaufmännisch zu 0,55. Das ist genau nicht gewünscht, weil beim bankers rounding jeweils zur nächsten geraden Zahl (in dem Fall zum nächsten geraden "ganzen" Prozentwert) gerundet wird, d.h. das gerundete Ergebnis sollte hier 0,54 sein. Wenn in A1 dagegen der Wert 54,5 steht, dann rundet ROUND korrekt zu 54. Es hilft auch nicht, wenn man den Wert von 0,545 in A1 erst mit 100 multipliziert (was ja dann 54,5 ist), dann rundet und anschließend wieder durch 100 teilt (Ergebnis ist dann wieder 0,55). Der Unterschied besteht selbst dann, wenn ich völlig unabhängig von einer Zelle in VBA rechne:


Sub BankersRounding()
Debug.Print (Round(54.5))           'Ergebnis ist 54
Debug.Print (Round(0.545 * 100))    'Ergebnis ist 55
End Sub

Offensichtlich wird das Ergebnis der Multiplikation mit 100 anders behandelt als der erste Werte ohne Multiplikation. Die Frage wäre also, ob es einen einfachen Weg gibt das Bankers Rounding auf die Prozentzahlen anzuwenden, ohne die Prüflogik der Rundungsmethode in mehreren Schritten nachbauen zu müssen?
Vielen Dank für eure Gedanken,
Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BankersRounding() Dim rng As Range: Set rng = ThisWorkbook.Sheets("Test").Range("A2:A101") Dim zeile As Integer: zeile = 2 Dim wert As Variant For Each wert In rng With ThisWorkbook.Sheets("Test") .Cells(zeile, 4).Value = Round(wert.Value, 2) .Cells(zeile, 5).Value = Round(CDbl(wert.Value), 2) .Cells(zeile, 6).Value = Round(CDec(wert.Value), 2) End With zeile = zeile + 1 Next wert End Sub

…Marco,
denn es gibt nur 2 „normale“ Rundungsmethoden (neben generellem Abrunden/Kürzen bzw Aufrunden), asymmetrisches („kaufmännisches“) und symmetrisches (mathematisch-naturwissenschaftliches, auch von Bankern verwendetes Runden). Bei letzterem wird bei nachfolgender 5 versucht, einen symmetrischen Ausgleich zu schaffen. Folgt dieser 5 eine 1 wird aufgerundet, folgt ihr eine 0 idR abgerundet. Ist die Anzahl der Dezimalen ungleich, kann die Genauigkeit nicht größer sein als 1 Dezimale weniger als die kleinste DezimalenAnzahl. 0,521234 wird demzufolge zu 0,52; 0,545 kann aber auch zu 0,55 statt 0,54 wdn, das hängt ggf auch von den anderen Zahlen ab (speziell bei MatrixFmln und VBA-Berechnung ganzer %-Blöcke) und natürlich davon, ob weitere Dezimalen nicht nur unterdrückt wurden. %-Format entspricht dabei einer vorangegangenen Division durch 100, die bei der Anzeige berücksichtigt wird. Schreibt man dagegen 54,5% in eine Zelle, wird die Division durchgeführt und der eigentliche Zellwert lautet 0,545, der in Xl idR automatisch als %-Zahl formatiert wird. Xl rundet allerdings asymmetrisch. Willst du Xl dazu bringen, symmetrisch zu rechnen, musst du eine UDF mit der vbFkt Round in Xl-Fmln verwenden, die ggf auch noch einen ganzen Zahlenblock einbezieht und so eine bessere Symmetrie schafft. Mit einer SubProzedur wäre das ggf auch möglich.
Morhn, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg

Beliebteste Forumthreads (12 Monate)

Bankers Rounding bei Prozentwerten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread