Makro prüfen
29.06.2007 09:25:00
Matthias
Mein Makro soll in Spalte E ab Zeile zwei die Inhalte auf Doppler prüfen. Anstatt mir nur doppelte Einträge rot zu markieren, sind alle Einträge in der Spalte rot. Mit der Bitte um Hilfe.
Gruß
Maze
Public Sub Durchlauf()
grenze = Tabelle2.Range("e65536").End(xlUp).Row
For i = 2 To grenze
Ktn = Tabelle2.Range("e" & i).Value
For x = i + 1 To grenze
Ktn2 = Tabelle2.Range("e" & x).Value
If Ktn = Ktn2 Then
Tabelle2.Range("e" & i).Interior.ColorIndex = 3
Tabelle2.Range("e" & x).Interior.ColorIndex = 3
End If
Next x
Next i
End Sub