13
Excel rundet trotz ausreichender NKS
Hallo zusammen,
ich zapfe eine Datenbank an und bekomme einen Wert Einkaufspreis 0,0758.
Obwohl die Zelle mit 5 NKS im Frontend formatiert ist wird dort 0,08 eingetragen. Den Wert aus der Datenbank habe ich in eine Variable gepackt und per MSGBOX anzeigen lassen: 0,0758 - passt
Aber mit der Übergabe an die Zelle passt der Wert dann nicht mehr:
Hat jemand eine Idee was dieses Verhalten hervorruft, wie ich den Wert 0,0758 auch als Wert für die Zelle übergeben bekommen?
Herzlichen Dank!
ich zapfe eine Datenbank an und bekomme einen Wert Einkaufspreis 0,0758.
Obwohl die Zelle mit 5 NKS im Frontend formatiert ist wird dort 0,08 eingetragen. Den Wert aus der Datenbank habe ich in eine Variable gepackt und per MSGBOX anzeigen lassen: 0,0758 - passt
Aber mit der Übergabe an die Zelle passt der Wert dann nicht mehr:
Daten.Cells(izaehler, 7).Value = rst.Fields("EK").Value Hat jemand eine Idee was dieses Verhalten hervorruft, wie ich den Wert 0,0758 auch als Wert für die Zelle übergeben bekommen?
Herzlichen Dank!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 342508
Url: https://administrator.de/contentid/342508
Printed on: April 19, 2024 at 20:04 o'clock
13 Comments
Latest comment
Hallo
Was passiert, wenn du
benutzt??
Gruss
Was passiert, wenn du
Daten.Cells(izaehler, 7).Value = Format(rst.Fields("EK").Value, "#,0000") benutzt??
Gruss
Hallo!
oder was passiert bei:
Gruß Dieter
oder was passiert bei:
Daten.Cells(izaehler, 7).Value = CDbl(rst.Fields("EK").Value) Gruß Dieter
Dann bekomme ich 0,0000 ausgegeben 
Nun ja, ich bekomm es nicht hin.
Als Krücke habe ich den Wert in eine Variable übergeben und dann die Variable als Wert für die Zelle vorgegeben. So geht es zumindest:
Als Krücke habe ich den Wert in eine Variable übergeben und dann die Variable als Wert für die Zelle vorgegeben. So geht es zumindest:
test = rst.Fields("EK").Value
Daten.Cells(izaehler, 7).Value = test
Hallo
Steht denn der Wert auch mit Komma in der Datenbank, woher du die Daten ziehst?
Oder vielleicht mit Punkt??
Gruss
Dann bekomme ich 0,0000 ausgegeben
Steht denn der Wert auch mit Komma in der Datenbank, woher du die Daten ziehst?
Oder vielleicht mit Punkt??
Gruss
Der Feldtyp in der Datenbank ist money, wird also mit "," ausgegeben.
Das wird ein Ami anders sehen. Hast du das geprüft? Ich tippe nämlich auch auf dieses Problem.
Gruß
Gruß
Zitat von @Kraemer:
Das wird ein Ami anders sehen. Hast du das geprüft? Ich tippe nämlich auch auf dieses Problem.
Eben, in VBA muss man Dezimalzahlen im amerikanischen Format mit Punkt als Dezimaltrenner angeben. Deswegen den Wert vorher mit CDbl(wert) von einem String mit Komma in eine Dezimalzahl mit Punkt umwandeln und der Zelle zuweisen und Zellformat mit gewünschter Anzahl an Dezimalstellen richtig einstellen, dann klappt das auch wie gewünscht.Das wird ein Ami anders sehen. Hast du das geprüft? Ich tippe nämlich auch auf dieses Problem.
Beispiel:
Sub Test()
With ActiveSheet
' richtig
.Range("A1").Value = CDbl("10,234")
' falsch, wird im amerikanischen Format interpretiert und dort ist das Komma der Tausendertrenner
.Range("A2").Value = "10,234"
End With
End Sub
Gruß
Danke ihr zwei
Hallo zusammen!
OK, verstehe ich jetzt irgendwie nicht so ganz, da meine obige Codezeile eigentlich das gleiche machen sollte
?
Gruß Dieter
OK, verstehe ich jetzt irgendwie nicht so ganz, da meine obige Codezeile eigentlich das gleiche machen sollte
?Gruß Dieter
Der Teufel steckte hier im Detail. Das, was ich aus dem SQL-Server gezogen habe (Währungswert) ist nicht konform zum VBA-Double.
Deswegen wird der Wert aus dem SQL-Server mittles cdbl in einen Double-Datentyp konvertiert. Und damit ist dann auch das Problem gegessen ;)
Deswegen wird der Wert aus dem SQL-Server mittles cdbl in einen Double-Datentyp konvertiert. Und damit ist dann auch das Problem gegessen ;)
OK, danke für Deine Antwort, aber der CDBL steht in meiner Codezeile doch auch drinnen, insofern?
Oh gar nicht gesehen, ich hatte nur das:
Daten.Cells(izaehler, 7).Value = Format(rst.Fields("EK").Value, "#,0000")
im Fokus, was sich beim Schreiben der Antwort wohl mit dem Posting CDBL überschnitten hat. Danach folgten weitere Kommis und nuja... so is das manchmal.
Also, das wäre dann wohl auch richtig!
Daten.Cells(izaehler, 7).Value = Format(rst.Fields("EK").Value, "#,0000")
im Fokus, was sich beim Schreiben der Antwort wohl mit dem Posting CDBL überschnitten hat. Danach folgten weitere Kommis und nuja... so is das manchmal.
Also, das wäre dann wohl auch richtig!
