Runden eines ausgewählten Bereiches
Sunshine
ich möchte für den jeweils markierten Bereich die Werte auf Null runden. Mein Makro funktioniert nicht, kann mir jemand helfen?
Sub Runden()
Dim Bereich As Range
Set Bereich = Application.Selection
Bereich = Application.WorksheetFunction.Round(Bereich,0)
Set Bereich = Nothing
End Sub