Suche beschleunigen
18.12.2018 16:49:51
Heinzs
ich loope durch ein Blatt1 und suche zu jeder Zeile etwas in einem weiteren Blatt. Finde ich den Eintrag schreibe ich Werte aus dem weiteren Blatt in Blatt1.
Blatt1 hat 500000 Zeilen.
Blatt Übersetzungen hat 100000 Zeilen.
Der Code arbeitet einwandfrei; einzig und alleine zu langsam; hat jemand Tuningideen?
'Zusatzangaben berechnen
Application.ScreenUpdating = False
e1=500000
For i1 = 2 To e1
If i1 Mod 100 = 0 Or i1 = e1 Then
Application.StatusBar = "Zusatzangaben ermitteln, Datensatz " & Format(i1, "0000000") & " von " & Format(e1, "0000000") & " Endzeit = " & Anfangszeit1 + (Now() - Anfangszeit1) / i1 * e1
DoEvents
End If
Sheets("Blatt1").Select
gn_such = Cells(i1, 4)
If gn_such "" Then
Sheets("Übersetzungen").Select
With Range("AQ:AQ")
Set c = .Find(gn_such, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
y = c.row
gn_configuration_id = Cells(y, 44)
Sheets(Blatt1).Select
Cells(i1, 6) = gn_configuration_id
End If
End With
End If
Next i1
Application.ScreenUpdating = True
Application.StatusBar = False
Vielen Dank für Hilfe!
Mit vorweihnachtlichen Grüßen,
Heinz