Code umschreiben (Zeilenvergleich)
07.02.2005 14:39:42
michael
ich habe aus irgendeinem Forum diesen Code. Der funktioniert auch super. Dieser vergleicht eine ganze Zeile ob diese zeile mit einer anderen Ident ist. Ich habe zwei Fragen dazu
1.)Kann man diesen Code so umschreiben, daß dieser nur die Spalte A und die Spalte C vergleicht und nicht die ganze Zeile?
2.) Ich möchte, daß die nicht identen Zeilen eine schwarze Schrift bekommen (Die identen Zeilen bekommen sowieso eine rote Schrift).
Sub DoppelteFinden()
Dim vergleich() As String
Dim trenner As String
Dim lastrow As Long
Dim lastcolumn As Long
Dim i As Long
Dim y As Integer
trenner = Chr(1)
lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row
lastcolumn = Cells.SpecialCells(xlCellTypeLastCell).Column
ReDim vergleich(lastrow)
For i = 1 To lastrow
For y = 1 To lastcolumn
vergleich(i) = vergleich(i) & trenner & Cells(i, y)
Next
Next
For i = 1 To lastrow
For y = i To lastrow - 1
If vergleich(i) = vergleich(y + 1) Then
Range(Cells(i, 1), Cells(i, lastcolumn)).Font.ColorIndex = 3 'Erste Fundstelle
Range(Cells(y + 1, 1), Cells(y + 1, lastcolumn)).Font.ColorIndex = 3 'zweite Fundstelle
End If
Next
Next
End Sub
Danke für eure Hilfe
Michael