Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Langsames Makro

Langsames Makro
20.10.2002 21:01:27
sigi
Hallo Excel Spezilisten,
ich habe ein Arbeitsblatt mit 40000 Zeilen (vierzigtausend) Einträgen.
Nun filter eich die Beschrifteten Bereiche mittels nachfolgendem
Makro.
Dies klapp ganz gut, wenn ich die Arbeitsmappe öffne.
Nachdem ich es ein zweites mal versuche benötigt das Programm
ca. 5 Minuten um eine neu Sitenansicht zu erstellen.
Warum?
Wenn ich es zwischen nur speichere funktioniert es auch nicht.
Danke für Eure Hilfe!
Gruß
Sigi
Option Explicit

Sub Drucken()
Dim i%
Dim Schalter As Boolean
Application.ScreenUpdating = False
For i = 1 To 587
If Cells(i, 1) <> 2 Then
Rows(i).Hidden = True
Else
Schalter = True
End If
Next i
If Schalter Then ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Langsames Makro
20.10.2002 21:35:14
PeterW
Hallo Sigi,

mit dem Variabentyp Integer kommst Du bei 40.000 Zeilen nicht aus.
Wo wird in Deinem Code die Bildschirmaktualisierung wieder eingeschaltet?

Gruß
Peter

Re: Langsames Makro
22.10.2002 06:24:09
sigi
Hallo Peter,
Danke, für Deine Frage aber ich habe gemerkt, das ich so nicht witer komme und habe dieses Problem durch Verteilen auf verschiedene Arbeitsmappe gelöst. Ferner hatte ich einen Fehler in dem Makro, da For i = 1 to 587 eigendlich 40000 stehen muß. Aber wie gesagt, das Makro läuft auf meinem Rechner blitzschnell wenn ich das Programm neu starte, ansonsten hatte ich das o.g. Problem.
Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige