Lange Bearbeitung / teilweise keine Rückmeldung
25.08.2006 11:12:05
Gesa
habe in einer Datei nachfolgendes Makro eingefügt:
Sub Drucken()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 7).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 7)) Or Cells(iRow, 7).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub
Wenn ich jetzt die Seitenansicht öffne, braucht das Programm viel Zeit und teilweise läßt es sich gar nicht mehr ausführen und ich bekomme eine Fehlermeldung die sich auf den Temp-Ordner bezieht.
Wenn ich diesen lösche, funktioniert die Datei für kurze Zeit.
Vielleicht könnt ihr mir helfen?
Ps. Wie kann ich in das Forum die Datei anhängen, damit ich mein Problem verdeutlichen kann.
Schöne Grüße
Gesa S.