event schließen der Arbeitsmappe

Otto · 2013-02-01T07:47:07+00:00

Hallo, ich möchte mit Private Sub Workbook_Open() Sheets("Tabelle1").EnableCalculation = False End Sub verhindern, dass gewissen Blätter meine Arbeitsmappe ausbremsen. Jetzt fehlt mir aber noch folgendes wissen: 1. wie lege ich ein Array mit Blattnamen an, so dass automatisch für jedes Element dieser Befehl ausgeführt wird 2. wie lautet das Gegenstück zu Workbook_Open(), so dass ich alles beim schließen wieder auf den Standard der Arbeitsmappe setzen kann. Vielen Dank

Guten Morgen Otto,
so sollte es klappen:


Private Sub Workbook_Open()
Dim i As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For i = 1 To ActiveWorkbook.Sheets.Count
With Sheets(i)
.Activate
.Application.Calculation = False
End With
Next i
i = 1
Sheets(i).Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For i = 1 To ActiveWorkbook.Sheets.Count
With Sheets(i)
.Activate
.Application.Calculation = True
.Calculate
End With
Next i
i = 1
Sheets(i).Activate
ActiveWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Hallo Rolf,
ich darf die Datei leider nicht weitergeben.
Aber wenn ich mir nun eine andere Mappe hernehmen würde mit "Blatt1" bis "Blatt10", so würde ich einfach einen Mechanismus haben wollen, welcher z.B. "Blatt7" bis "Blatt10" von der Berechnung deaktiviert.
So wie die Idee hinter:

Dim deaktiviert() As String
deaktiviert = Array("t1","t2","t3")
For Each e In deaktiviert
Sheets(e).EnableCalculation = False
Next e

nur dass dies leider nicht funktionierte.
Da aber bei mir, aus welchen Grund auch immer, keine manuelle Berechnung erfolgt ist dieser Ansatz wahrscheinlich eh ein Sackgasse. Wenn in meinem Code nicht ein einfacher Fehler ist (vlt. muss man das Array wieder in String zurück verwandeln?) mach dir bitte keine weitere Mühe.
Nach dem ich die automatische berechnung für Datentabellen deaktiviert habe lässt es sich ganz gut nutzen. Ich probieren nun mal zu lernen warum das Datentabellen sind und was ich machen muss damit sie keine mehr sind. Dann sollte es vlt. auch zügiger gehen.
Danke Dir nochmals

event schließen der Arbeitsmappe

Forumthread: event schließen der Arbeitsmappe

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

event schließen der Arbeitsmappe

Forumthread: event schließen der Arbeitsmappe

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread