Beträge runden - VBA | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KommaWeg() 'entfernt alle Nachkommastellen 'ignoriert Zellen mit Formel, mit Text und leere Zellen Dim r As Range For Each r In ActiveSheet.UsedRange If Not r.HasFormula And Not r.Value = "" And IsNumeric(r.Value) Then r.Value = WorksheetFunction.RoundDown(r.Value, 0) End If Next r End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Application.EnableEvents = False For Each r In Target 'falls mehr als eine Zelle gleichzeitig selektiert ist r.Value = WorksheetFunction.RoundDown(r.Value, 0) Next r Application.EnableEvents = True End Sub

…Leute…! ;-)
Hatte ich nicht neulich erst darauf hingewiesen, dass die vbFkt Round nicht mit WorksheetFunction.Round gleichgesetzt wdn kann?! Ich hatte das vor Jahren auch mal getan, worauf man mir mitteilte, dass ich auf diesen Umstand hinweisen müsste. Die vbFkt rundet symmetrisch (wiss-techn/„Banker's Rounding“), die xlFkt asymmetrisch (kaufmännisch)*. Das ist bei der x ten Kommastelle sicher kein Problem, aber hier wird auf ganze Zahlen gerundet! Da kann aus glatten 2,5 schon mal 2 statt 3 wdn. Außerdem (nur der Vollständigkeit halber, weil das hier ja nicht benötigt wird) akzeptiert die vbFkt keine Werte <0 im 2.Argument.
Nebenbei, was ist mit Ergebnissen von Fmln? Glaube, die hast du ausgeschlossen, Klaus.
Je nachdem, was bezweckt wird und wie die Datenstruktur ist, kann es zwar sinnvoll sein, FmlErgebnisse zu runden, aber sicher eher nicht die Ausgangswerte (zumindest auf ganze Zahlen; idR unabhängig davon, ob es sich um Primär- oder Berechnungsdaten handelt)! Die permanente Rundung von Ergebnisdaten sollte auch nur dem Zweck dienen, allen Nachnutzern die gleiche Ausgangsbasis für weitergehende Berechnungen zu bieten, um Ergebnisabweichungen möglichst zu verhindern. Dabei kann die Genauigkeit einer berechneten Zahl nur einer Dezimalstelle weniger als sie die gerundete Zahl aus der Gesamtheit der einbezogenen Daten mit den wenigsten Dezimalstellen hat entsprechen.
Ergo sollte man sich idR auf die Rundung der Berechnungsergebnisse beschränken und da kann man das gleich in der Fml tun. Enthalten die Primärdaten aber unnötig viele Dezimalstellen (zB bei Messergebnissen), kann man das so machen wie hier vorgeschlagen. Dadurch wdn allerdings die Originaldaten überschrieben! Vor Jahren hatte ich deshalb eine Subroutine geschrieben, die die Originaldaten in eine Rundungsformel einbettet. Das könnte dann bei Bedarf auch eine symmetrische Rundung sein, denn dafür habe ich eine UDF, die sich sogar im Archiv befinden dürfte (RoundA, A wie alternativ!). Auf diese Weise gehen die Originale nicht verloren (damals waren meteorologische Messdaten der Anlass) und können bei Bedarf wiederhergestellt wdn.
* Dazu steht (viell endlich auch stand?) leider 'ne Menge Unsinn auf der sonst verdienstvollen Site von Luthardt-Chemie!
Gruß Luc :-?

…Dr Luthardt (Luthardt/Chemie&IT) stößt.
Dr Luthardt hat den Fehler begangen, die von ihm verlinkte Seite der MS-Knowledge-Base zu den Rundungsverfahren in MS-Produkten wie ein Dolmetscher, nicht wie ein dt Mathematiker übersetzt zu haben. Die von MS gebrauchten Begriffe stimmen nicht mit den im dt Sprachgebrauch üblichen überein!
So entspricht das arithmetic rounding dem dt Kaufmännischen bzw asymmetrischen Runden, das per DIN 1333 genau geregelt ist: <…5 wird ab-, ≥…5 wird aufgerundet. Die MS-Unterscheidung zwischen symmetric und asymmetric arithmetic rounding, die sich nur auf die unterschiedl Art, negative Zahlen zu runden, bezieht, ist hierbei gegenstandslos, da die DIN vorschreibt, negative Zahlen nach ihrem Absolutwert zu runden. Demzufolge ist das ein weiterer Punkt, der bei Verwendung von MS-Rundungsfktt beachtet wdn muss, denn dem entspräche das Runden weg von 0 oder asymmetric arithmetic rounding.
Das, was MS unter Banker's rounding (auch round to even) versteht, heißt bei uns mathematisches (auch wiss-techn) oder symmetrisches Runden (vgl den entsprd Artikel im dt Wikipedia).
Außerdem gibt's noch weitere Rundungsverfahren, die auch auf der MS-Site nebst Bspp für UDFs, mit denen diese per xl- bzw vbFktt umgesetzt wdn können, angeführt wdn.
Luc :-?

Beliebteste Forumthreads (12 Monate)

Beträge runden - VBA

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread