Nur die aktive Arbeitsmappe (Microsoft Excel) berechnen
Linda fragte, ob es eine Möglichkeit gibt, nur die aktive Arbeitsmappe zu berechnen.
Wenn eine Neuberechnung von Excel durchgeführt wird, werden alle geöffneten Arbeitsmappen neu berechnet. Wenn es sich um sehr große Arbeitsmappen handelt, kann die Neuberechnung manchmal mehr als fünfzehn Minuten dauern. Wenn sie in der Lage ist, die Neuberechnung einzuschränken, läuft der Prozess offensichtlich schneller ab.
Leider gibt es keine direkte Methode, um nur eine bestimmte Arbeitsmappe zu berechnen. Falls gewünscht, können Sie jedoch nur das aktive Arbeitsblatt berechnen. Stellen Sie den Neuberechnungsmodus zunächst wie folgt auf manuell ein:
-
Zeigen Sie das Dialogfeld Excel-Optionen an. (Klicken Sie in Excel 2007 auf die Schaltfläche Office und dann auf Excel-Optionen. In Excel 2010 und späteren Versionen wird die Registerkarte Datei des Menübands angezeigt, und klicken Sie dann auf Optionen.)
-
Klicken Sie links im Dialogfeld auf den Bereich Formeln. (Siehe Abbildung 1.)
-
Stellen Sie im Abschnitt Berechnungsoptionen des Dialogfelds sicher, dass das Optionsfeld Manuell ausgewählt ist.
-
Klicken Sie auf OK.
Jetzt wird Ihre Arbeitsmappe (eigentlich alle geöffneten Arbeitsmappen) nur neu berechnet, wenn Sie F9 drücken. Wenn Sie nur das aktuelle Arbeitsblatt neu berechnen möchten, drücken Sie Umschalt + F9.
Excel bietet auch Makrofunktionen, mit denen Sie eine der drei folgenden Aktionen ausführen können: Alle geöffneten Arbeitsmappen berechnen, ein bestimmtes Arbeitsblatt in einer Arbeitsmappe berechnen oder einen bestimmten Zellbereich in einem Arbeitsblatt berechnen. Mit diesem Wissen können Sie ein Makro erstellen, das alle Arbeitsblätter in einer Arbeitsmappe durchläuft und jedes neu berechnet.
Das folgende Makro setzt den Berechnungsmodus auf manuell (damit die anderen Arbeitsmappen nicht berechnen) und durchläuft dann jedes Blatt der aktiven Arbeitsmappe und berechnet es.
Sub CalcBook() Dim wks As Worksheet Application.Calculation = xlManual For Each wks In ActiveWorkbook.Worksheets wks.Calculate Next Set wks = Nothing End Sub
Wenn Sie der Meinung sind, dass Sie verschiedene Teile Ihrer Arbeitsmappe zu unterschiedlichen Zeiten berechnen möchten, können Sie das Makro so erweitern, dass es jede gewünschte Art von Berechnung ausführt:
Sub CalcWhat() Dim iAnsure As Integer Application.Calculation = xlManual iAnsure = InputBox("1 = Calculate A Used Range" _ & vbCrLf & _ "2 = Calculate This Worksheet" _ & vbCrLf & _ "3 = Calculate This Workbook" _ & vbCrLf & _ "4 = Calculate All Workbooks in Memory" _ & vbCrLf & vbCrLf & _ "Input Your Selection Number From Above" _ & vbCrLf & "Then Click OK", _ "Calculate What?", "Input Number Please", _ 5000, 5000) Select Case iAnsure Case 1 'Range Only Selection.Calculate Case 2 'Worksheet Only ActiveSheet.Calculate Case 3 'Workbook Only For Each wks In ActiveWorkbook.Worksheets wks.Calculate Next Case 4 'All Open Workbooks Application.CalculateFull End End Select End Sub
Dieses Makro zeigt ein Eingabefeld an, in dem der Benutzer gefragt wird, welche Art der Neuberechnung gewünscht wird. Wenn der Benutzer eine Zahl von 1 bis 4 eingibt, wird die gewünschte Art der Neuberechnung durchgeführt.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (6752) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.
Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: