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
Die 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