tatsaechlichen Wert uebernehmen

Hallo zusammen,
ich uebernehme mittels Makro Daten von einem Sheet in den anderen. Auf dem Quell Sheet haben die Daten tatsaechlich ca. 10 Nachkommastellen, werden aber aufgrund einer Formatierung nur mit 2 Nachkommastellen angezeigt.
Wenn ich mein Makro nun laufen lasse, werden die nicht die eigentlichen sondern die auf 2 Nachkommastellen gerundeten Daten genommen.
Ich verwende fuer die Abfrage einen ganz einfachen Code:
a2c_final = Worksheets(target_sheet).Cells(j, a2c_number)
desc_final = Worksheets(target_sheet).Cells(j, part_desc)
cost_final = Worksheets(target_sheet).Cells(j, cost)
qty_final = Worksheets(target_sheet).Cells(j, qty)
total_final = Worksheets(target_sheet).Cells(j, total)
category_final = Worksheets(target_sheet).Cells(j, category)
discount_final = Worksheets(target_sheet).Cells(j, discount)
cust_final = Worksheets(target_sheet).Cells(j, cust)
Das ist dann noch in ein paar Schleifen, etc verpackt. Aber die reine Abfrage und Zuweisung in die Variablen geschieht hier.
Warum wird hier denn nicht der eigentliche Wert uebernommen?
Vielen Dank
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian und Peter,
diese beiden Aussagen glaube ich einfach nicht:
- werden die nicht die eigentlichen, sondern die auf 2 Nachkommastellen gerundeten Daten genommen.
- weil du die Daten mit ihrem Format (zwei Nachkommastellen) übernimmst
Und das würde ich jedenfalls nicht tun:
- versuch es mit Neuformatierung
a2c_final = format(Worksheets(target_sheet).Cells(j, a2c_number), "#,##0.0000000000")
- oder mit a2c_final = CDbl(Worksheets(target_sheet).Cells(j, a2c_number)), vielleicht genügt das auch.
Es ist (wegen der sichtbaren 2 Nachkommastellen) davon auszugehen, dass die Variablen vom Typ Double sind.
Eine Zuweisung dblX = cells(x,y) kümmert sich nicht um das Zahlenformat, sondern überträgt den Wert.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub tst() Dim dblW As Double, varW, strW As String, dblT As Double Cells(1, 1) = 1 / 7 Cells(1, 1).NumberFormat = "0.00" dblW = Cells(1, 1) varW = Cells(1, 1) strW = Cells(1, 1) dblT = Cells(1, 1).Text MsgBox Cells(1, 1) & " Cells(1,1)" & vbLf _ & dblW & " dblW" & vbLf _ & varW & " varW" & vbLf _ & strW & " strW" & vbLf _ & dblT & " dblT" & vbLf _ & Cells(1, 1).Text & " Cells(1,1).Text" End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread