2. Makro Ausführung nicht möglich (CPU Ausl 100%)
19.12.2006 13:50:03
Gesa
habe nachfolgendes Makro in der beigefügten Datei eingefügt.
Sub Druck_Neu()
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
iRowL = Cells(Rows.Count, 19).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 19)) Or Cells(iRow, 19).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Läuft beim ersten mal auch super. Wenn ich aber die Seitenvorschau
beende und das Makro zum 2. Mal durchführen möchte, stürzt Excel
ab bzw. wenn ich lange genug warte wird es durchgeführt. Gibt es eine Möglichkeit das ganze auch bei der 2. Ausführung in einer normalen
Geschwindigkeit durchzuführen (wie gesagt, bei der ersten Durchführung
wird die Seitenvorschau innerhalb Sekunden gestartet).
Vielleicht habe ich in der Einstellung etwas falsch?
Vielen Dank für eure Bemühungen im voraus.
und schöne Grüße
Gesa S.
Dateiupload: https://www.herber.de/bbs/user/39107.xls