Ich habe einen Bereich, der mit Zahlen gefüllt ist. Alle diese Zahlen möchte ich jetzt auf Dezimalstellen runden.
Frage: Wie baue ich da jetzt diese Round Funktion ein? Excel Hilfe hilft da leider nicht weiter...
LG, Maxine
Sub Aufgabe2()
Dim Bereich As Range
Worksheets(1).Range("A1").Activate
Set Bereich = ActiveCell.CurrentRegion
'hier möchte ich die Round-Funktion einbauen.. nur wie? Bereich = Round(Bereich, 2) geht zumindest nicht. Ich bin verwirrt. :)
End Sub
Sub test()
Dim bereich As Range
Dim zelle As Range
Set bereich = Range("a1").CurrentRegion
On Error Resume Next
For Each zelle In bereich
zelle.Value = WorksheetFunction.Round(zelle, 2)
Next
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