Nachdem ihr uns vorhin schon so nett geholfen habt, dachten wir uns das wir es noch einmal versuchen kann.
Wahrscheinlich ist die Lösung genauso einfach wie das letzte mal aber wir kommen einfach nicht drauf....
Es liegt folgender Code vor:
Public Sub vergleichen()
Dim Zelle As Range, Zeile As Long, Tab1 As Worksheet, Tab2 As Worksheet
Set Tab1 = Worksheets(1)
Set Tab2 = Worksheets(2)
For Zeile = 1 To Tab2.Cells(65536, 1).End(xlUp).Row
Set Zelle = Tab1.Range(Tab1.Cells(1, 4), Tab1.Cells(65536, 4)).Find(What:=Tab2.Cells(Zeile, 1), LookAt:=xlWhole, MatchCase:=True)
If Not Zelle Is Nothing Then Tab2.Cells(Zeile, 4) = Tab1.Cells(Zelle.Row, 2).Value
Tab2.Cells(Zeile, 4).Interior.ColorIndex = 6
Next
End Sub
Leider klappt das mit der Farbe nicht so wie wir uns das gedacht haben. Nachdem der Wert in die Tab1 Zeile? Spalte 4 zurückgeschrieben wird, ist gefragt diese Zeile dann gelb zu färben. Leider bekommen wir nur Spalten mit Gelb hin. Wo ist der Denkfehler?
Bitte Hilfe ;o)
VLG Sissi