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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen