filteren zonder herberekenen

[ronald1986]

Goedemiddag,

Ik heb een excel bestand met zeer veel formules hierin. Nou heb ik een macro die een filter toepast. Het toepassen van het filter gaat redelijk snel alleen daarna gaat excel automatisch het hele bestand herberekenen. Dit herberekenen duurt zeer lang terwijl dit eigenlijk niet nodig is. Nou heb ik geprobeert om voor de macro het automatisch herbereken uit te zetten en aan het eind van de macro weer aan te zetten, maar toch gaat excel herberekenen na het uitvoeren van het filter:

Application.Calculation = xlCalculationManual
Sheets("Blad1").Select
ActiveSheet.Range("$A$4:$FR$15000").AutoFilter Field:=7, Criteria1:="test"
Application.Calculation = xlCalculationAutomatic

Is er een manier om via VBA een filter toe te passen zonder dat het hele bestand opnieuw berekend wordt?

Bvd!

 

[Timshel]

Het commando

Application.Calculation = xlCalculationAutomatic

triggert altijd een herberekening.
Wat je kunt proberen is deze regel hier weg te halen en te plaatsen in het WorkbookSheetChange-event in de ThisWorkbookmodule:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Calculation = xlCalculationAutomatic
End Sub

Dan wordt Calculate Automatic aangezet zodra je iets wijzigt in een cel.