Screenupdate auf Dauer aus schalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Application.ScreenUpdating = False 'schaltet Bildschirmaktualisierung aus Sheets(1).Activate Sheets(2).Activate Sheets(1).Activate Sheets(3).Activate Application.ScreenUpdating = True 'schaltet Bildschirmaktualisierung ein

Hi
normalerweise bleibt der Bildschirm ausgeschaltet, bis du ihn wieder aktivierst oder die Makros durchgelaufen sind.
Was einem hier zum Verhängnis werden kann, vorallem wenn man mit mehreren Makros arbeitet, die sich gegenseitig aufrufen, die aber ggf auch alleine laufen können, ist die deutsche Ordnungsliebe, jede Einstellungsänderung die man gemacht hat, wieder rückgängig zu machen, so auch das Application.ScreenUpdating. Das hat aber dann zur Folge, dass wenn man diese Makros hat:


Sub Makro1
Application.ScreenUpdating = False
... Teil 1
Call Makro2
... Teil 2
Application.ScreenUpdating = True
End Sub


Sub Makro2
Application.ScreenUpdating = false
Application.ScreenUpdating = True
End Sub

der 2. Teil des Marko1 mit angeschaltetem Bildschirm läuft, weil im Makro2 diese am Ende eingeschaltet wird.
hier gilt immer die zuletzt gemachte Einstellung, egal wo und in welchem Makro sie gemacht wurde.
meisten reicht es, das Application.ScreenUpdating = True wegzulassen, das braucht man nicht, weil Excel automatisch den Bildschirm wieder aktivert, wenn die Makros durchgelaufen sind oder wenn das Makro mittendrin anhält (STOP, Fehlerhalt, Haltepunkt).
Es gibt Einstellungen, die muss man bei Markoende wieder zurücksetzen, weil sie bleiben (EnableEvents, Calculation), aber ScreenUpdating muss man nicht zurücksetzen.
Gruß Daniel

Hallo Herbert,
ja wird mir wohl nichts anderes übrig bleiben Euch eine Beispieldatei aufzubereiten. Alle meine Versuche blieben leider bis jetzt mit kleinen Ausnahmen ohne Erfolg.
Irgendwo wird leider immer was eingeblendet trotz Abschaltung des Bildschirms.
Nun eine für mich wichtige Frage, in den Zeilen 1 bis 7 des Haupttabellenblattes befinden sich Werte auf welche für die nächsten Schritte, wie welche Zeilennummer ist für den nächsten Eintrag vorgesehen usw., oder nach dem neuen Eintrag wird dieser Wert autom. um eines erhöht, Kann auf diese Werte auch ohne einblenden dieser Zeilen

Rows("1:7").Hidden = False

zugegriffen werden, gleiches würde z.B. auch für den ausgeblendeten Bereich

ActiveSheet.Columns("M:AW").Hidden = True

zutreffen. Wenn man also trotz Ausblendung aus bestimmten Zellen Werte auslesen bzw. hineinschreiben kann würde dies so manches ein/ausblenden ersparen und würde zum gewünschten Ziel beitragen.
Gruß Siegfried

Beliebteste Forumthreads (12 Monate)

Screenupdate auf Dauer aus schalten

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread