In diesem Beispiel wird der Wert von Zelle A1 in Sheet1 auf 3,14159 gesetzt.
Worksheets("Sheet1").Range("A1").Value = 3.14159
In diesem Beispiel werden die Zellen A1:D10 in Sheet1 in einer Schleife bearbeitet. Ist der Wert einer dieser Zellen kleiner als 0,001, wird er durch 0 (Null) ersetzt.
For Each c in Worksheets("Sheet1").Range("A1:D10") If c.Value < .001 Then c.Value = 0 End If Next c