AW: zwei Tabellen vergleichen
07.09.2018 11:36:38
UweD
Hallo
ohne Beispieldaten schwer zu testen
deshalb ohne Garantie
in ein Modul
Sub kopieren_Alt_Neu()
Dim LRalt As Long, LRneu As Long, i As Long
Dim TbAlt, TbNeu, Tb3, Tb4, Sp As Integer, Z1 As Integer
Dim n3 As Long, n4 As Long
Set TbAlt = Sheets("alt")
Set TbNeu = Sheets("neu")
Set Tb3 = Sheets("Tabelle3")
Set Tb4 = Sheets("Tabelle4")
Sp = 1 ' Spalte A
Z1 = 1 'ggf Überschrift
LRalt = TbAlt.Cells(TbAlt.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
LRneu = TbNeu.Cells(TbNeu.Rows.Count, Sp).End(xlUp).Row
If LRalt <> LRneu Then
MsgBox "ungleiche Zeilenzahl"
Exit Sub
End If
'Reset
Tb3.Cells.ClearContents
Tb4.Cells.ClearContents
For i = Z1 To LRalt
If TbAlt.Range("L" & i) <= 30 And TbAlt.Range("L" & i) <> "" And TbNeu.Range("L" & i) > 30 Then
n3 = n3 + 1
TbNeu.Rows(i).Copy Tb3.Rows(n3)
ElseIf (TbAlt.Range("L" & i) > 30 Or TbAlt.Range("L" & i) = "") And TbNeu.Range("L" & i) <= 30 Then
n4 = n4 + 1
TbNeu.Rows(i).Copy Tb4.Rows(n4)
End If
Next
End Sub
LG UweD