Office: (Office 2010) VBA: Option Iteration automatisch aktivieren

NBA · 16. September 2013

Hi,

ich habe eine Datei wo die Excel-Option "Iterative Berechnung aktivieren" automatisch aktiviert wird. Zudem habe ich es so eingerichtet, dass auch mit Blattschutz die Gliederungsfunktion nutzbar ist, was auch funktioniert. Auch die Option setzen klappt. Nun habe ich aber die Situation, dass das Option setzen klappt, selbst wenn ich das Coding rausnehme und die Datei neustarte. Hier erstmal das Coding:

PHP:

Sub Workbook_Open() ' Einstellung, dass Gliederungsfilter und Autofilter nutzbar sind, ' obwohl Blattschutz aktiviert ist Dim sh As Worksheet For Each sh In Sheets sh.Protect userinterfaceonly:=True, Password:="meinpasswort" sh.EnableOutlining = True 'für Gliederung sh.EnableAutoFilter = True 'für Autofilter Next sh ' Fehleranzeige temporär auschalten, damit die Iterationsoption gesetzt werden kann Application.DisplayAlerts = False ' Option Iteration aktivieren wird gesetzt With Application .Iteration = True .MaxIterations = 100 .MaxChange = 0.001 End With Fehleranzeige wird wieder aktiviert Application.DisplayAlerts = True End Sub

:)

Beverly · 17. September 2013

Hi Nico,

du musst beim Öffnen der Arbeitsmappe zuerst prüfen, welche Option eingestellt ist und diese beim Deaktivieren und Schließen der Arbeitsmappe wieder herstellen.

NBA · 17. September 2013

Hi,

d.h. ich muss bei der einen Arbeitsmappe beim Start prüfen, ob die Option gesetzt ist. Wenn nicht schalte ich sie ein. Beim Beenden und Deaktivieren, dann ausschalten?

Hast DU eventuell einen Coding-Ansatz. War schon stolz, dass ich das Coding wie hier gepostet geschafft habe :-)

Und was ist denn der Unterschied zwischen Deaktivieren und Beenden der Arbeitsmappe?

Viele Grüße und Danke.

Beverly · 17. September 2013

Hi Nico,

definiere 3 Variablen, auf die du die Werte beim Öffnen schreibst - dann kannst du sie beim Schließen und Deaktivieren wieder zurücksetzen:

Code:

Option Explicit
Dim blnIteration As Boolean
Dim dblMaxIterations As Double
Dim dblMaxChange As Double

Private Sub Workbook_Open()
With Application
blnIteration = .Iteration
dblMaxIterations = .MaxIterations
dblMaxChange = .MaxChange
.Iteration = True
.MaxIterations = 100
.MaxChange = 0.001
End With
End Sub

Private Sub Workbook_Activate()
With Application
.Iteration = True
.MaxIterations = 100
.MaxChange = 0.001
End With
End Sub

Private Sub Workbook_Deactivate()
With Application
.Iteration = blnIteration
.MaxIterations = dblMaxIterations
.MaxChange = dblMaxChange
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Iteration = blnIteration
.MaxIterations = dblMaxIterations
.MaxChange = dblMaxChange
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

NBA · 18. September 2013

Hi,

super es funktioniert. Eine letzte Frage wäre, wie ich jetzt die Sache mit "DisplayAlerts" einbaue. Der Zirkelbezugshinweis kommt noch und erst danach wird die Iteration Option ja gesetzt. Ich habe versucht einfach wieder "Application.DisplayAlerts = False" einzubauen, aber ich bekomme immer eine Fehlermeldung.

Viele Grüße
Nico

NBA · 18. September 2013

So habe es jetzt - glaub ich - geschafft. Tausend Dank für die Hilfe

Code:

Option Explicit
Dim blnIteration As Boolean
Dim dblMaxIterations As Double
Dim dblMaxChange As Double

Private Sub Workbook_Open()
' Option Iteration aktivieren
With Application
.DisplayAlerts = False
blnIteration = .Iteration
dblMaxIterations = .MaxIterations
dblMaxChange = .MaxChange
.Iteration = True
.MaxIterations = 100
.MaxChange = 0.001
.DisplayAlerts = True
End With

' Gliederung/Autofilter aktivieren obwohl Blattschutz
Dim she As Worksheet
For Each she In Sheets
she.Protect userinterfaceonly:=True, Password:="passwort"
she.EnableOutlining = True 'für Gliederung
she.EnableAutoFilter = True 'für Autofilter
Next she

End Sub

Private Sub Workbook_Activate()

' Option Iteration aktivieren
With Application
.DisplayAlerts = False
.Iteration = True
.MaxIterations = 100
.MaxChange = 0.001
.DisplayAlerts = True
End With

' Gliederung/Autofilter aktivieren obwohl Blattschutz
Dim she As Worksheet
For Each she In Sheets
she.Protect userinterfaceonly:=True, Password:="passwort"
she.EnableOutlining = True 'für Gliederung
she.EnableAutoFilter = True 'für Autofilter
Next she

End Sub

Private Sub Workbook_Deactivate()
With Application
.Iteration = blnIteration
.MaxIterations = dblMaxIterations
.MaxChange = dblMaxChange
.DisplayAlerts = True
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Iteration = blnIteration
.MaxIterations = dblMaxIterations
.MaxChange = dblMaxChange
.DisplayAlerts = True
End With
End Sub

Sub AlleBlätterEinblenden()

' Möglichkeit des alle ausgeblendeten Blätter wieder eingeblendet werden können
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

super-dau · 17. August 2015

Hallo, ich wollte diesen Code ins VBA von Excel 365 übernehmen, um die Iterative Berechnung einzuschalten, auf 1 zu setzen und beim schließen der Arbeitsmappe wieder auszuschalten und den Ursprungswert setzen (meist 99).

Geht aber mal wieder nicht. *rolleyes.gif* *entsetzt

Kann mir bitte jemand auf die Sprünge helfen.??

Code:

Option Explicit
Dim blnIteration As Boolean
Dim dblMaxIterations As Double
Dim dblMaxChange As Double

Private Sub Workbook_Open()
' Option Iteration aktivieren
With Application
.DisplayAlerts = False
blnIteration = .Iteration
dblMaxIterations = .MaxIterations
dblMaxChange = .MaxChange
.Iteration = True
.MaxIterations = 100
.MaxChange = 0.001
.DisplayAlerts = True
End With

Private Sub Workbook_Activate()

' Option Iteration aktivieren
With Application
.DisplayAlerts = False
.Iteration = True
.MaxIterations = 1
.MaxChange = 0.001
.DisplayAlerts = True
End With

Private Sub Workbook_Deactivate()
With Application
.Iteration = blnIteration
.MaxIterations = dblMaxIterations
.MaxChange = dblMaxChange
.DisplayAlerts = True
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Iteration = blnIteration
.MaxIterations = dblMaxIterations
.MaxChange = dblMaxChange
.DisplayAlerts = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke

Beverly · 12. Januar 2021

Hi,

von super-dau

Geht aber mal wieder nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und WAS geht nicht?

Office: (Office 2010) VBA: Option Iteration automatisch aktivieren

VBA: Option Iteration automatisch aktivieren

VBA: Option Iteration automatisch aktivieren

VBA: Option Iteration automatisch aktivieren

VBA: Option Iteration automatisch aktivieren

VBA: Option Iteration automatisch aktivieren - Similar Threads - VBA Option Iteration

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

Access-Optionen per VBA steuern

w2000:Formularfeld - Option Ereignis - VBA