Vergleichen
20.07.2005 12:36:53
Matthias
Ich habe volgende Probleme ich habe in einer excel mappe eine Tabelle 1 und eine Tabelle 2 in der werte dirn stehen die mit einander Verglichen werden sollen.
Ich habe auch schon in der Recherche Nachgesehen und habe folgen des gefunden
Sub Vergleichen()
Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer
Set wks = Worksheets("Tabelle2")
For iRow = 1 To WorksheetFunction.CountA(Columns(1))
var = Application.Match(Cells(iRow, 1).Value, wks.Columns(1), 0)
If Not IsError(var) Then
Cells(iRow, 1).Interior.ColorIndex = 3
wks.Cells(var, 1).Interior.ColorIndex = 3
End If
Next iRow
End Sub
Nun meine 2 Probleme:
1: Wie schaffe ich es oder was muss ich ändern damit das makcro nicht nur spalte A sondern auch meinet wegen von Spale A bis Spalte Z die werte vergleicht
2: Ich Habe beobachten können das bei der Ausführung, gleiche werte färbt ich möchte aber das die Werte gefärbt werden die unteschiede auf weisen
Bitt um eure Hilfe