Hallo,
kann mir jemand bitte sagen wieso dieser code nicht funktioniert:
Public Sub div()
Dim x1 As Integer
x1 = Range("B13").Value
x1 = x1 / 2
x1 = WorksheetFunction.RoundDown(x1, 0)
Range("B14").Value = x1
End Sub
kommt trotzdem bei 3/2 die 2 als Ergebnis raus. Kann man die von VBA verwendete Rundung irgendwie deaktivieren? Ist ein Probecode, will Dezimal in Binär umrechnen und da ist diese Bankerrunden einfach falsch. Danke und Gruß
Red
|