Tabellen vergleichen die 2.
20.07.2003 14:59:23
Dirk
hatte weiter unten schon mal gepostet und einen Tipp aus dem Forumsarchiv bekommen. Ich habe den Code etwas angepasst, aber wohl noch einen Fehler gemacht. (Laufzeitfehler 1004)
Kann mir jemand sagen, was da noch falsch ist???
Sub Datenabgleich()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim wks3 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Set wks3 = Worksheets("Tabelle3")
For i = 1 To 65535
If wks1.Cells(i, 1) = wks2.Cells(i, 1) Then
wks3.Range(Cells(i, 1), Cells(i, 255)) = wks1.Range(Cells(i, 1), Cells(i, 255))
Else
wks3.Cells(i, 1) = wks1.Cells(i, 1)
wks3.Cells(i, 2) = "keine Übereinstimmung"
End If
Next
End Sub