PROBLEM
Umfangreiche Matrix mit vielen Formeln und Verweisen. Für statistische Zwecke ist ein Autofilter aktiv. Beim Ändern einzelner Einträge oder Selektieren einer Autofilter Option geh ich mal 'nen Kaffee trinken
FRAGESTELLUNG
1) Kann ich für ein einzelnes Tabellenblatt die automatische Berechnung ausschalten (nicht für gesamte Mappe)
2) Bei Worksheet_Change sollen nur die Werte der entsprechenden Zeile neu berechnet werden
3) Beim Anwenden des Autofilters soll nur eine Zelle ("A6") neu berechnet werden
CODEFRAGMENTE
Folgender Code schaltet zwar die Calculation ab (und ich glaube leider für die ganze Mappe). Für die Berechnung der einzelnen Zelle beim Autofilter fehlt mir noch der Ansatz...
Danke
Christian
Private Sub Worksheet_Activate()
With Application
.ScreenUpdating = False
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
End Sub
Private Sub Worksheet_Deactivate()
Sheets("ServiceReports").Visible = xlVeryHidden
ActiveWorkbook.Protect Password:="sokrates", Structure:=True, Windows:=False
With Application
.Calculation = xlCalculationAutomatic
.CalculateBeforeSave = True
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("H:H,M:M,N1")
If Intersect(Selection, rng) Is Nothing Then
'Application.Calculate
Else
Application.Calculate
End If
End Sub