Tabellen vergleichen / Nachtrag (@Hajo)
24.09.2003 10:34:21
Erich M.
Hallo zusammen,
aus dem Thread:
https://www.herber.de/forum/archiv/312to316/t313701.htm
habe ich bereits eine Lösung:
Sub Tabellen_Vergleichen()
' erstellt von Hajo.Ziplies@web.de 23.09.03
' http://home.media-n.de/ziplies/
' 2 Tabellen vergleichen und in Tabelle2 kennzeichnen
' Tabelle1 Original Spalte A, Tabelle 2 Kopie Spalte B
' alle die von Tabelle1 in Tabelle2 vorhanden sin sollen gekennzeichnet werden
Dim LoI As Long
Dim LoJ As Long
Dim LoLetzte1 As Long
Dim LoLetzte2 As Long
LoLetzte1 = 65536
With Worksheets("Tabelle1")
If .Range("A65536") = "" Then LoLetzte1 = .Range("A65536").End(xlUp).Row
End With
LoLetzte2 = 65536
With Worksheets("Tabelle2")
If .Range("B65536") = "" Then LoLetzte2 = .Range("B65536").End(xlUp).Row
End With
For LoI = 1 To LoLetzte1
For LoJ = 1 To LoLetzte2
If Worksheets("Tabelle1").Cells(LoI, 1) = Worksheets("Tabelle2").Cells(LoJ, 2) Then
Worksheets("Tabelle2").Cells(LoJ, 2).Interior.ColorIndex = 19
End If
Next LoJ
Next LoI
End Sub
Meine Versuche, wie folgt zu ergänzen, sind aber gescheitert:
1. Es soll die komplette Zeile der Tabelle2 farblich markiert werden (derzeit
nur die zelle).
2. Es sollen nur die Zellen (Zeilen) markiert werden, die einen Inhalt haben
(derzeit werden leere Zellen mitmarkiert, wenn in beiden Spalten leere Zellen
bestehen, die zwischen beschrifteten Zellen liegen).
Besten Dank für eine Hilfe!
mfg
Erich