Zellen schnell mit VBA ausblenden

02/12/2008 - 11:39 von Marc H. | Report spam
Hallo Leute,



ich habe ein kleines Problem in VBA.



Ich überberprüfe ca. 5000 Zeilen ob in einer etwas drinsteht. Wenn nein soll
die Zeile ausgeblendet werden.



for z = 1 to 5000

a = Cells(z, 1)

If a = 0 Then
Rows(t).Hidden = True
End If

next z



Làuft auch wunderbar dauert nur elend lange.



Hàtte einer von euch einer einen Optimierungsvorschlag?



Ganz lieben Dank.



Gruß

Marc
 

Lesen sie die antworten

#1 Andreas Killer
02/12/2008 - 12:12 | Warnen spam
On 2 Dez., 11:39, "Marc H." wrote:

Làuft auch wunderbar dauert nur elend lange.


Ich weiß ja nicht wo Du t initialisierst, bei mir gàbe das einen
Fehler. .-)

Hàtte einer von euch einer einen Optimierungsvorschlag?



Sub Test()
Application.ScreenUpdating = False
For z = 1 To 5000
If Cells(z, 1) = 0 Then Rows(z).Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Noch schneller wird's wenn Du ggf. Bereiche gruppieren kannst und dann
mehrere Zeilen auf einmal ausblendest, ala Rows("23:450").Hidden True. Die Frage ist ob das überhaupt möglich wàre?.

Aber das kriegst Du bestimmt alleine hin, oder?

Andreas.

Ähnliche fragen