Runden

Bild

Betrifft: Runden von: Detlef
Geschrieben am: 14.02.2005 11:03:07

Hallo zusammen,

ich habe in Spalte D, viele Werte die ich
auf zwei stellen alle auf einmal runden möchte.
Wie muß ich den Code anpassen das mit
ActiveCell.FormulaR1C1 = "=ROUND(RC,2)" nach
einander jede Zelle in Spalte D gerundet wird ?

Gruß Detlef

Bild


Betrifft: AW: Runden von: Stefan
Geschrieben am: 14.02.2005 11:58:01

Hallo Detlef,

versuchs mal so:


Sub test()
For a = 5 To Worksheets("Monatsbeträge").Range("D65536").End(xlUp).Row
Cells(a, 7).Value = Round(Cells(a, 7), 0)
Next a
End Sub


Gruß Stefan


Bild


Betrifft: AW: Runden von: Stefan
Geschrieben am: 14.02.2005 13:00:01

Sorry, war falsch


Sub test()
For a = 5 To Worksheets("Monatsbeträge").Range("D65536").End(xlUp).Row
Cells(a, 4).Value = Round(Cells(a, 4), 0)
Next a
End Sub



Bild


Betrifft: AW: Runden von: Detlef
Geschrieben am: 15.02.2005 08:42:48

Hallo Stefan,
besten Dank für Dein Tipp. Leider wird kein Wert gerundet.
Habe den Code getestet, die bestehenden Zahlen in Spalte D
werden nicht gerundet.
Hast Du noch eine Idee ?

Gruß Detlef


Bild


Betrifft: AW: Runden von: Stefan
Geschrieben am: 15.02.2005 12:36:18

Hallo Detlef,

lade mal eine Beispieldatei hoch.

Gruß Stefan


Bild


Betrifft: AW: Runden von: Detlef
Geschrieben am: 15.02.2005 13:38:17

Hallo Stefan,
es funkt !
Cells(a, 4).Value = Round(Cells(a, 4), 2)
habe die Null letzte Klammer durch eine 2 ersetzt, da ich
zwei Stellen nach dem Komma Runden möchte.

Besten Dank
Gruß Detlef


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Runden"