Tabellenvergleich
18.01.2016 11:30:22
Flo
ich würde gern jeweils die erste Spalte von zwei Tabellen vergleichen die unterschiedlich lang sind.
Zusätzlich würde ich gern bei einer Übereinstimmung die Zeile von Tabelle 2 in Tabelle 1 kopieren ab einer bestimmten Spalte.
Dafür habe ich bereits folgenden Code. Diesen habe ich jetzt für Testzwecke auf eine dritte Tabelle gelegt.
Sub SchweißDatenTeil1()
Application.ScreenUpdating = False
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
Dim LastRow As Variant
LastRow = Tabelle8.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With Tabelle9
ZeileMax = .UsedRange.Rows.Count
n = 2
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 1).Value = Tabelle8.Cells(LastRow, 1).Value Then
.Rows(Zeile).Copy Destination:=Tabelle1.Rows(n)
n = n + 1
End If
Next Zeile
End With
Application.ScreenUpdating = True
End Sub
Hier bei entsteht allerdings ein Problem, denn er kopiert nicht das was ich möchte. woran liegt es? Kann mit jemand helfen ?
Gruß Florian