|
Hallo Marita,
das folgende Sub schaut, ob die Werte in Spalte A des 2. Blattes der Datei in Spalte A des 1. Blattes auftreten. Wenn ja, wird in Spalte H einj eigetragen.
Ich hoffe, das ist das, was Du wolltest. Lass Dir Zeit, ich schaue erst morgen hier wieder vorbei.
Sub vergleichen()
Dim Tab1 As Object, Tab2 As Object
Dim zeile As Long, erg As Variant
Const Zeile1 = 2 'erste Zeile, ab der verglichen werden soll
Set Tab1 = ThisWorkbook.Sheets(1) 'ggfls. anpassen
Set Tab2 = ThisWorkbook.Sheets(2)
With Tab2
For zeile = Zeile1 To .Cells(Rows.Count, 1).End(xlUp).Row
Set erg = Tab1.Columns(1).Find(what:=.Cells(zeile, 1), lookat:=xlWhole)
If Not erg Is Nothing Then .Cells(zeile, 8) = "j" 'Eintrag in Spalte H
Next zeile
End With
End Sub
Gruß der AlteDresdner
|