VBA - Copy Value - autom. Aufrunden unterdrücken
01.03.2021 10:32:27
Guest
ich habe das Problem, dass ich bei unten stehendem Code als Value für 0,007 den Wert 0,010 erhalte, d.h. Excel rundet automatisch auf. Hat jemand einen Tipp, wie das unterbunden werden kann?
Sub SaveCopy()
Application.ScreenUpdating = False
Dim WBS As Workbook
Dim WS As Worksheet
With Worksheets(Array("Afr.", "Seiten", "Werb."))
.Copy
Set WBS = ActiveWorkbook
For Each WS In WBS.Worksheets
WS.UsedRange.Value = WS.UsedRange.Value
Next WS
End With