es sind 2 Tabellen gegeben (Tab1 & Tab2)
Nun soll überprüft werden, ob alle Zeilen von Tab1 in Tab2 enthalten sind.
Der Vergleich soll über Tab1 ab B11 bis Ende B.. (oder leer) und von Tab2 A5 bis Ende A.. (oder leer) ist.
Wenn nicht enthalten, soll in Tab1 markiert werden und die Zeile kopiert und in Tab2 eingefügt werden.
Mein Versuch markiert falsch (umgekehrt) und die Zeilen werden falsch eingefügt.
Vielen Dank und Gruss
mehmet
Sub Spaltenvergleich_mit_Farbe()
Dim i As Integer, j As Integer
For i = 5 To Worksheets("Tab2").Cells(Rows.Count, 1).End(xlUp).Row
For j = 11 To Worksheets("Tab1").Cells(Rows.Count, 2).End(xlUp).Row
If Sheets("Tab2").Cells(i, 1) = Sheets("Tab1").Cells(j, 2) Then
Sheets("Tab1").Cells(j, 2).Interior.ColorIndex = 3
'Sheets("Tab2").Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
'Sheets("Tab2").Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Sheets("Tab2").Rows(i).EntireRow.Insert
End If
Next j
Next i
End Sub
https://www.herber.de/bbs/user/104010.xls