FormatConditions

ich möchte in jeder 7 spalte automatisch eine wert zuweisen.
So mach ich dass, klappt aber nicht

xlAppl.Selection.FormatConditions.Add Type:=xlExpression, _ Formula1:="=REST(SPALTE();7)=0"
xlAppl.Selection.FormatConditions(2)...... was muß ich da hinschreiben

danke daniel