{"id":55000711,"date":"2026-04-01T00:00:00","date_gmt":"2026-04-01T00:00:00","guid":{"rendered":"http:\/\/access-basics.de\/711"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"VBA_basics_Richtig_runden_mit_VBA","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/VBA_basics_Richtig_runden_mit_VBA.html","title":{"rendered":"VBA [basics]: Richtig runden mit VBA"},"content":{"rendered":"

Wer in VBA Zahlen rundet, greift meist zur eingebauten Round-Funktion. Das klingt naheliegend, führt aber regelmäßig zu überraschenden Ergebnissen. Der Grund liegt in einem Rundungsverfahren, das für kaufmännische Zwecke ungeeignet ist. Wir zeigen Dir, wo das Problem liegt und wie Du es mit einer eigenen Funktion zuverlässig löst.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels findest Du in der Datenbank VBABasics_RundenMitVBA.accdb<\/b>.<\/p>\n

Runden im Alltag<\/h2>\n

Runden gehört zu den häufigsten Operationen beim Arbeiten mit Zahlen in kaufmännischen Anwendungen.<\/p>\n

Ob Rechnungsbeträge, Steuerberechnungen oder statistische Auswertungen – fast überall müssen Dezimalzahlen auf eine bestimmte Anzahl Nachkommastellen gebracht werden.<\/p>\n

In der Schule lernen wir die kaufmännische Rundungsregel: Ist die erste wegfallende Stelle kleiner als 5, wird abgerundet. Ist sie 5 oder größer, wird aufgerundet. Diese Regel ist einfach, eindeutig und für die meisten Anwendungsfälle richtig.<\/p>\n

VBA bietet mit Round<\/b> eine eingebaute Funktion zum Runden. Auf den ersten Blick scheint diese alles zu leisten, was man braucht. Bei näherer Betrachtung offenbart sie jedoch ein Verhalten, das viele Entwickler in die Irre führt.<\/p>\n

Die eingebaute Round-Funktion und ihre Tücke<\/h2>\n

Die Round<\/b>-Funktion hat folgende Syntax:<\/p>\n

Round(Ausdruck, [NachkommaStellenAnzahl])<\/pre>\n
Der erste Parameter ist die zu rundende Zahl, der zweite die gewünschte Anzahl an Nachkommastellen. Fehlt der zweite Parameter, rundet VBA auf eine ganze Zahl. Ein einfaches Beispiel:<\/p>\n
Debug.Print<\/span><\/span> Round(2.49) 'liefert 2\r\nDebug.Print<\/span><\/span> Round(2.5)  'liefert 2\r\nDebug.Print<\/span><\/span> Round(2.51) 'liefert 3\r\nDebug.Print<\/span><\/span> Round(3.5)  'liefert 4<\/pre>\n
Das Ergebnis überrascht: Round(2.5)<\/b> liefert 2<\/b>, obwohl man 3<\/b> erwarten würde. Round(3.5)<\/b> hingegen liefert korrekt 4<\/b>. Der Grund ist das sogenannte „Banker’s Rounding“, auf Deutsch auch als „Round Half to Even“ bezeichnet.<\/p>\n
Banker’s Rounding: Was steckt dahinter?<\/h2>\n
Beim Banker’s Rounding gilt eine besondere Regel für den Grenzfall, dass die erste wegfallende Stelle genau 5<\/b> ist und dahinter keine weiteren Stellen folgen. In diesem Fall wird nicht immer aufgerundet, sondern zur nächsten geraden Zahl gerundet:<\/p>\n