Code-Optimierung: Suche sehr langsam
03.02.2006 19:45:05
Martin
die Zeilen unten tun, was sie sollen, aber sehr langsam.
Jeder Tipp, mit dem ich diese Suche beschleunigen kann, hilfe!
Besten Dank,
Martin
Sub SuchenLAAANGSAMMM()
For t = 1 To 2000
Wert = Worksheets("Tabelle1").Cells(t, 1)
For w = 1 To 500
Vergleich = Worksheets("Tabelle2").Cells(w, 1)
If Wert = Vergleich Then Worksheets("Tabelle1").Cells(t, 3) = "Gefunden"
If Wert = Vergleich Then If Worksheets("Tabelle1").Cells(t, 2) <> Worksheets("Tabelle2").Cells(w, 2) Then Worksheets("Tabelle2").Cells(w, 3) = "Fehler!"
Next w
' Fehlermeldung, wenn Wert aus Tabelle1 nicht in Tabelle2 gefunden
If Worksheets("Tabelle1").Cells(t, 3) <> "Gefunden" Then Worksheets("Tabelle1").Cells(t, 3) = "Nicht gefunden"
Next t
End Sub