|
Hallo habe ein Problem,
ich habe zwei tabellen, die ich per Schaltflaeche vergleichen moechte. Einen VBA Code habe ich nur der funktioniert nicht so wie ich mir das denke.
Ich habe in Tabelle7 C8 ein Wort stehen, wenn ich jetzt in Tabelle6 C8 das gleiche Wort schreibe macht er mir die Zelle gruen, so soll es auch sein. Nur wenn ich jetzt in Tabelle6 D8 das gleiche Wort wie in Tabelle7 C8 schreibe macht er mir die Zelle auch gruen, obwohl in Tabelle7 D8 ein anderes Wort steht.
Ich habe schon einiges ausprobiert bekomme es aber nicht hin.
Vielleicht kann mir ja jemand helfen.
LG
Kai
Sub test()
Dim SourceRange As Range, CompareRange As Range, SourceCell As Range, CompareCell As Range, i As Integer
Set SourceRange = Tabelle6.Range("C8:AN8,C10:AN10")
Set CompareRange = Tabelle7.Range("C8:AN8,C10:AN10")
For Each SourceCell In SourceRange
Set CompareCell = CompareRange.Find(SourceCell.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If CompareCell Is Nothing Then
SourceCell.Interior.ColorIndex = 3 'not found
Else
SourceCell.Interior.ColorIndex = 4 'found
For i = 1 To 0
SourceCell.Offset(0, i).Interior.ColorIndex = IIf(SourceCell.Offset(0, i).Value = CompareCell.Offset(0, i).Value, 3, 6)
Next
End If
Next
End Sub
|