Jun 25, 2015, updated at 11:09:42 (UTC)

10333

Runden von Zahlen in Excel über Makro

Hallo Community

Ich habe eine Frage zum Runden von Zahlen mit/in einem Excel Makro. Ich habe folgende Situation:

In Excel werden Werte aus einem anderen Programm übertragen. Hier in Feld C4 ist es die Zeit in Stunden. Diese Zahl wird hier über

=RUNDEN('Aspen Custom Modeler Language'|alles_im_ggw.acmf!\awite02.laufzeit;3)

aus dem Programm ausgelesen. Hier ist bereits mein erster Versuch die Zahl zu runden.

In meinem Makro wird nun (siehe Bild2 oder hier der Code)

time = Cells(4, 5)
runtime = Round(Cells(4, 3).Value, 3)
Cells(time, 8) = Round(runtime, 3)

der Wert der Zelle C4 (andere Schreibweise 4,3 ) der Variable runtime zugewiesen. (Hier mit Round der zweite Versuch die Zahl zu runden)

Der Wert der Variable Runtime wird nun in eine Zelle einkopiert. Hier der dritte Versuch die Zahl zu runden.

Wenn ich jetzt (siehe Bild3) nachschaue, ob die Zahl wirklich gerundet wurde seh ich:

NOPE!!
Für Excel ist es nach wie vor die Zahl 0,00899999961256981 und nicht einfach 0,009 (was ich aber haben will)

Meine Frage lautet nun, was mach ich falsch bzw. wie bekomm ich diese Zahl nun entgültig gerundet!!!

Vielen Dank im Voraus

Mit freundlichen Grüßen

fiASco

EDIT: OK die Bilder habe ich zwar hochgeladen aber ich selber seh sie nicht. Aber eigentlich steht eh alles wichtige im Text drin.

Please also mark the comments that contributed to the solution of the article

Content-Key: 275639

Url: https://administrator.de/contentid/275639

Printed on: April 16, 2024 at 07:04 o'clock

7 Comments

Latest comment

Beispiel:

Sub TestRunden()
    Dim zahl As Double
    zahl = 8.99999961256981E-03
    With Range("A1")  
        .NumberFormat = "0.000"  
        .Value = Round(zahl, 3)
    End With
End Sub

Geht einwandfrei ...

Vermutlich hast du irgendwo den Wert nicht als Zahl sondern als Text vorliegen, dann solltest du ihn erst mit CDbl() konvertieren.
Gruß jodel

EDIT: OK die Bilder habe ich zwar hochgeladen aber ich selber seh sie nicht.

p.s. Wie du Bilder deinem Beitrag richtig hinzufügst, kannst du in der Formatierungs-FAQ nachlesen.

Aber eigentlich steht eh alles wichtige im Text drin.

Für ein Verständnis was du genau meinst wäre es aber schön wenn du sie trotzdem noch ergänzt.

Viele Dank für deine Antwort jodel

Mit dem Code:

With Range(time, 8)
.NumberFormat = ("0.000")
.Value = Round(runtime, 3)
End With

Erhalte ich den Fehler:
Laufzeitfehler '1004'
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen

OK, kanns wenn Range nicht klappt, dann ja vielleicht Cells, aber mit

With Cells(time, 8)
.NumberFormat = ("0.000")
.Value = Round(runtime, 3)
End With

habe ich nach wie vor das gleiche Problem

Dann musst du das Sheet mit angeben:

With ActiveSheet.Range(time,8)

oder wenn es ein bestimmtes und nicht das aktive Sheet sein soll:

With Sheets(1).Range(time,8)

Hab nur 1 Sheet

Och mönsch ...wozu gibt's den Debugger

http://we.tl/mTUAgq6sf7

Du weißt schon was ein Range ist ?
Wenn du eine Zelle mit deren Position in Zahlen ansprechen willst musst du ActiveSheet.Cells(time,8) nehmen

Danke für deine Hilfe jodel

Ganz ehrlich, den genauen Unterschied zwischen Range und Cells weiß ich nicht, (klar hab ichs schon mal gegoogelt aber meine IT Kenntnisse in dieser Richtung sind eher beschränkt und es bleibt auch nicht lang drin.) Für die Sachen die ich bisher in VB gemacht/gebraucht habe war es eigtl egal was ich von beiden verwendet hab ^^ )

Hab jetzt noch nen Kollegen am Lehrstuhl gefragt und mit

time = Cells(4, 5)
runtime = Round(Cells(4, 3).Value, 3)
Cells(time, 8) = Round(runtime, 3)
Cells(time, 8) = Round(Cells(time, 8), 3)

funktioniert es.

Merkwürdigerweise war in VB der Wert gerundet.

Aber wird dann trotzdem ungerundet in Excel kopiert.

Deinen Link schau ich mir aber auch gleich an!

Hallo,

es sollte auch so funktionieren:

Cells(time, 8) = Format(time, "0.000")  

Als Alternative.

Gruß
Xolger

German solved Question Microsoft Office Microsoft