VBA - Aufeinander folgende Doubletten markieren

Question

Hi Leute

hab hier ein Makro das Doppelte Werte markiert
Dim bereich As Range

Set bereich = Range("a6:h12")   'Bereich der durchsucht wird

   For Each rng In bereich
      If Application.CountIf(bereich, rng) > 1 Then _
         rng.Interior.ColorIndex = 8 '
   Next

End Sub


doch ich [xurl=http://jamaipa.de|Jamaipa - Suche ohne Spam und Shops]suche[/url] ein Makro das mir nur  Aufeinander folgende Doubletten markiert, also nur untereinander Doppelte Werte.
In allen Spalten von Range A6 bis H12

Vielleicht kennt sich da jemand aus

Answer 1

Hallo

Dann vielleicht so!

Gruß Nighty

[code]    Dim Zelle 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
        Next Zelle[/code]

Answer 2

Hi Nighty

Klasse funktioniert

Jetzt noch eine Frage kann man noch irgendwie im Makro angeben das auch nach bestimmten Werten/ Zahlen gesucht wird.
Also alle doppelten Zahlen und die Zahlen 245,1005,99
Müsste doch irgendwie mit Value definieren gehen
Das wäre Super
 
Ansonsten Top

Answer 3

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]

Answer 4

Super
Fuktioniert 1A

Vielen Dank Nighty___