jerry0110
Erfahrenes Mitglied
Hallo zusammen,
ich habe 2 Sheets mit Daten.
Und ich möchte den Sheet 1 mit dem Sheet 2 vergleichen.
In der Spalt A Sheet 2 steht ein Wert der in Spalte A Sheet 1 auch stehen könnte.
Wenn der Wert in Sheet 1 steht, dann soll er nichts machen und wenn er das nicht findet, dann soll er das am Ende des Sheets 1 anfügen.
Das habe ich bis jetzt gemacht. Aber wenn ich alles aus Sheet 1 lösche dann fügt er nichts an.
ich habe 2 Sheets mit Daten.
Und ich möchte den Sheet 1 mit dem Sheet 2 vergleichen.
In der Spalt A Sheet 2 steht ein Wert der in Spalte A Sheet 1 auch stehen könnte.
Wenn der Wert in Sheet 1 steht, dann soll er nichts machen und wenn er das nicht findet, dann soll er das am Ende des Sheets 1 anfügen.
Das habe ich bis jetzt gemacht. Aber wenn ich alles aus Sheet 1 lösche dann fügt er nichts an.
Visual Basic:
Sub suche()
Dim i As Long
Dim f As Long
Dim lastrow As Long
Dim lastrow2 As Long
lastrow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
lastrow2 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To lastrow
For f = 3 To lastrow2
If Not Worksheets("Sheet1").Range("A" & i).Value = Worksheets("Sheet2").Range("A" & f).Value Then
Worksheets("Sheet1").Range("A" & i).Value = Worksheets("Sheet2").Range("A" & f).Value
i = i + 1
End If
Next
Next
End Sub