Dieses Beispiel durchläuft die Zellen A1:D10 in Sheet1 in einer Schleife. Wenn eine der Zellen einen Wert unter 0,001 besitzt, ersetzt der Code den Wert mit 0 (Null).
For Each c in Worksheets("Sheet1").Range("A1:D10") If c.Value < .001 Then c.Value = 0 End If Next c
In diesem Beispiel wird im Bereich "Testbereich" eine Schleife durchlaufen und anschließend die Anzahl der leeren Zellen des Bereichs angezeigt.
numBlanks = 0 For Each c In Range("testRange") If c.Value = "" Then numBlanks = numBlanks + 1 End If Next c MsgBox "There are " & numBlanks & " empty cells in this range."
In diesem Beispiel wird als Standardschriftart Geneva (bei Apple Macintosh) oder Arial (in Windows) festgelegt.
If Application.OperatingSystem Like "*Macintosh*" Then Application.StandardFont = "Geneva" Else Application.StandardFont = "Arial" End If