wie kann ich für einzelne Tabellenblätter einer Arbeitsmappe die manuelle Berechnung ausschalten? Alle anderen Blätter und Mappen sollen nach wie vor automatisch berechnet werden.
Danke
Heike
Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Deactivate()
Application.Calculation = xlAutomatic
End Sub
Sub tt()
Worksheets(1).EnableCalculation = False
End Sub
Sub Makro1()
Worksheets("Tabelle1").UsedRange.Copy
Worksheets("Tabelle1").UsedRange.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub