könnten sie mir einfach gucken, wieso meine Programm funktioniert nicht?
Das ist eine Bedingte Formatierung.
Danke sehr!
......
......
For i3 = 11 To 69 Step 2
For i1 = 6 To 64 Step 2
.Cells(i1 + 1, i3 + 1).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(.Cell(i1+1,i3+1)*.Cells(i1,i3+1)>=3;Wahr)"
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(UND(.Cell(i1+1,i3+1).Value*.Cells(i1,i3+1).Value>=3;.Cell(i1+1,i3+1).Value*.Cells(i1,i3+1).Value Selection.FormatConditions(2).Interior.ColorIndex = 27
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(.Cell(i1+1,i3+1).Value*.Cells(i1,i3+1).Value Selection.FormatConditions(3).Interior.ColorIndex = 4
Next i1
Next i3
......
......
mfg
Dominoes