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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen