Spaltenvergleich
13.09.2007 11:32:11
Aileen
ich hab ein kleines Problem und hoffe das mit jemand weiter helfen kann. Ich möchte zwei Spaltenvergleichen und der Unterschied soll an die 2. Spalte angefügt werden. Das habe ich auch soweit hinbekommen:
Sub Spaltenvergleich()
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To intLastRow
Wert = Cells(i, 1)
Dim lRow As Long
lRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Set B = Columns(2).Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If B Is Nothing Then Cells(lRow, 2).Value = Wert
Next i
End Sub
Das Problem was ich habe ist jetzt, dass die beiden Spalten in unterschiedlichen Tabellenblättern sind. Kann mir jemand sagen, wie ich das machen kann. Viele Dank schon mal.
Viele Grüße
Aileen