|
Hallo Zusammen,
folgendes Problem,
ich habe in Tabelle1 Zelle A1 einen Namen, zb: "ich"
In Tabell2 habe ich in der ersten Spalte von A3 bis A6 Namensliste. Da drin ist auch "ich" enthalten. Jetzt kommts:
In Tabelle2 in Spalte B ist ein Wert "D". dieser Wert steht bei einem Namen, "ich". in der gleichen Zeile
Das Makro soll den Namen aus Tabelle1 mit der Liste aus Tabelle2 und die dazugehörige Zeile suchen/vergleichen.
Falls der Name "ich" aus der Liste in Spalte A und in Spalte B mit "D" gekennzeichnet ist, dann soll eine Zelle rotmarkiert werden,
Wenn der Name ich" mit der aus der Liste in Tabelle2, ABER kein "D" in Spalte B enthalten ist, dann soll Zelle grün markiert werden.
Hier mein Code: Bitte um Hife, Vielen Dank
Sub Compare2()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim x, y As Integer
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
For x = 1 To 2
For y = 3 To 50
If ws1.Cells(x, 1) = ws2.Cells(y, 1) And ws2.Cells(y, 2) = "D" Then
ws2.Cells(1, 7).Interior.ColorIndex = 3
Else
If ws1.Cells(x, 1) = ws2.Cells(y, 1) And ws2.Cells(y, 2) = "" Then
ws2.Cells(1, 7).Interior.ColorIndex = 5
End If
End If
Next
Next
End Sub
|