ich hoffe jemand von euch kann mir helfen..
Ich habe mir jetzt ein Makro irgendwie zusammen gebastelt:
Momentan vergleicht er mir immer eine Zelle (A3) aus Tabelle 1, mit der kompletten Spalte A aus Tabelle zwei. Ist der Wert dort vorhanden, kopiert er mir die komplette Zeile in einer dritte Tabelle.
Nun möchte ich, dass dieses Makro auch auf alle anderen Zellen aus Tabelle 1 angewendet wird (dh. auf Zelle A4 A5 usw.). Es sind ca 20.000 Zeilen
Hier mein Ansatz:
Sub suche()
Dim seriennummer As Variant
Dim a, n, y As Integer
seriennummer = ActiveCell.Value
For n = 2 To Worksheets.Count
Worksheets(n).Activate
For Each Cell In Range("A3:A16040")
If Cell.Value = seriennummer Then
a = Cell.Row
ActiveSheet.Range(Cells(a, 1), Cells(a, 19)).Copy
Worksheets("Versuch").Activate
y = ActiveCell.Row
ActiveSheet.Paste Destination:=Range(Cells(a, 1), Cells(a, 8))
Exit Sub
End If
Next
Next
End Sub