Zellen vergleichen und Zeile kopieren
05.09.2021 12:19:28
Marcel
ich würde gern aus der Tabelle 2 mit Daten der Tabelle 1 (Hier die Nr.) vergleichen und wenn die Daten übereinstmmen
in Tabelle 1 am Ende der Zeile, kopieren(ab der 2. Spalte die Zeile). Dies zusammen mit der Überschrift.
Hier kurz ein Beispiel:
Tabelle 1:
Nr|AN|Testwert
Nr 1|558|1
Nr 2|578|2
Nr 3|556|3
Nr 4|512|4
Tabelle 2:
Nr|Beschreibung|zugehörige Nummer
Nr 1|Kupfer|1111
Nr 4|Silber|6984
Resultat:
Nr|AN|Testwert|Beschreibung|zugehörige Nummer
Nr 1|558|1|Kupfer|1111
Nr 2|578|2
Nr 3|556|3
Nr 4|512|4|Silber|6984
Bisher bin ich soweit:
Sub Vergleichen_Kopieren()
Sheets("Tabelle2").Select
With Worksheets("Tabelle1").Columns(1) 'erste Spalte
For LZ = 1 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(i, 1)
Set Suchwert = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
LS = Cells(1, Columns.Count).End(xlToLeft).Column
'Hier komme ich nicht drauf das kopieren hinter der letzen Zelle(Bei Übereinstimmung) in Tabelle 1 einzufügen.
Next i
End With
End Sub