Afrunding af område

=AFRUND("Dit område";0)
Afslut formel med ctrl+shift+enter så den får {} omkring

Denne selvfølgelig

{=SUM(AFRUND(D10:D12;0))}

Tak for hjælpen.

Det er nu ikke en sum jeg har brug for, men derimod at få alle de enkeltstående tal afrundet.

Så vidt jeg kan se så afrunder den formel bare alle tal og lægger dem sammen til sidst.

er det tal eller tal genereret af formler?

Det er importerede tal, så der er ingen formler.

'ret Mappe11 og Ark2 og område til aktuel

Sub afrund()
Dim c, x
Dim tst As String
Dim tst2 As String
Application.ScreenUpdating = False
For Each c In Workbooks("Mappe11").Worksheets("Ark2").Range("A1:R300").Cells
c.Activate
If c.Value = "" Then GoTo ny
ActiveCell.Value = Round(c, 1)
ny:
Next
Application.ScreenUpdating = False
[a1].Activate
End Sub

ActiveCell.Value = Round(c) afrunder til 0 dcimal
ActiveCell.Value = Round(c, 1) afrunder til 1 dcimal
ActiveCell.Value = Round(c, 2) afrunder til 2 dcimal

Hvorfor skal tallene afrundes, hvis ikke de skal bruges i efterflg. beregninger ?

Super - går ud fra at jeg kan bruge ActiveCell.Value = Round(c, -2) for at få afrundet til tusinder.

nej den virker godt nok i regnearket med AFRUND, men ikke i VBA

skift denne ud med:

ActiveCell.Value = Round(c, 1)

denne:

ActiveCell = Application.Round(ActiveCell, -2)

Kanon, send et svar

ok