Sub Tabellen_Vergleichen2()
' 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 Werte die von Tabelle1 in Tabelle2 vorhanden sind sollen gekennzeichnet werden in Tabelle 2
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, 1) _
And Worksheets("Tabelle1").Cells(LoI, 2) = Worksheets("Tabelle2").Cells(LoJ, 2) Then
Worksheets("Tabelle2").Cells(LoJ, 3).Interior.ColorIndex = "vorhanden"
End If
Next LoJ
Next LoI
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen