ScreenUpdating=false - gibt es da Ausnahmen?
Jörg-HH
in diesem Code habe ich ja am Anfang das ScreenUpdating ausgeschaltet, damit der Bildschirm so bleibt, wie er grad ist. Trotzdem wird weiter unten bei Application.CutCopyMode = False (also vor dem Wiedereinschalten) plötzlich das letzte Blatt der durchlaufenen Schleife angezeigt.
Kann mir jemand sagen, warum das so ist und wie man das ggf. abstellen kann?
Grüße - Jörg
Dim ws As Worksheet
Dim wsFormular As Worksheet
Dim bHinterFormular As Boolean
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
bHinterFormular = False
Set wsFormular = ThisWorkbook.Worksheets("Formular")
For Each ws In ThisWorkbook.Worksheets
If ws.Name "config" _
And ws.Name "ToDo" _
And ws.Name "Formular" _
And bHinterFormular = True Then
ws.Cells.Clear 'Inhalte im Blatt "Formular" leeren und markieren
wsFormular.Cells.Copy 'Blatt "Formular" kopieren
ws.Range("A1").PasteSpecial Paste:=xlPasteAll 'Inhalt in aktuelles Blatt der FOR-Schleife einfügen
wsFormular.Buttons("btnInfobereichDrucken").Copy 'Druckbutton kopieren
ws.Activate 'im aktuellen Blatt an einer bestimmten Stelle einfügen
ws.Range("BL257").Select
ws.Paste
ws.Range("A1").Select 'aktive Zelle auf A1 stellen
End If
If ws.Name = "Formular" Then
bHinterFormular = True
End If
Next ws
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
wsFormular.Activate 'wieder das Formularblatt aktivieren...
ActiveWorkbook.Save