Schnelle Suche nach Werten in 2 Worksheets
14.03.2018 16:37:11
TBoh
ich möchte gerne über 2 For-Next Schleifen alle Werte aus Tabelle 1 in Tabelle 2 finden. Sobald ich herausgefunden habe, an welcher Stelle der Wert in Tabelle 2 zu finden ist, soll die nachfolgende Zelle aus Tabelle 2 an die richtige Stelle in Tabelle 1 kopiert werden.
Mein Skript dazu funktioniert! Bei allerdings 10.000 Werten pro Tabelle kann VBA schonmal bis zu 20 Minuten in Anspruch nehmen.
Mein Code:
Option Explicit
Sub Schneller()
Dim i As Long
Dim j As Long
For i = 1 To Worksheets("Tabelle1").UsedRange.Rows.Count
For j = 1 To Worksheets("Tabelle2").UsedRange.Rows.Count
If Worksheets("Tabelle2").Cells(j, 1) = Worksheets("Tabelle1").Cells(i, 1) Then
Worksheets("Tabelle2").Cells(j, 2).Copy Sheet("Tabelle1").Cells(i, 2)
Exit For
End If
Next j
Next i
End Sub
Ist es möglich die For j Schleife nach jedem Durchgang zu modifizieren, sodass nicht in Zellen nachgesehen wird, in denen bereits ein Treffer verzeichnet wurde?
Also: For j = 1 To Worksheets("Tabelle2").UsedRange.Rows.Count without Zellen welche zu einem Treffer geführt haben.
Bin auf eure Lösungsansätze gespannt
Grüße TBoh
Anzeige