Suchschleife viel zu langsam - die Zweite
02.04.2013 00:22:44
Jürgen
ich bin noch immer am laborieren, ohne ersichtlichen Erfolg zu haben.
Nachfolgende UF (Suchschleife) sucht, isoliert in einem anderen Workbook einwandfrei und auch schnell genug.
Bei etwa 500 gefundenen Werten dauert der Suchlauf etwa zwei Sekunden.
Private Sub BegriffSuchen()
Dim Begriff$, Zeile As Long, c As Range, S_Zeile%
Dim firstAddress$, Fund As Long, S_länge%
S_länge = Wspt.Cells(Rows.Count, 11).End(xlUp).Row
If S_länge firstAddress
End If
End With
Anzahl.Caption = Zeile: If Zeile = 0 Then Anzahl.Caption = "0"
End Sub
Wie man aus der Syntax erkennen kann, werden hier auch keine anderen Ereignisse, wie Change usw. angesprochen oder ausgelöst, was ich im Originalprojekt im Einzelschrittmodus nachvollzogen und geprüft habe.
Dinge, wie Application.ScreenUpdating = False und Deaktivierung der autom. Berechnung haben auch nichts bewirkt.
Welches Geheimnis habe ich hier noch nicht gelüftet?
Ich stehe vollkommen auf dem Schlauch.
Ich würde ja auch das ganze Projekt hier einstellen, wenn ich da nicht zu viel anonymisieren und der Größe wegen (max. 1 MB) abspecken müsste.
Das, worum es geht, habe ich aber hier eingestellt.
https://www.herber.de/bbs/user/84663.zip
Gruß
Jürgen