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"