Hallo
Markiert
Aufeinander folgende doppekte
+
Einzelne mit den Werten des Array
Gruß Nighty
[code]Sub Markierung()
Dim Zelle As Variant, Zahlen As Variant
For Each Zelle In Range("A6:H12")
If Cells(Zelle.Row, Zelle.Column) = Cells(Zelle.Row + 1, Zelle.Column) Then Range(Cells(Zelle.Row, Zelle.Column), Cells(Zelle.Row + 1, Zelle.Column)).Interior.ColorIndex = 3
For Each Zahlen In Array(1.1, 3)
If Cells(Zelle.Row, Zelle.Column) = Zahlen Then Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex = 3
Next Zahlen
Next Zelle
End Sub [/code]