Beträge runden - VBA | HERBERS Excel Forum

Uwe · 2013-07-11T14:10:22+00:00

Hallo, ich habe eine umfangreiche Liste mit vielen Zahlen. Die Zahlen werden ohne Kommastellen angezeigt, obgleich Nachkommastellen existieren. Ich möchte nun sämtliche Zahlen ohne Nachkommastellen. Gibt es einen VBA-Befehl, der aus sämtlichen Zahlen mit Nachkommastellen Zahlen ohne Nachkommastellen macht? LG Uwe

Hallo Uwe,
ich habe den Code in einer Tabelle mit 10x10 Einträgen getestet (ein paar Kommazahlen, ein paar Formeln, ein paar Texte). Da lief der innerhalb einer tausendstel Sekunde oder so durch.
Wenn du den Code ins Worksheet_Change setzt (da gehört er NICHT hin!) passiert folgendes:
Der Code läuft, bis er die erste Zahl findet. Er ändert diese.
-Worksheet Change zieht den Code erneut an
--Der Code läuft, bis er die erste (jetzt: zweite) Zahl findet. Er ändert diese.
--Worksheet Change zieht den Code erneut an
--- Der Code läuft, bis [...] und so weiter.
Der Code läuft also X-mal alle Zellen durch. X ist die Anzahl der Zahlen insgesamt...
Was du machen KÖNNTEST, aber davon rate ich ab:
schreibe an den Anfang des Codes application.Enableevents = false und an den Ende des Codes application.Enableevents = True.
Damit verhinderst du, dass der Code sich selber immer wieder aufruft.
Besser:
überlege dir, bei welchem Event du den Code WIRKLICH auslösen musst. Bei JEDEM Worksheet_Change ALLE Zellen durchzugehen ist sicherlich nicht notwendig! Alternative: Lass den COde EINMAL laufen, und dann schreibe dir ein Worksheet-Change, dass jeweils die veränderten ZEllen anfasst und nicht ALLE. Das könnte dann so aussehen:

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

Grüße,
Klaus M.vdT.

…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 :-?

Beträge runden - VBA

Forumthread: Beträge runden - VBA

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Beträge runden mit VBA in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)