EnableEvents und ScreenUpdating Excel 2013

Hallo Zusammen,
ich habe ein sehr umfangreiches Projekt welches aus Mehreren Mappen und Arbeitsblättern besteht. Um dieses Projekt entsprechend besser handeln zu können, bestimmten Importe zu ermöglichen sind eine Vielzahl an Makros integriert.
Damit bei der Laufzeit sich der Bildschirm ruhig verhält habe ich ein Makro erstellt, was alles deaktiviert bzw. am Ende wieder aktiviert.

Sub aenderungen_ein_aus(art As Boolean)
'Aenderungen ein-ausschalten
Application.EnableEvents = art
Application.DisplayAlerts = art
If art = True Then
Application.Calculation = xlCalculationAutomatic
Application.Cursor = xlDefault
Application.EnableCancelKey = xlInterrupt
Else
Application.Cursor = xlWait
Application.Calculation = xlCalculationManual
Application.EnableCancelKey = xlDisabled
End If
Application.ScreenUpdating = art
End Sub

Dieses funktioniert bis Excel 2010 auch einwandfrei. Ab Excel 2013 funktioniert dann die Option Application.ScreenUpdating aber scheinbar nicht mehr (richtig).
Durch langes probieren habe ich nun herausgefunden, dass es an der Option Application.EnableEvents liegt.
Nehme ich diese heraus, so funktioniert es.
Das Problem ist nur dass ich einige Arbeitsblätter habe, wo ich abhängig von der Eingabe bestimmte andere Markos starte.
Diese sollen natürlich nicht gestartet werden, wenn bestimmte globale Aktionen durchgeführt werden. Aus diesem Grund setze ich Application.EnableEvents auch auf False.
Habt ihr eine Idee was sich a Excel 2013 geändert hat und wie ich mein Problem beheben kann?
Danke Euch schon mal.
VG
Steffen Schmerler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub blaetter_rucksetzen(art As Long) 'art: 1=Überschriften, Tabellenreiten etc ein, 2=Überschriften, Tabellenreiten etc aus 'Alle Blätter zurückscrollen Dim wkb As Workbook Dim wks As Worksheet For Each wkb In Workbooks 'Mappe aktivieren wkb.Activate 'Prüfung, ob Fenster eingeblendet ist - einblenden If Windows(wkb.Name).Visible = False Then Windows(wkb.Name).Visible = True If TabelleVorhanden(nleer, wkb) = True And Windows(wkb.Name).Visible = True Then For Each wks In wkb.Worksheets If wks.Visible = xlSheetVisible Then wks.Select ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1 If art = 1 Then ActiveWindow.DisplayWorkbookTabs = True ActiveWindow.DisplayHeadings = True Else ActiveWindow.DisplayWorkbookTabs = False ActiveWindow.DisplayHeadings = False End If wks.DisplayAutomaticPageBreaks = False wks.Range("A1").Select End If Next wks End If Next wkb End Sub

Hallo,
teste mal:

Public Sub blaetter_rucksetzen(art As Long)

    'art: 1=Überschriften, Tabellenreiten etc ein, 2=Überschriften, Tabellenreiten etc aus

    'Alle Blätter zurückscrollen
    Dim wkb As Workbook
    Dim wks As Worksheet

    For Each wkb In Workbooks

        With wkb.Windows(1)

            'Fenster - einblenden
            .Visible = True

            If art = 1 Then
                .DisplayWorkbookTabs = True
                .DisplayHeadings = True
            Else
                .DisplayWorkbookTabs = False
                .DisplayHeadings = False
            End If
        End With

        If TabelleVorhanden(nleer, wkb) Then
            For Each wks In wkb.Worksheets
                If wks.Visible = xlSheetVisible Then
                    With wks
                        .DisplayAutomaticPageBreaks = False
                        With .Cells(1, 1)
                            .Copy
                            .PasteSpecial Paste:=xlPasteAll
                        End With
                    End With
                End If
            Next wks
        End If
    Next wkb
    Application.CutCopyMode = 0
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

EnableEvents und ScreenUpdating Excel 2013

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread