ScreenUpdating = False i.V. m. "Activate"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub aaaaaa() ' Application.ScreenUpdating = False Workbooks(2).Activate Sheets(2).Select Application.Wait Now + 0.00002 Workbooks(1).Activate Sheets(2).Select Application.Wait Now + 0.00002 Workbooks(2).Activate Sheets(1).Select Application.Wait Now + 0.00002 Workbooks(1).Activate Sheets(1).Select Application.ScreenUpdating = True End Sub

Hallo lieber Ernst aus Kamp-Lintfort,
schönen Dank für Dein Beispiel. Ich habe das ausprobiert und konnte es nicht glauben, dass es funktioniert. Bei meinem riesigen Makro mit vielen "Call"-Verzweigungen jedoch nicht. Nach langem Suchen bin ich jetzt endlich darauf gekommen, woran es liegt. Über die Calls wird ScreenUpdating üblicherweise wieder auf "True" gesetzt. Daraufhin habe ich zunächst nach jedem Call in dem Hauptmakro und auch nach jedem Call in den Untermakros ScreenUpdating auf "False" gesetzt. Dies brachte schon mal Fortschritte insofern einige Passagen jetzt nicht mehr sichtbar waren - aber noch nicht alle. Erst nachdem ich gegen die Regel verstieß und am Ende der "Call"-Makros den Befehl "Applications.ScreenUpdating = True" einfach wegnahm, lief der Makro mit derselben Bildschirmanzeige durch! Da manche Calls nicht nur im Verbund sondern auch als Einzelmakro laufen, war noch die Frage, ob diese nun einzeln auch ohne ScreenUpdating = True richtig laufen. Dies ist so, weil Excel automatisch am Ende eines jeden Makros auf diesen Zustand schaltet.
ScreenUpdating und Activate haben demnach gar nichts miteinander zu tun. Ich habe mich durch die zahlreichen Beiträge im Forum auf den Holzweg führen lassen. Übrigens: Select vermeiden ist gut und schön, aber geht das auch, wenn Zellen mit Formel-Inhalten nur mit ihrem Wert kopiert werden sollen? Wenn ja, kannst Du mir sagen "wie"? Das normale direkte Kopieren ist mir bekannt; dabei wird jedoch der Zellinhalt 1:1 übernommen.
Viele Grüße und noch einen schönen Tag.
M.f.G. Peter Kloßek

Sub bbbbbbb() ' Werte "kopieren" von Workbooks(2) in Mappe1 ' Aktiv kann eine der beiden Mappen oder auch eine dritte sein. ' Statt x-mal Workbooks("Mappe1").Worksheets(1) zu schreiben, ' verwendet man besser With ... End With ' Variante 1: ohne Kopieren Workbooks("Mappe1").Worksheets(1).Range("B2:D5") = _ Workbooks(2).Worksheets(1).Range("F7:H10").Value Workbooks("Mappe1").Worksheets(1).Cells(2, 2).Resize(4, 3) = _ Workbooks(2).Worksheets(1).Cells(7, 6).Resize(4, 3).Value ' Variante 2: Kopieren, Einfügen nur Werte Workbooks(2).Worksheets(1).Range("F7:H10").Copy Workbooks("Mappe1").Worksheets(1).Range("B2").PasteSpecial _ Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Workbooks(2).Worksheets(1).Cells(7, 6).Resize(4, 3).Copy Workbooks("Mappe1").Worksheets(1).Cells(2, 2).PasteSpecial _ Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ' zur Variante 2 End Sub

Beliebteste Forumthreads (12 Monate)

ScreenUpdating = False i.V. m. "Activate"

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

62 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ScreenUpdating = False i.V. m. "Activate"

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

62 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread