Doppelte
20.06.2006 10:43:01
Matthias
ich habe diesen Code:
Sub makro01()
Dim zeile As Long
Dim suche As Range
For zeile = 2 To Sheets(1).Range("B65536").End(xlUp).Row - 2
Set suche = Sheets(1).Range("A" & zeile + 1 & ":A" & Sheets(1).Range("B65536").End(xlUp).Row + 1).Find(Sheets(1).Range("A" & zeile), LookIn:=xlValues)
If Not suche Is Nothing Then
Sheets(1).Range(suche.Row & ":" & suche.Row).Delete Shift:=xlUp
End If
Next zeile
End Sub
Er soll mir in Spalte B alle Namen die doppelt sind am Besten farbig kenntlich machen. Wie bekomme ich das hin?
Danke
Matthias