Vergleich über mehrere Spalten

01/01/2010 - 15:24 von andreas bidmon | Report spam
Hallo,
ich habe folg. makro gefunden, welches 2 Spalten miteinander vergleicht
und unterschiedliche Inhalte farbig unterlegt. Funktioniert auch pràchtig.
Frage: wie kann man dieses Makro auf mehrere Spalten, z.B. 4, erweitern?
Habs schon probiert, komme aber mit den for-next-schleifen nicht klar
(vba ist halt noch nicht so mein Ding - entschuldigung).
Schon mal Danke.
Andreas








Option Explicit
Sub Vergleichen()
Dim Search1 As Range
Dim Search2 As Range
Dim lastRowA As Long
Dim lastRowB As Long
lastRowA = Range("A2000").End(xlUp).Row
lastRowB = Range("B2000").End(xlUp).Row
For Each Search1 In Range("A2:A" & lastRowA)
For Each Search2 In Range("B2:B" & lastRowB)
If Search1.Text = Search2.Text Then
Search1.Interior.ColorIndex = 3
Search2.Interior.ColorIndex = 4
End If
Next
Next
End Sub
<<
 

Lesen sie die antworten

#1 Dietmar Vollmeier
01/01/2010 - 18:34 | Warnen spam
Grüß dich andreas!

*andreas bidmon* schrieb am 01.01.2010 um 15:24 Uhr...
ich habe folg. makro gefunden, welches 2 Spalten miteinander vergleicht



Gegenfrage: Warum machst du das nicht mit einer bedingten Formatierung?

und tschüss,
Didi
_, _, .|, . . . . . , .|, , _,
'_) |.| -*- |__| _.._ ._ . |\ | _ . , \./ _ _.._. -*- /| |.|
/_. |_| '|` | |(_][_)[_)\_| | \|(/, \/\/ | (/,(_][ '|` .|. |_|
| | ._|

Ähnliche fragen