nochmal schleife beschleunigen
10.05.2006 22:54:01
SteffenS
mit Schleifen habe ich so meine Probleme.
Ich habe eine Schleife bei der die Laufzeit ziemlich lang ist.
ein Application.ScreenUpdating=False ist in dem Code von wo das Makro gestartet wird schon drin.
Leider läuft die Schleife trotzdem ewig.
Was kann ich noch tun? Hier mein Code
Sub marke_1_2_ein()
'Marke 1 und 2 einblenden
Dim wkb As Workbook, wks As Worksheet, lgzeile As Long
For Each wks In Worksheets
'schutz_aufheben_only '(in wks)
wks.Unprotect (PSWDTP)
'alle Zeilen ausblenden
'wks.Rows("1:6000").EntireRow.Hidden = True
lgzeile = 0
Do
lgzeile = lgzeile + 1
If wks.Cells(lgzeile, 256) = "1" Then wks.Rows(lgzeile).Hidden = False
If wks.Cells(lgzeile, 256) = "2" Then wks.Rows(lgzeile).Hidden = False
If wks.Cells(lgzeile, 256) = "5" Then wks.Rows(lgzeile).Hidden = False
Loop Until lgzeile = 65536 Or wks.Cells(lgzeile, 256) = "Ende"
'schutz_setzen_only '(in wks)
wks.Protect Password:=PSWDTP, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Next wks
End Sub
Ich komm einfach nicht weiter....ich habe mal gehört dass man dies mit union machen kann, aber dazu bin ich wahrscheinlich zu do.....
Danke im Voraus
MFG
Steffen Schmerler