BeispielRoundZero
Josef
weiß jemand warum dieses Beispiel nicht funktioniert, wenn man die Bedingung durch:
Abs(curCell.Value) = 0.01
ersetzt.
Sub RoundToZero1()
For Counter = 1 To 20
Set curCell = Worksheets("Tabelle1").Cells(Counter, 3)
If Abs(curCell.Value) 0.01 Then curCell.Value = 0
Next Counter
End Sub
Gruß
Josef