Wie verwende ich die Round-Funktion in VBA?

In VBA (Visual Basic for Applications) wird die `Round`-Funktion verwendet, um eine Zahl auf eine angegebene Anzahl von Dezimalstellen zu runden. Die Syntax der `Round`-Funktion ist wie folgt:

Round(Expression, [NumDigitsAfterDecimal])

`Expression`: Erforderlich. Die Zahl, die gerundet werden soll.
`NumDigitsAfterDecimal`: Optional. Die Anzahl der Dezimalstellen, auf die gerundet werden soll. Wenn dieses Argument weggelassen wird, wird auf die nächste ganze Zahl gerundet.

Hier sind einige Beispiele, wie die `Round`-Funktion in VBA verwendet werden kann:

   Dim result As Double
   result = Round(3.627)   ' Ergebnis: 4

   Dim result As Double
   result = Round(3.627, 2)   ' Ergebnis: 3.63

   Sub RoundExample()
       Dim number As Double
       Dim roundedNumber As Double
       
       number = 5.56789
       roundedNumber = Round(number, 3) ' Rundet auf 3 Dezimalstellen
       
       MsgBox "Das gerundete Ergebnis ist: " & roundedNumber
   End Sub

Runden auf eine ganze Zahl:
Runden auf eine bestimmte Anzahl von Dezimalstellen:
Verwendung der Round-Funktion in einem Makro:

Es ist wichtig zu beachten, dass die `Round`-Funktion in VBA das Runden nach der “Round Half to Even”-Methode verwendet, die auch als Banker’s Rounding bekannt ist. Das bedeutet, dass bei einem .5-Wert die Zahl zur nächsten geraden Zahl gerundet wird.

facebooklinkedin