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