getmoreSpeed mittels Direktbereich zurücksetzen
Peter
Wie kann ich in der Direktbereich GetMoreSpeed wieder ausschalten, wenn ich einen Makro, bei dem dieser Code aufgerufen wird, vorzeitig abbreche?
Ich habe verscuht mit
GetMoreSpeed 0 und mit
GetMoreSpeed(0)
Beides hat nicht funktioniert.
Danke für eine Antwort.
Gruss, Peter
Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True)
Static intCalculation As Integer
If Modus = True Then intCalculation = Application.Calculation
With Application
.ScreenUpdating = Not Modus
.EnableEvents = Not Modus
.Calculation = IIf(Modus = True, xlManual, intCalculation)
.Cursor = IIf(Modus = True, 2, -4143)
End With
End Sub
Anzeige