Vergleichsmakro..bitte Hilfe beim Makro
28.09.2007 11:59:15
Bea
wenn in Tab1 Spalte D ist gleich Spalte D in Tab2, dann:
vergleiche in Tab1 die Spalte D und E mit den Spalten D und E in Tab2.
Wenn in Tab2 Änderungen, dann markiere sie rot in Spalte E.
..und schreibe in Spalte G " nicht gefunden "
Habe das folgende Makro schon vorliegen, weiß aber nicht so recht wo Änderungen einfügen:
~Option Explicit
Sub verleich()
Dim ws1 As Worksheet, ws2 As Worksheet, zei1 As Long, zei2 As Long
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
zei2 = ws2.Range("A65536").End(xlUp).Row
With ws1
For zei1 = 2 To .Range("A65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf(ws2.Range("A1:A" & zei2), .Cells(zei1, 2)) > 0 _
Then
.Cells(zei1, 4) = Application.WorksheetFunction.VLookup(.Cells(zei1, 2), ws2.Range(" _
A2:B" & zei2), 2, 0)
Else
.Cells(zei1, 4).Font.ColorIndex = 3
.Cells(zei1, 4) = "nicht gefunden"
End If
Next zei1
End With
End Sub
~