Suchschleife viel zu langsam
27.03.2013 17:18:39
Jürgen
Ich habe eine ForNext-Suchschleife, die vom Ergebnis her auch funktioniert.
Sie ist nur viel zu langsam.
Bei etwa 1000 zu durchsuchenden Zeilen mit sieben nicht aufeinander folgenden Spalten braucht die Routine bei etwa 400 gefundenen Einträgen etwa zwei bis drei Minuten.
Dabei erscheint im Kopf der UF auch der Hinweis. "Keine Rückmeldung".
Wie kann man den Code optimieren?
Den maßgeblichen Teil des Codes habe ich hier dargestellt.
Sub Ausw_Datenb()' Standardmodul
With ThisWorkbook
Set Wspt = .Sheets("Protokoll")
Set Wsda = .Sheets("Datenbank")
End With
Wsda.Activate
End Sub
Private Sub Stat_EO_Suchen()'Code innerhalb der UF
Dim SuchSpalte%, S_länge$, S_Zeile
S_länge = Wspt.Cells(Rows.Count, 21).End(xlUp).Row
If S_länge
Insgesamt hat die Datei aber acht UF und entsprechenden Code, die ich aber der Inhalte wegen hier nicht komplett hochladen darf/kann.Eine abgespekte Datei mit UF und gleichem Aufbau, bei der aber eben auch der gleiche Effekt auftritt, habe ich hier hochgeladen.
https://www.herber.de/bbs/user/84570.zip
Kann mir hier Jemand auf die Sprünge helfen?
Gruß
Jürgen