Einfügen ganze Zeile
03.01.2018 20:33:21
adcak
ich habe folgendes Problem. Mein folgendes Code vergleicht die Spalte B in 2 Tabellen, und haben die Spalten A-H. In Tabelle 2 soll nur das hinzugefügt werden, was sie nicht enthält.
In Spalte B fügt er von Tabelle1 ein was nicht in Tabelle2 vorhanden ist aber möchte es auf die ganze Zeile beziehen.
Könnt ihr mir bitte dabei helfen die ganze Zeile hinzuzufügen und nicht nur in Spalte B?
Sub Suchen_Einfuegen()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim lZeile As Long
Dim rZelle As Range
Application.ScreenUpdating = False
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
For lZeile = 2 To WkSh_Q.Cells(Rows.Count, 2).End(xlUp).Row
With WkSh_Z.Columns(2)
Set rZelle = .Find(What:=WkSh_Q.Range("B" & lZeile).Value,LookAt:=xlWhole, _
LookIn:=xlValues)
If rZelle Is Nothing Then
WkSh_Q.Range("B" & lZeile).Copy Destination:= _
WkSh_Z.Range("B" & WkSh_Z.Cells(Rows.Count, 2).End(xlUp).Row + 1)
End If
End With
Next lZeile
Application.ScreenUpdating = True
End Sub