ablaufgeschwindigkeit makro
09.01.2007 15:47:16
samsplanet
folgendes makro wird identisch in zwei verschiedenen excelmappen eingesetzt:
Private Sub CommandButton3_Click()
Worksheets("Name Blatt").Activate
ActiveSheet.unProtect Password:="XXX"
Rows.Hidden = False
Dim L As Integer, R As Integer
L = Cells(Rows.Count, 9).End(xlUp).Row
For R = 1 To L
If IsEmpty(Cells(R, 9)) Or Cells(R, 9).Value = 0 Then
Rows(R).Hidden = True
End If
Next R
ActiveSheet.Protect Password:="XXX"
ActiveWorkbook.Protect "XXX"
Unload Me
ActiveWorkbook.PrintOut Copies:=1, Preview:=True, Collate:=Tru
End Sub
nun tritt bei einer der genannten mappen folgendes phänomen auf:
wende ich das makro ein erstes mal an, läuft es sehr schnell ab. clicke ich den commandbutton aber ein zweites mal, läuft das makro viel langsamer ab. jedoch nur in einer der verwendeten mappen. in der anderen läuft es bei jeder anwendung gleichschnell ab. woran könnte das liegen?
grüsse
sam