Schneller Suchen
31.01.2004 11:25:28
MiGra
Ich möchte alle Zeilen, in denen sich Zellen mit einer bestimmten
Hintergrundfarbe befinden, ausblenden.
Nachfolgende Routine entstammt in Ihren Grundzügen dem Archiv und funktioniert
fast zufriedenstellend. Fast, weil der Vorgang momentan 5 Sekunden in Anspruch nimmt,
bei deaktiviertem Screen.updating (Pentium 2, 400 Mhz !!;).
Eine Verschachtelung zweier For-Next Schleifen (Alle Zeilen herunterlaufen und
in jeder Zeile von links nach rechts) erledigt die gleiche Aufgabe in 6 Sekunden.
Hat jemand eine Idee zur Beschleunigung des Suchvorgangs (außer der Anschaffung
eines neuen Rechners ;).
Tia Michael
Dim rng As Range
Dim searchcolor As Integer
lastrow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
lastcol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
timea = Timer
searchcolor = Cells(Selection.Row, Selection.Column).Interior.ColorIndex
Application.ScreenUpdating = False
For Each rng In Range(Cells(7, 6), Cells(lastrow, lastcol)).Cells
If rng.Interior.ColorIndex = searchcolor Then
Rows(rng.Row).Hidden = True
End If
Next rng
Application.ScreenUpdating = True
MsgBox (Timer - timea)