Application.ScreenUpdating in Excel VBA

plarein · 17. Juli 2018

Hallo,

ich habe unter Excel 2010 ein Programm erstellt, welches vom Aufruf bis zum Ende über userForms gesteuert wird.

Es werden mehrere Dateien geöffnet und zwischen Dateien und Tabellenblättern hin- und hergeschaltet.

Es klappt unter Excel 2010 mit hilfe des Befehls application.screenUpdating = false / = true hervorragend, dass nur das benötigte worksheet angezeigt wird und die userForm immer im Vordergrund steht.

Ein kurzer Test unter Excel 2013/2016 zeigt mir, dass der Befehl nicht mehr funktioniert. Was läuft falsch?

Ein Auszug aus dem Programmcode:

Deklaration u.a.:

Public DateiA As Workbook

Public Datei B As Workbook

Public DateiC As Workbook

Public DateiD As Workbook

Usw.

Eine Datei ist geöffnet, nach Anmeldung müssen noch 2 Dateien geöffnet werden und im Laufe des Programms ab und an noch eine weitere.

DateiC ist geöffnet, über eine userForm werden 2 weitere aufgerufen:

Application.ScreenUpdating = False ' Bildschirmaufbau ausschalten

DateiName=“xyz-Datei.xlsx“

dateida = Dir(DateiName)

If dateida <> "" Then

Workbooks.Open (DateiName)

Set DateiA = ActiveWorkbook

Application.WindowState = xlMinimized - ein Versuch, die Datei zu minimieren – geht nicht

End if

DateiName=“abc-Datei.xlsx“

dateida = Dir(DateiName)

If dateida <> "" Then

Workbooks.Open (DateiName)

Set DateiB = ActiveWorkbook

Application.WindowState = xlMinimized - ein Versuch, die Datei zu minimieren – geht nicht

End If

Application.ScreenUpdating = false ' Bildschirmaufbau einschalten

DateiA.Activate ‘ hier soll im Hintergrund etwas reingeschrieben werden.

Bisher wurden die Dateien im Hintergrund geöffnet, ohne dass sich die Anzeige ändert. Jetzt funktioniert windowState nicht und meine userForm mit dem Programm-Menü ist hinter den geöffneten Dateien verschwunden.

Wieso verhält sich Excel jetzt so anders?

Kann mir jemand helfen, wie ich das lösen kann??

Ich wäre sehr dankbar

Gruß

Plarein

Andreas Killer

Wieso verhält sich Excel jetzt so anders?

Weil seit 2013 Excel ein SDI ist und bis einschließlich 2010 ein MDI.

https://msdn.microsoft.com/de-de/vb...ng-for-the-single-document-interface-in-excel

Andreas.

Augustine_E

Hallo Plarein,

danke für die Nachricht.

Leider unterstützen wir VBA-Programmierung in diesem Forum nicht. Dennoch würde ich vorschlagen, dass du diese Frage im TechNet-
Forum stellst. Meine Kollegen dort werden dir weiter helfen, denn sie sind besser gerüstet, solche Fragen zu beantworten.

Wenn du weitere Fragen hast, stehen wir dir gerne zur Verfügung.

LG

AEG

Frank Arendt-Theilen

Hallo Jörg,

eventuell hilft dir die VBA-Anweisung Application.ScreenUpdating = False, bzw. nach dem Kopiervorgang
Application.ScreenUpdating =True, weiter.

--

Mit freundlichem Gruß aus der Rattenfängerstadt Hameln

(www.at-exceltraining.de)

GeriSk

Hallo,
 die von @EliseM_456 vorgeschlagenen Änderungen und eventuell weitere Verbesserungen der Performance kannst du mit folgenden Einstellungen bewirken:
 Application.Calculation property (Excel) | Microsoft Docs
 Application.EnableEvents property (Excel) | Microsoft Docs
 Application.ScreenUpdating property (Excel) | Microsoft Docs
 Vor den Änderungen:
 Application.Calculation = xlCalculationManual
 Application.EnableEvents = False
 Application.ScreenUpdating = False
 Danach wiederherstellen der Einstellungen:
 Application.Calculation = xlCalculationAutomatic
 Application.EnableEvents = True
 Application.ScreenUpdating = True
 Vielleicht hilft das schon mal ein Stück weiter.
 Freundliche Grüße
 Gerhard

Claus Busch

Hallo Peter,

dann mache es mit VBA:

Public Sub KommentareFormatieren()

Dim com As Comment

Application.ScreenUpdating = False

For Each com In ActiveSheet.Comments

'Ausrichtung

With com.Shape.TextFrame

.VerticalAlignment = xlVAlignBottom

.AutoSize = True

End With

'Schriftzeichen

With com.Shape.TextFrame.Characters.Font

.Bold = False

.ColorIndex = xlAutomatic

.Name = "Times New Roman"

.Size = 10

End With

Next com

Application.ScreenUpdating = True

End Sub

Mit freundlichen Grüßen

Claus

Hi,

willkommen im Windows Forum!

Application.ScreenUpdating in Excel VBA - Similar Threads - Application ScreenUpdating Excel	Forum	Datum
Excel VBA Excel VBA: Hallo zusammen,kann mir jemand mit einem Code behilflich sein,Ich habe in einer Tabelle Projektdaten eine Zeile die den Status Status_Contract eines Projektes beschreibt.Folgende Stati enthält die...	Microsoft Office	14. September 2024
Excel VBA Excel VBA: Hallobenutze schon länger ein selbst geschriebenes Addin eine Berechnungsfunktion. Diese ist bei den AddIns Datei > Optionen > AddIn auch angezeigt und funktioniert auch über benutzerdefinierte...	Microsoft Office	9. Juni 2022
Excel - VBA Excel - VBA: Hallo Zusammen! Kann mir jemand sagen, wie ich es einfacher gestallten kann? Ich muss dies von Zeile 2 bis 1915 machen. LG Nikola Sub WennDann If Range"G2" = "" Then Range"D2" = Range"H2"...	Microsoft Office	8. Oktober 2020
VBA in Excel VBA in Excel: hallo, wenn ich auf entwicklertools gehe und möchte visual basic aufrufen bekomme ich nur eine grauen bildschirm bzw. kom ich nicht in den bearbeitungsmodus. wäre super wenn mir jemand...	Microsoft Office	17. Mai 2020
Excel VBA Excel VBA: Liebe Community! Ich habe Office 365. Ich habe eine Excel Vorlage mit VBA Codes. Diese Vorlage hat jetzt 3 Jahre perfekt funktioniert. Vor 1 Woche hat es auch noch besten funktioniert. und...	Microsoft Office	5. Februar 2020
excel vba excel vba: hi ich habe: Worksheets("test2").Range("b3").Copy Destination:=Worksheets("Mdax").Range("b20") was schön und gut funktioniert nur kann ich damit auch die Zielzelle definieren? In meinem...	Microsoft Office	24. Juli 2019
EXCEL-VBA. EXCEL-VBA.: Wie splittet man den Bildschirm bei Programmtests in 1. Code-Fenster, 2. EXCEL-Arbeitsblatt. Ich weiß, dass es geht aber nicht wie. Heißen Dank!	Microsoft Office	10. Dezember 2018

Application.ScreenUpdating in Excel VBA