Ich würde gerne in einer Spalte Zahlen mit Makro auf die nächst größere Zahl automatisch runden lassen
Könnt ihr mir vielleicht da weiterhelfen?
Sub test()
Dim i As Integer
i = 1
Do While Cells(i, 1).Value ""
ActiveSheet.Cells(i, 1).Value = Application.WorksheetFunction.RoundUp(ActiveSheet.Cells(i, 1). _
Value, 0)
i = i + 1
Loop
End Sub
Grüße, BerndPublic Sub Aufrunden()
Dim raZelle As Range
For Each raZelle In Range("A1:A10")
raZelle = WorksheetFunction.RoundUp(raZelle, 0)
Next raZelle
End Sub
Gruß Werner