Tabellenvergleich
22.12.2004 13:16:13
Uwe
ich möchte Tab1 u.Tab2 Zeilenweise miteinander vergleichen.Wenn aber in der Tab2
eine Zeile mehr enthalten ist, möchte ich diese Zeile rot kennzeichnen, anschließend soll der Vergleich in Tab1 u. Tab 2 auf gleicher Zeilenhöhe fortgesetzt werden. Leider reichen meine Kenntnisse derzeit nicht aus, um diese Aufgabe zu lösen.Kann mir jemand helfen? ich habe schon etwas versucht....
Private Sub gzusätzliche_Zeile()
Dim sadresse1 As String
Dim sadresse2 As String
Dim lrow1 As Long
Dim lrow2 As Long
lrow2 = 1
For lrow1 = 1 To 5
sadresse1 = "Tabelle1!$A$" & lrow1
sadresse2 = "Tabelle2!$A$" & lrow2
If Application.Range(sadresse2).Values <> Application.Range(sadresse1) Then
lrow2 = lrow2 + 1
Else
Application.Range(sadresse1).Interior.Color = 3
End If
Next
End Sub