Spalten Vergleichen in 2 Arbeitsblättern und farbi
meik
nachfolgend ein Makro von dieser Seite, klappt alles ganz gut, wenn ich Spalte A von Tabellenblatt 1 und
Spalte A von Tabellenblatt 2 vergleiche.
Ich bekomme es einfach nicht hin, wenn ich z.B. Spalte H von Tabellenblatt 2 mit Spalte B von Tabellenblatt
vergleichen will, kann mir jemand helfen?
Vielen Dank für eure Hilfe.
Sub Vergleich()
Dim rng As Range
Dim lRow As Long, lRowT As Long
Dim iCol As Integer
Dim bln As Boolean
Set rng = Worksheets("Tabelle2").Range("A1").CurrentRegion
For lRow = 1 To Range("A1").CurrentRegion.Rows.Count
bln = True
For lRowT = 1 To rng.Rows.Count
For iCol = 1 To 4
If Cells(lRow, iCol) rng(lRowT, iCol) Then
bln = False
Exit For
End If
Next iCol
If bln = True Then
Exit For
ElseIf lRowT Anzeige