Runden per Makro

Forumthread: Runden per Makro
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Runden per Makro

Runden per Makro

Chris

Guten Morgen zusammen!
Vielleicht kann mir jemand bei Folgendem helfen:
Ich kopiere per Makro bestimmte Werte einer Zeile aus einem Tabellenblatt und füge diese in einem anderen Tabellenblatt ein. Die eingefügten Werte hätte ich gerne ohne Kommastelle gerundet. Jemand eine Idee?
...
TotSales = .Cells(146, ColCount) 'im Quellsheet
...
Dat.Offset(198, 0) = TotSales 'im Zielsheet

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Runden per Makro

Peter
AW: Runden per Makro

Chris
CINT() funktioniert nur bis +32767 !!

NoNet

AW: Runden per Makro

02.02.2010 10:22:41

Peter

Hallo Chris,
dann versuch es doch ganz einfach so: Dat.Offset(198, 0) = CInt(TotSales) 'im Zielsheet
Gruß Peter

AW: Runden per Makro

02.02.2010 10:38:05

Chris

Gute Idee! Danke!

CINT() funktioniert nur bis +32767 !!

02.02.2010 11:07:20

NoNet

Hallo Chris (und Peter),
Die Konvertierungsfunktion CINT(...) konvertiert den Wert in der Klammer lediglich in einen INTEGER-Typ und "rundet" daher zwangsläufig. Allerdings können INTEGER-Zahlen nur Werte zw. -32768 bis +32767 annehmen, grössere Werte funktionieren hier nicht mehr (Fehlermeldung "Überlauf").
Ich empfehle Dir daher die in VBA vorgesehene Rundungsfunktion zu verwenden (ist auch gar nicht so schwierig ;-) :
Dat.Offset(198, 0) = ROUND(TotSales)
Gruß, NoNet