Option Explicit
Sub myCode()
Dim wng
Dim c As Range
For Each c In Range("D1:D10") 'anpassen
If IsNumeric(c) Then
wng = Application.WorksheetFunction.Floor(c.Value, 100)
c.Value = wng
End If
Next
End Sub
Sub ganzzahl()
' ganzzahl Makro
' Makro am 24.09.2009 von Albrecht Grohn aufgezeichnet
ActiveCell.FormulaR1C1 = "=INT(RC[-1]/100)*100"
Selection.Copy
Range("C4:C8").Select
ActiveSheet.Paste
End Sub
Sub hundert()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row)
c = WorksheetFunction.Round((c / 100), 0) * 100
Next
Application.ScreenUpdating = True
End Sub