Hallo liebe Wissenden,
irgendwie komme ich vom Thema Spaltenvergleich nicht los.
Jetzt sind es nicht mehr 2 sondern 3 Spalten welche nach dem gleichen Inhalt abzusuchen sind und wenn sie denn existieren "farblich" zu markieren.
Da ich letztens schon festgestellt habe, dass eine Abfrage über eine "Wenn(Zählenwenn)-Funktion" nur einen ca. 50% Wahrheitswert ausgibt habe ich es mit einem Makro versucht.
Habe diese Makro nicht selbst geschrieben sondern aus einer bereits existierenden Frage hier aus dem Forum entwendet und leicht umgeschrieben.
Wer kann mir helfen das Makro so umzuschreiben, dass es funktionstüchtig wird?
Hier schon mal der Quelltext:
Sub Vergleichen()
Dim Search1 As Range
Dim Search2 As Range
Dim Search3 As Range
Dim lastRowA As Long
Dim lastRowB As Long
Dim lastRowC As Long
lastRowA = Range("A0065536").End(xlUp).Row
lastRowB = Range("B0065536").End(xlUp).Row
lastRowC = Range("C0065536").End(xlUp).Row
For Each Search1 In Range("A2:A" & lastRowA)
For Each Search2 In Range("B2:B" & lastRowB)
For Each Search3 In Range("C2:C" & lastRowC)
If Search1.Text = Search2.Text = Search3.Text Then
Search1.Interior.ColorIndex = 3
Search2.Interior.ColorIndex = 4
Search3.Interior.ColorIndex = 5
End If
Next
Next
Next
End Sub
Und hier der Link zur Tabelle + Makro zum Testen:
http://www.file-upload.net/download-4599710/Vergleich---ber-3-Spalten.xlsm.html
Vielen Dank und Grüße,
Kapa