Werte per Makro runden
06.08.2015 13:36:57
Moe
Ich habe ein kleines Skript, welches mir über alle Worksheets die Werte im angegebenen Bereich auf zwei Stellen rundet.
Nun möchte ich aber zwei Dinge ändern, welche ich leider nicht selber hingekriegt habe... ;(
Erstens möchte ich, dass es nur das aktive Worksheet behandelt.
Zweitens wäre es super, wenn es selbständig den Bereich erkennt, beginnend bei E10. Sprich es soll überprüfen (ab E10),bis wie viele Spalten und Zeilen Werte in den Zellen vorhanden sind.
Kann mir da jemand weiterhelfen?
Code:
Sub Werte_Runden()
Dim ws As Excel.Worksheet
Dim cel As Excel.Range
For Each ws In ThisWorkbook.Worksheets
For Each cel In ws.Range("$E$10:$AA$5000").Cells
cel.Value = Round(cel.Value, 2)
Next cel
DoEvents
Next ws
Set cel = Nothing
Set ws = Nothing
End Sub
Gruss,
Moe