Einträge unter Bedingung hervorheben
24.07.2015 12:56:08
Adrian
ich habe mir mittlerweile wenigstens teilweise selbst helfen könnten und stehe nun vor diesem problem:
Option Explicit
Private Sub abgleich()
Dim DupliArr As Variant, MasterArr As Variant, LZ1 As Long, LZ2 As Long, ZeileD As Long, ZeileU _
_
As Long, ZeileE As Long, ZeileV As Long, sh1 As Worksheet, sh2 As Worksheet, intLetzteZeile As _
Integer
Set sh1 = Sheets(2)
Set sh2 = Sheets(1)
LZ1 = IIf(IsEmpty(sh1.Cells(sh1.Rows.Count, 1)), sh1.Cells(sh1.Rows.Count, 1).End(xlUp).Row, _
sh1.Rows.Count) 'Quellbereich
LZ2 = IIf(IsEmpty(sh2.Cells(sh2.Rows.Count, 1)), sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row, _
sh2.Rows.Count) 'Zielbereich
DupliArr = sh1.Range("A1:A" & LZ1)
MasterArr = sh2.Range("A1:A" & LZ2)
sh2.Range("A2:A" & LZ2).Interior.ColorIndex = 0 'sauber machen
sh2.Range("S2:S" & LZ2).Interior.ColorIndex = 0
sh2.Range("W2:W" & LZ2).Interior.ColorIndex = 0
For ZeileD = 2 To LZ2
For ZeileU = 2 To LZ1
If sh2.Cells(ZeileD, 1).Value = sh1.Cells(ZeileU, 1).Value Then 'abgleich
sh2.Cells(ZeileD, 1).Interior.ColorIndex = 6
End If
Next ZeileU
Next ZeileD
End Sub
Ich bekomme es aber par tout nicht gebacken, nun genau die anderen (nicht in sheets(2) vorhandenen Einträge in sheets(1)) hervorzuheben, obwohl es doch eigentlich nur noch ein Katzensprung sein kann... oder?
Lieben Gruß