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.