Schnellere Loesung als diese...?
abu
hab mal wieder eine Frage und hoffe ihr koennt mir weiterhelfen.
Ich bereite ein paar Daten auf um sie anschliessend in einer Datei zu suchen und zu kopieren.
Mein Code funktioniert nur braucht er ungefaehr 2min um in einer 12000-Zeilen-Datei - 480 Datensaetze zu finden...
Gibt es eine schneller Loesung als diese?
Workbooks.Open Filename:=Pfad1
With ActiveSheet
For i = 1 To UBound(data)
Application.ScreenUpdating = False
Set SuBe = Sheets("Sheet1").Cells.Find(data(i, 1), lookat:=xlWhole)
If Not SuBe Is Nothing Then
.Cells(SuBe.Row, 44) = data(i, 2)
.Cells(SuBe.Row, 45) = data(i, 3)
.Cells(SuBe.Row, 46) = data(i, 4)
.Cells(SuBe.Row, 47) = data(i, 5)
End If
Set SuBe = Nothing
Next
End With
Ueber Ideen wuerde ich mich freuen.Gruss
Abu