title image


Smiley wage mich mal ran...
Hallo,



also ich geh mal davon aus, dass du erst alle Zeilen ausblendest, und dann

wieder anfängst einzublenden.



Also als erstes gilt eigentlich fast immer, kein Select verwenden.

Denn erst wird eine Zelle selectiert und dann greift man wieder auf

diese Selektion zurück.

Vor allem das Selectieren kostet viel Zeit.

Zudem kannst du die Letzte Schleife komplett weg lassen,

denn du blendest jedesmal die ganze Zeile ein, das reicht auch einmal.



Hab den Code mal modifiziert (und an mein Beispiel angepasst).







      

Dim k As Integer, a As Integer, b As Integer

For k = 2 To 23

    For a = 0 To UBound(UserForm1.ListBox1.List)

        If UCase(Cells(k, 3)) = UCase(CStr(UserForm1.ListBox1.List(a))) Then

            'For b = 1 To 4

                Cells(k, 1).EntireRow.Hidden = False

            'Next b

        End If

    Next a

Next k 





Code eingefügt mit Syntaxhighlighter 3.0







Wenn dass dann immer noch zu sehr flimmert kann man das aktualisieren des

Fensters kurz ausschalten.




Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: