Code umschreiben (Zeilenvergleich)

Bild

Betrifft: Code umschreiben (Zeilenvergleich) von: michael
Geschrieben am: 07.02.2005 14:39:42

Hallo nocheinmal
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
Bild


Betrifft: doppelt_deshalb erledigt von: Herberpolizei
Geschrieben am: 07.02.2005 15:00:40

ot


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro starten "