So runden sie werte in vba (mit beispielen)

Sie können die RoundUp- Methode in VBA verwenden, um Werte zu runden.

Diese Funktion verwendet die folgende grundlegende Syntax:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

In diesem speziellen Beispiel wird der Wert in Zelle A1 auf die nächste ganze Zahl gerundet und das Ergebnis in Zelle B1 angezeigt.

Beachten Sie, dass das zweite Argument der RoundUp- Methode die Anzahl der aufzurundenden Ziffern angibt, wobei:

• -3 Runden auf die nächsten Tausend
• -2 Runden auf die nächsten Hundert
• -1 rundet auf die nächste Zehn auf
• 0 rundet auf die nächste ganze Zahl
• 1 rundet auf das nächste Zehntel (eine Dezimalstelle) auf
• 2 auf das nächste Hundertstel gerundet (zwei Dezimalstellen)
• 3 auf das nächste Tausendstel gerundet (drei Dezimalstellen)

Und so weiter.

Die folgenden Beispiele zeigen, wie Sie die RoundUp- Methode in der Praxis anwenden können.

Beispiel 1: Runden Sie in VBA auf die nächste ganze Zahl

Wir können das folgende Makro erstellen, um den Wert in Zelle A1 auf die nächste ganze Zahl zu runden und das Ergebnis in Zelle B1 anzuzeigen:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass der Wert 1432,78 in Zelle A1 auf die nächste ganze Zahl von 1433 in Zelle B1 gerundet wurde.

Beispiel 2: Runden Sie in VBA auf den nächsten Hundert

Wir können das folgende Makro erstellen, um den Wert in Zelle A1 auf den nächsten Hundert zu runden und das Ergebnis in Zelle B1 anzuzeigen:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), -2)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass der Wert 1432,78 in Zelle A1 auf den nächsten Hundert von 1500 in Zelle B1 gerundet wurde.

Beispiel 3: Runden Sie in VBA auf das nächste Zehntel

Wir können das folgende Makro erstellen, um den Wert in Zelle A1 auf das nächste Zehntel (also eine Dezimalstelle) zu runden und das Ergebnis in Zelle B1 anzuzeigen:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 1)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass der Wert 1432,78 in Zelle A1 auf das nächste Zehntel von 1432,8 in Zelle B1 aufgerundet wurde.

Hinweis : Die vollständige Dokumentation zur VBA- RoundUp- Methode finden Sie hier .

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So schreiben Sie SUMIF- und SUMIFS-Funktionen
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen
VBA: So schreiben Sie die Funktionen AVERAGEIF und AVERAGEIFS