Bildschirm ruhig stellen

Hallo Excel-Könner,

ich arbeite in einer Excel-Datei mit einem Makro, welches u. a. mehrere Tabellenblätter nacheinander ansteuert, um Daten zu übertragen. Das Makro wird über einen Schalter in einem Tabellenblatt gestartet.

Problem:
Während das Makro läuft, springt der Bildschirm. Es werden jeweils die angesteuerten Tabellenblätter kurz angezeigt.

Mein Ziel:
Während das Makro läuft (ca. 4-5 Sek.), soll nur das Tabellenblatt, von wo aus das Makro per Schalter gestartet wird, angezeigt werden.

Mit "Application.ScreenUpdating = False" gelingt es nicht.
Ich habe die Zeile versuchsweise am Anfang des Makros und/oder vor den Einzelschritten (z. B. Sheets("Abo-Listung").Select) eingefügt.

Wer hat einen Tip für mich?
(Bin kein VBA-Experte, kann aber Makro-Code manuell editieren.)

Danke bereits vorab

Hermann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Carsten,

danke für Deine schnelle Reaktion.

Hier der Makro-Code:


Sub A_02_Von_Zeitzonen_nach_Abo_Listung()
' A_02_Von_Zeitzonen_nach_Abo_Listung Makro
' Makro am 07.03.01 von HM aufgezeichnet
ActiveWorkbook.Unprotect
Application.ScreenUpdating = False
Sheets("Abo-Listung").Select
ActiveSheet.Unprotect
Range("B4:I318").Select
Selection.ClearContents
Range("B4").Select
Application.ScreenUpdating = False
Sheets("Zeitzonen").Select
ActiveSheet.Unprotect
Range("A3:H317").Select
Selection.Copy
Application.ScreenUpdating = False
Sheets("Abo-Listung").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B4").Select
Application.ScreenUpdating = False
Sheets("Zeitzonen").Select
Application.CutCopyMode = False
Range("A3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = False
Sheets("Abo-Listung").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
Application.ScreenUpdating = True
End Sub

Ich habe das Makro per Rekorder aufgezeichnet und die Zeile
Application.ScreenUpdating = False
später manuell eingefügt.

Ziel:
Daten aus Blatt Zeitzonen nach Blatt Abo-Listung kopieren. Vorher wird der Blattschutz aufgehoben und Daten im Zielbereich werden gelöscht.

Der Bildschirm soll dabei nicht reagieren. Aber trotz
Application.ScreenUpdating = False
werden die angesteuerten Seiten angezeigt.

Danke für Deine Hilfe

Gruß

Hermann

Sub A_01_Blätter_einblenden() Application.ScreenUpdating = False ActiveWorkbook.Unprotect Sheets("Zeitzonen").Visible = True ActiveSheet.Unprotect Sheets("Analysen").Visible = True ActiveSheet.Unprotect Sheets("Hallenplan").Select ActiveSheet.Unprotect Sheets("Dateneingabe").Select ActiveSheet.Unprotect Sheets("Klick !").Select Range("C29:E29").Select ActiveCell.FormulaR1C1 = "Eingeblendet" Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread