ich habe eine Tabelle mit rund 8.000 Werten in Spalte A
Diese Spalte durchlaufe ich mit einer FOR-NEXT Schleife.
Den Wert aus jeder Zeile übernehme ich in die Variable strWasSuchen
Anschließend setze ich mir einen Range auf eine Spalte in einem anderen Tabellenblatt und suche dort nach dem Wert meiner Variablen.
Dieser Range hat rund 30.000 Zeilen
Set rngWo = Worksheets(shBlatt).Range(colSucheIn & ":" & colSucheIn).Find(strWasSuchen, LookIn:=xlValues, Lookat:= _
xlPart)
Wenn ich dann was gefunden hole ich mir in der gleichen Zeile aus einer anderen Spalte einen Wert zurück.
If Not rngWo Is Nothing Then
result = Worksheets(shBlatt).Range(colResult & rngWo.Row).Value
Worksheets(shExport).Cells(i, colSOURCE).Value = result
End If
Die Laufzeit des Makros, um zu allen 8.000 Einträgen den zugehörigen Wert zu ermitteln beträgt rund 10 Minuten.
Ist das normal? oder hat jemand einen Tipp, ob man durch anderes Coding die Laufzeit evtl. verbessern könnte.
Vielen Dank schon mal im Voraus für eure Tipps
mas