Thread: Zellenwert runden in VBA

Hallo epione,

bitte poste in den allgemeinen Foren nur in Englisch. Ich habe Deinen Thread ins Non-English Forum verschoben.

Es gibt in VBA auch eine Round Funktion. Probier mal dies:

Sub round()

Sheets("Projections").Range("AA5").Value = Round(Sheets("Projections").Range("AA5").Value,2)

End Sub

Gruss

Application.Worksheetfunction kannst Du benutzen, wenn VBA selbst keine entsprechende Funktion hat, z.B. wenn Du ein CountA() machen möchtest:

' Get last used row of DataSheet
iLastRow = Application.WorksheetFunction.CountA(ws.Range("A:A"))

Zum Thema vba.round hab ich keinen Plan, bin selbst noch ziemlich am Anfang mit VBA.

(I leave this to teylyn to translate):
VBA has a Round function which is different from the Round worksheet function. When you use VBA.Round (or just Round) in code, you are using the VBA version, which uses bankers rounding (to nearest even number); Application.Round or Application.WorksheetFunction.Round uses the ROUND worksheet function, which uses symmetric arithmetic rounding (i.e. .5 rounds up).

epione, brauchst Du ne Übersetzung?

Obwohl ich mir ziemlich sicher bin, dass romperstomper das auch alleine hinkriegen würde.

Ich spreche kein Deutsch seit etwa 20 Jahren! Hab' fast das Ganze vergessen.